79 lines
2.4 KiB
Perl
79 lines
2.4 KiB
Perl
#!/usr/bin/perl
|
|
# Author: Dimitri Antoniou <dimitri@risc2.aecom.yu.edu>
|
|
# usage: ltags filename
|
|
# handles: \label and \cite{ } with one or more arguments
|
|
# fails if arguments of cite spread over more than one line
|
|
# also searches in files that are \include or \input in the main file
|
|
|
|
# get main LaTeX source file from command line:
|
|
$mainfile = shift;
|
|
|
|
# get names of included files and store them in an array
|
|
open MAIN, $mainfile or die "$!" ;
|
|
@mainfile=<MAIN>;
|
|
@allsrcfiles = map{ /^\\(?:input|include){(.*?)}/ } @mainfile;
|
|
unshift @allsrcfiles, $mainfile;
|
|
|
|
# loop over all source files
|
|
for $srcfile (@allsrcfiles) {
|
|
# if \input{fname} append .tex to fname
|
|
unless ( $srcfile =~ m/\.tex/ ) { $srcfile = $srcfile . "\.tex" }
|
|
open SRC, $srcfile or die "$!" ;
|
|
# store contents of source file in array @texfile
|
|
@texfile=<SRC>;
|
|
|
|
# store lines with \label and \cite (or \citeonline) in arrays
|
|
@labelList = grep{ /\\label{/ } @texfile;
|
|
@citeList = grep{ /\\(cite|citeonline){/ } @texfile;
|
|
|
|
# see if we use an external database; if yes, store its name in $bibfile
|
|
($dbase) = grep{ /^\\bibliography{/ } @texfile;
|
|
if ($dbase) {
|
|
$dbase =~ m/\\bibliography{(.*?)}/;
|
|
$bibfile = $1;
|
|
}
|
|
|
|
# write \bibitem in tags file
|
|
@mrefs=();
|
|
@refs=();
|
|
@multirefs=();
|
|
foreach (@citeList) {
|
|
while ( m/\\(?:cite|citeonline){(.*?)}/g ) {
|
|
$refs = $1;
|
|
# if \cite has more than one argument, split them:
|
|
if ($refs =~ /,/) {
|
|
@mrefs = split /,/, $refs;
|
|
# there might be more than one \cite in a line:
|
|
push (@multirefs, @mrefs);
|
|
}
|
|
else {
|
|
@refs = ($refs);
|
|
push (@multirefs, @refs);
|
|
}
|
|
}
|
|
# in BibTeX, format is @ARTICLE{Name, }; in source file, \bibitem{Name}
|
|
for $ref (@multirefs) {
|
|
if ( $dbase ) {
|
|
push @unsorttag, "$ref\t$bibfile\t/{$ref,/\n"
|
|
}
|
|
else {
|
|
push @unsorttag, "$ref\t$srcfile\t/bibitem{$ref}/\n"
|
|
}
|
|
}
|
|
}
|
|
|
|
# write \label in tag file
|
|
foreach (@labelList) {
|
|
m/\\label{(.*?)}/;
|
|
push @unsorttag, "$1\t$srcfile\t/label{$1}/\n";
|
|
}
|
|
}
|
|
|
|
# sort tag file; then, eliminate duplicates
|
|
@sortedtag = sort @unsorttag;
|
|
%seen = ();
|
|
@uniqtag = grep { ! $seen{$_} ++ } @sortedtag;
|
|
|
|
open(TAGS, "> tags");
|
|
print TAGS @uniqtag;
|