blob: 71d39bc1cee73993f17c6a2b72d15b9335a38997 (
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
|
#!/usr/local/bin/perl
#
# usage: epsfig [-c] FILE
#
# Write (possibly compressed) epsfig FILE to stdout. The TEXINPUTS path is
# searched for FILE{,.gz,z,Z}. With the -c option the FILE is gziped and
# FILE.bb is generated. If FILE is in the system default $SYSTEXINPUTS path
# no attempt is made to epsbb it.
#
# Used by epsfig.sty inside backquoted dvips specials.
#
# Author: Peter Whaite (peta@mcrcim.mcgill.edu)
# Centre for Intelligent Machines, McGill University.
# $Id: epsfig,v 1.3 1993/09/13 22:55:00 peta Exp $
## USER CONFIG -- edit the following to suit your system.
#
$SYSTEXINPUTS='.:/usr/local/tex/lib/texinputs';
$ZCAT='/usr/local/bin/gunzip -c';
#
## END USER CONFIG
while ($_=shift,/^-/)
{
/^-c/ && do {$compress++;next};
die "$0: bad option $_\nusage: $0 [-c] <file>\n";
}
die "usage: $0 [-c] <file>\n" unless $#ARGV == -1;
$file=$_;
$TEXINPUTS=$ENV{'TEXINPUTS'};
$TEXINPUTS .= $SYSTEXINPUTS if ((! $TEXINPUTS)||($TEXINPUTS =~ /:$/));
@SYSTEXINPUTS = split(/:/,$SYSTEXINPUTS);
@TEXINPUTS = split(/:/,$TEXINPUTS);
foreach $dir (@TEXINPUTS)
{
$epsf = "$dir/$file";
(-f $epsf) && do {$cmd = "$epsf"; $uncompressed=1; last;};
(-f "$epsf.gz") && do {$cmd="$ZCAT $epsf|"; last;};
(-f "$epsf.z") && do {$cmd="$ZCAT $epsf|"; last;};
(-f "$epsf.Z") && do {$cmd= "$ZCAT $epsf|"; last;};
}
$cmd || die("$0: $file.{z,gz,Z} not found\n");
open(EPSF,$cmd) || die("$0: $cmd: $!\n");
while (<EPSF>)
{
print;
}
close EPSF;
if ($compress && $uncompressed)
{
exit(0) if (grep(/^$dir$/,@SYSTEXINPUTS) && ($dir =~ m#^/#));
system("epsbb $epsf");
};
# Local Variables:
# mode: perl
# auto-fill-hook: do-auto-fill
# End:
|