summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/texlive-extra/e2pall.pl
blob: 2997f8b11026cb0922a50ede937d8ec5b7e5e805 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
#!/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);