diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/multibibliography/multibibliography.pl')
| -rwxr-xr-x | Master/texmf-dist/doc/latex/multibibliography/multibibliography.pl | 154 |
1 files changed, 154 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/multibibliography/multibibliography.pl b/Master/texmf-dist/doc/latex/multibibliography/multibibliography.pl new file mode 100755 index 00000000000..e1293f474d9 --- /dev/null +++ b/Master/texmf-dist/doc/latex/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"); +} + + + |