symlink e2pall

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

5 files changed, 6 insertions, 180 deletions

diff --git a/Build/source/texk/tetex/ChangeLog b/Build/source/texk/tetex/ChangeLog
index 53777decea5..08ce588ef66 100644
--- a/Build/source/texk/tetex/ChangeLog
+++ b/Build/source/texk/tetex/ChangeLog
@@ -3,6 +3,7 @@
 	* latex.info, latex2e.texi: remove; this will become a separate
 	package.
 	* Makefile.in: remove info-related stuff.
+	(LINKEDPERLSCRIPTS): add e2pall, pkfix, ps2eps.
 
 2008-03-02  Karl Berry  <karl@tug.org>
 
diff --git a/Build/source/texk/tetex/Makefile.in b/Build/source/texk/tetex/Makefile.in
index b683aa83c81..0e157776789 100644
--- a/Build/source/texk/tetex/Makefile.in
+++ b/Build/source/texk/tetex/Makefile.in
@@ -14,9 +14,9 @@ SCRIPTS = \
   texconfig texconfig-dialog texconfig-sys texdoc texdoctk  \
   texlinks thumbpdf updmap updmap-sys
 
-LINKEDPERLSCRIPTS = epstopdf pdfcrop pkfix ps2eps
+LINKEDPERLSCRIPTS = e2pall epstopdf pdfcrop pkfix ps2eps
 
-PDFSCRIPTS = a2ping e2pall
+PDFSCRIPTS = a2ping 
 
 CONTEXTSCRIPTS = \
   ctxtools exatools luatools makempy mpstools mptopdf mtxtools \
