install multibibliography.pl linked script

git-svn-id: svn://tug.org/texlive/trunk@30520 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 154 insertions, 0 deletions

diff --git a/Build/source/texk/texlive/linked_scripts/multibibliography/multibibliography.pl b/Build/source/texk/texlive/linked_scripts/multibibliography/multibibliography.pl
new file mode 100755
index 00000000000..e1293f474d9
--- /dev/null
+++ b/Build/source/texk/texlive/linked_scripts/multibibliography/multibibliography.pl
@@ -0,0 +1,154 @@
+#!/usr/bin/perl
+# Usage: perl multibibliography.pl jobname
+# Version: 2011-04-11T10:18Z
+# By Yannis Haralambous and Michael Cohen
+
+# Changes by Boris Veytsman, $Revision: 1.4 $, $Date: 2013-03-26 20:56:02 $
+
+# This perl script does the bibtexing part, generating 3 separate .bbl
+# files with descriptive names derived from source file name, so no
+# need to separately invoke.
+
+use strict;
+
+sub cleanup {
+    local $/=undef;
+    my $file = shift;
+    open IN, $file;
+    my $BIG=<IN>;
+    close IN;
+    $BIG=~s/(\r\n|\r|\n)/ /g;
+    $BIG=~s/\\bibitem/\n\n\\bibitem/g;
+    $BIG=~s/\\newblock/\n\\newblock/g;
+    $BIG=~s/\\end\{thebibliography\}/\n\n\\end{thebibliography}/g;
+    $BIG=~s/[ ]+/ /g;
+    open OUT, ">$file";
+    print OUT $BIG;
+    close OUT;
+}
+
+# First, change "apalike" in the aux file to "unsrt" and generate bbl
+# file, renamed to "fn-sequence.bbl".
+my $filename=$ARGV[0];
+$filename=~s/\.(tex|bib|bbl|aux|log)$//;
+if (-e $filename.".aux") {
+    open IN, $filename.".aux";
+    my $BIG="";
+    while (<IN>) {
+	if (m/\\bibstyle\{apalike\}/) {
+	    $BIG .= "\\bibstyle{unsrt}\n";
+	} else {
+	    $BIG .= $_;
+	}
+    }
+    close IN;
+    open OUT, ">".$filename.".aux";
+    print OUT $BIG;
+    close OUT;
+    system("bibtex $filename");
+    system("mv $filename".".bbl $filename"."-sequence.bbl");
+   
+    # Now, change "unsrt" in the aux file to "chronological" 
+    # and generate bbl file, renamed to "fn-timeline.bbl".
+
+    open IN, $filename.".aux";
+    $BIG="";
+    while (<IN>) {
+	if (m/\\bibstyle\{unsrt\}/) {
+	    $BIG .= "\\bibstyle{chronological}\n";
+	} else {
+	    $BIG .= $_;
+	}
+    }
+    close IN;
+    open OUT, ">".$filename.".aux";
+    print OUT $BIG;
+    close OUT;
+    system("bibtex $filename");
+    system("mv $filename".".bbl $filename"."-timeline.bbl");
+    
+    # Lastly, change "chronological" in the aux file to "apalike" 
+    # and generate bbl file, retaining name "fn.bbl".
+
+    open IN, $filename.".aux";
+    $BIG="";
+    while (<IN>) {
+	if (m/\\bibstyle\{chronological\}/) {
+	    $BIG .= "\\bibstyle{apalike}\n";
+	} else {
+	    $BIG .= $_;
+	}
+    }
+    close IN;
+    open OUT, ">".$filename.".aux";
+    print OUT $BIG;
+    close OUT;
+    system("bibtex $filename");
+    
+    &cleanup($filename.".bbl");
+    &cleanup($filename."-sequence.bbl");
+    &cleanup($filename."-timeline.bbl");
+    
+    open IN, $filename."-sequence.bbl";
+    my $counter=1;
+    my %UNSRT;
+    my %DATE;
+    my %NAME;
+    while (<IN>) {
+	if (m/\\bibitem{([^\}]+?)}/) {
+	    $UNSRT{$1}=$counter;
+	    $counter++;
+	}
+    }
+    close IN;
+    
+    open IN, $filename.".bbl";
+    $counter=1;
+    while (<IN>) {
+	if (m/\\bibitem\[([^\]]+)\]{([^}]+?)}/) {
+	    my $longdesc=$1;
+	    my $label=$2;
+	    if ($longdesc =~ /^(.*),\s+(\S+)$/) {
+		$NAME{$label}=$1;
+	        $DATE{$label}=$2;
+	    }
+        }
+    }
+    close IN;
+    
+    open IN, $filename."-sequence.bbl";
+    $counter=1;
+    open OUT, ">tmp123456";
+    while (<IN>) {
+	if (s/\\bibitem{(.+?)}/\\bibitem[\\MBlabel{$counter}{$NAME{$1}}{$DATE{$1}}]{$1}\n/) {
+	    $counter++;
+	}
+	print OUT;
+    }
+    close IN;
+    close OUT;
+    system("mv tmp123456 $filename"."-sequence.bbl");
+    
+    open IN, $filename.".bbl";
+    open OUT, ">tmp123456";
+    while (<IN>) {
+	s/\\bibitem\[[^\]]+\]{(.+?)}/\\bibitem[\\MBlabel{$UNSRT{$1}}{$NAME{$1}}{$DATE{$1}}]{$1}/;
+	print OUT $_;
+    }
+    close IN;
+    close OUT;
+    system("mv tmp123456 $filename".".bbl");
+    
+    open IN, $filename."-timeline.bbl";
+    open OUT, ">tmp123456";
+    while (<IN>) {
+		s/\\bibitem\[[^\]]+\]{(.+?)}/\\bibitem[\\MBlabel{$UNSRT{$1}}{$NAME{$1}}{$DATE{$1}}]{$1}/;
+	print OUT $_;
+    }
+    close IN;
+    close OUT;
+    system("mv tmp123456 $filename"."-timeline.bbl");
+}
+
+
+