diff options
author | Karl Berry <karl@freefriends.org> | 2013-05-17 22:35:28 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2013-05-17 22:35:28 +0000 |
commit | a0851b9bd912f89c8b857e066e9c2390a28d0061 (patch) | |
tree | 59a652dbf833e3c8d10e2e47ee85ba4d63f83947 /Master/texmf-dist/doc/latex/multibibliography | |
parent | 5e514c20c590569dee9a6ae13ab7ac8ed0878822 (diff) |
multibibliography fix script location, bin links
git-svn-id: svn://tug.org/texlive/trunk@30534 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/multibibliography')
-rwxr-xr-x | Master/texmf-dist/doc/latex/multibibliography/multibibliography.pl | 154 |
1 files changed, 0 insertions, 154 deletions
diff --git a/Master/texmf-dist/doc/latex/multibibliography/multibibliography.pl b/Master/texmf-dist/doc/latex/multibibliography/multibibliography.pl deleted file mode 100755 index e1293f474d9..00000000000 --- a/Master/texmf-dist/doc/latex/multibibliography/multibibliography.pl +++ /dev/null @@ -1,154 +0,0 @@ -#!/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"); -} - - - |