summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-03-03 18:51:04 +0000
committerKarl Berry <karl@freefriends.org>2008-03-03 18:51:04 +0000
commit20f85acea2ef177600a91ca346aa58165364a515 (patch)
tree222e78810008574d3ec8f06e018a9e5968f06a30
parent6558e53262b6ac7d7b1f6367607cde86eb8c08ae (diff)
symlink e2pall
git-svn-id: svn://tug.org/texlive/trunk@6833 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Build/source/texk/tetex/ChangeLog1
-rw-r--r--Build/source/texk/tetex/Makefile.in4
-rwxr-xr-xBuild/source/texk/tetex/e2pall89
l---------[-rwxr-xr-x]Master/bin/i386-linux/e2pall90
-rwxr-xr-x[-rw-r--r--]Master/texmf/scripts/tetex/e2pall.pl2
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.