summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/multibibliography
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-05-17 22:35:28 +0000
committerKarl Berry <karl@freefriends.org>2013-05-17 22:35:28 +0000
commita0851b9bd912f89c8b857e066e9c2390a28d0061 (patch)
tree59a652dbf833e3c8d10e2e47ee85ba4d63f83947 /Master/texmf-dist/doc/latex/multibibliography
parent5e514c20c590569dee9a6ae13ab7ac8ed0878822 (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-xMaster/texmf-dist/doc/latex/multibibliography/multibibliography.pl154
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");
-}
-
-
-