2 files changed, 89 insertions, 0 deletions
diff --git a/skel/bin/latextags b/skel/bin/latextags
new file mode 100755
index 0000000..01b6596
--- /dev/null
+++ b/skel/bin/latextags
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+
+foreach $fname (@ARGV) {
+	$tags = `fgrep \\label $fname`;
+	@tagsList = split('\n', $tags);
+	foreach $tag (@tagsList) {
+		$tag =~ /.*\\label{([^}]*)}/;
+		$tagName = $1;
+		print "$tagName\t$fname\t/label{$tagName}/\n";
+	}
+}
diff --git a/skel/bin/ltags b/skel/bin/ltags
new file mode 100755
index 0000000..bec7c56
--- /dev/null
+++ b/skel/bin/ltags
@@ -0,0 +1,78 @@
+#!/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;