diff --git a/Build/source/texk/tetex/e2pall b/Build/source/texk/tetex/e2pall
deleted file mode 100755
index 2997f8b1102..00000000000
--- a/Build/source/texk/tetex/e2pall
+++ /dev/null
@@ -1,89 +0,0 @@
-#!/usr/bin/env perl
-
-# Author: Jody Klymak <jklymak@apl.washington.edu>, publisted by a posting
-#   to the pdftex mailinglist.
-
-# recursively finds all your eps files.  Looks down \input{fname}.
-# CAVEATS:
-# 1) cannot handle \input{fname} split over more than one line.
-#    1.5) cannot handle multiple \input{} or \includegraphics{} on one line.
-# 2) Must be run from same directory as the Latex file.
-# 3) Does not look down $TEXINPUTS or anything fancy like that...
-# 4) Handling of \include is untested (though I guess its trivial)
-# 5) Assumes *all* your graphics inclusions are [e]ps.  But don't
-#    fret, because if they are not epstopdf dies anyhow....
-# 6) Does not distinguish between percent (\%) and comment (%).
-
-# Changelog:
-# 20030103 -- Lachlan Andrew <lha@users.sourceforge.net>
-#	* Only append '.tex' if $fname doesn't exist.
-#	* Correctly handle lines with '}' after the \includegraphics{}
-#	* Allow multiple extensions for graphics files.  .eps -> .ps -> none
-#	  (Should try them in the same order as  \includegraphics  does
-#	   -- given by \DeclareGraphicsExtensions{}?)
-#	* Allow \include the same way as \input
-#	* Allow \includegraphics{} to be split over multiple lines
-#	* Check that commands begin with '\', and allow spaces before arguments
-
-# EDIT these two lines for your system....
-
-$Eps2PdfCom = "epstopdf";
-$ThisFunCom = "e2pall";
-
-$fname=$ARGV[0];
-
-# check for a *.tex at the end...
-if ((-f "$fname")=="" && $fname !~ /.tex$/){
-    $fname = "$fname.tex";
-}
-
-open(TEXFILE,$fname) or die "Cannot open file $fname";
-# print "Finding *.eps files in $fname\n";
-
-$seekingArg = 0;
-while($line=<TEXFILE>){
-    # truncate $line after % sign....
-    $line=~s/%.*//;
-    # check for /input....
-    if ($line=~/\\input *{([^}]*)}/){
-        print `$ThisFunCom $1`;
-    }
-    # check for /include....
-    if ($line=~/\\include *{([^}]*)}/){
-        print `$ThisFunCom $1`;
-    }
-
-    $base = "";
-    if ($line=~/\\includegraphics.*{([^}]*)}/){
-        $base = $1;
-    }
-    elsif ($seekingArg==1 && ($line=~/{([^}]*)}/)){
-        $base = $1;
-    }
-    elsif ($line=~/\\includegraphics/){
-        $seekingArg = 1;
-    }
-    
-    if ($base ne "") {
-        $seekingArg = 0;
-	if ((-f "$base.eps")!="") {
-	    $srcfile = "$base.eps";
-	}
-	elsif ((-f "$base.ps")!=""){
-	    $srcfile = "$base.ps";
-	}
-	else {
-	    $srcfile = $base;
-	}
-        # check that the [e]ps version is newer than the pdf version....
-        if ((-M "$base.pdf")=="" || (-M "$base.pdf") >= (-M "$srcfile")){
-            print "Constructing \t $base.pdf from $srcfile\n";
-            print `$Eps2PdfCom $srcfile`;
-        }
-        else{
-            print "$base.pdf \t is up to date with $srcfile\n";
-        }
-
-    };
-}
-close(TEXFILE);
diff --git a/Master/bin/i386-linux/e2pall b/Master/bin/i386-linux/e2pall
index 2997f8b1102..47465883225 100755..120000
--- a/Master/bin/i386-linux/e2pall
+++ b/Master/bin/i386-linux/e2pall
@@ -1,89 +1 @@
-#!/usr/bin/env perl
-
-# Author: Jody Klymak <jklymak@apl.washington.edu>, publisted by a posting
-#   to the pdftex mailinglist.
-
-# recursively finds all your eps files.  Looks down \input{fname}.
-# CAVEATS:
-# 1) cannot handle \input{fname} split over more than one line.
-#    1.5) cannot handle multiple \input{} or \includegraphics{} on one line.
-# 2) Must be run from same directory as the Latex file.
-# 3) Does not look down $TEXINPUTS or anything fancy like that...
-# 4) Handling of \include is untested (though I guess its trivial)
-# 5) Assumes *all* your graphics inclusions are [e]ps.  But don't
-#    fret, because if they are not epstopdf dies anyhow....
-# 6) Does not distinguish between percent (\%) and comment (%).
-
-# Changelog:
-# 20030103 -- Lachlan Andrew <lha@users.sourceforge.net>
-#	* Only append '.tex' if $fname doesn't exist.
-#	* Correctly handle lines with '}' after the \includegraphics{}
-#	* Allow multiple extensions for graphics files.  .eps -> .ps -> none
-#	  (Should try them in the same order as  \includegraphics  does
-#	   -- given by \DeclareGraphicsExtensions{}?)
-#	* Allow \include the same way as \input
-#	* Allow \includegraphics{} to be split over multiple lines
-#	* Check that commands begin with '\', and allow spaces before arguments
-
-# EDIT these two lines for your system....
-
-$Eps2PdfCom = "epstopdf";
-$ThisFunCom = "e2pall";
-
-$fname=$ARGV[0];
-
-# check for a *.tex at the end...
-if ((-f "$fname")=="" && $fname !~ /.tex$/){
-    $fname = "$fname.tex";
-}
-
-open(TEXFILE,$fname) or die "Cannot open file $fname";
-# print "Finding *.eps files in $fname\n";
-
-$seekingArg = 0;
-while($line=<TEXFILE>){
-    # truncate $line after % sign....
-    $line=~s/%.*//;
-    # check for /input....
-    if ($line=~/\\input *{([^}]*)}/){
-        print `$ThisFunCom $1`;
-    }
-    # check for /include....
-    if ($line=~/\\include *{([^}]*)}/){
-        print `$ThisFunCom $1`;
-    }
-
-    $base = "";
-    if ($line=~/\\includegraphics.*{([^}]*)}/){
-        $base = $1;
-    }
-    elsif ($seekingArg==1 && ($line=~/{([^}]*)}/)){
-        $base = $1;
-    }
-    elsif ($line=~/\\includegraphics/){
-        $seekingArg = 1;
-    }
-    
-    if ($base ne "") {
-        $seekingArg = 0;
-	if ((-f "$base.eps")!="") {
-	    $srcfile = "$base.eps";
-	}
-	elsif ((-f "$base.ps")!=""){
-	    $srcfile = "$base.ps";
-	}
-	else {
-	    $srcfile = $base;
-	}
-        # check that the [e]ps version is newer than the pdf version....
-        if ((-M "$base.pdf")=="" || (-M "$base.pdf") >= (-M "$srcfile")){
-            print "Constructing \t $base.pdf from $srcfile\n";
-            print `$Eps2PdfCom $srcfile`;
-        }
-        else{
-            print "$base.pdf \t is up to date with $srcfile\n";
-        }
-
-    };
-}
-close(TEXFILE);
+../../texmf/scripts/tetex/e2pall.pl
\ No newline at end of file
diff --git a/Master/texmf/scripts/tetex/e2pall.pl b/Master/texmf/scripts/tetex/e2pall.pl
index 160f37c1853..2997f8b1102 100644..100755
--- a/Master/texmf/scripts/tetex/e2pall.pl
+++ b/Master/texmf/scripts/tetex/e2pall.pl
@@ -1,3 +1,5 @@
+#!/usr/bin/env perl
+
 # Author: Jody Klymak <jklymak@apl.washington.edu>, publisted by a posting
 #   to the pdftex mailinglist.