diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /obsolete/macros/latex209/contrib/epsfig/epsbb |
Initial commit
Diffstat (limited to 'obsolete/macros/latex209/contrib/epsfig/epsbb')
-rw-r--r-- | obsolete/macros/latex209/contrib/epsfig/epsbb | 68 |
1 files changed, 68 insertions, 0 deletions
diff --git a/obsolete/macros/latex209/contrib/epsfig/epsbb b/obsolete/macros/latex209/contrib/epsfig/epsbb new file mode 100644 index 0000000000..8e8fbccab1 --- /dev/null +++ b/obsolete/macros/latex209/contrib/epsfig/epsbb @@ -0,0 +1,68 @@ +#!/usr/local/bin/perl +# +# Extract Bounding Box *.bb and compress postscript figure files. +# +# usage: epsbb --- For all files in the current directory. +# epsbb DIR --- For all files in the directory DIR. +# epsbb FILES... --- For all the FILES on the command line +# +# Author: Peter Whaite (peta@mcrcim.mcgill.edu) +# Centre for Intelligent Machines, McGill University. +$RCSVERSION='$Id: epsbb,v 1.2 1993/09/05 20:16:45 peta Exp $'; + +## USER CONFIG -- edit the following to suit your system. +# +$GZIP='/usr/local/bin/gzip'; +$ZCAT='/usr/local/bin/gunzip -c'; +# +## END USER CONFIG + +@ARGV=<*> unless ($#ARGV>=0); # epsbb +@ARGV=<$ARGV[0]/*> if ($#ARGV==0 && (-d $ARGV[0])); # epsbb DIR + +FILE: while ($_=shift) +{ + /\.bb$/ && next; + -e ($eps=$_) || -e ($eps="$_.gz") || -e ($eps="$_.z") || -e ($eps="$_.Z") + || do { warn("$_ does not exist\n"); next;}; + -f $eps || do { warn("$eps not a plain file\n"); next;}; + $epsf = $eps; + $compressed = 0; + $eps =~ /^(.*)\.(gz|z|Z)$/ && do + { + $eps = $1; + $epsf = "$ZCAT $eps|"; + $compressed = 1; + }; + + open(EPS,$epsf) || do {warn("$0: $epsf: $!\n"); next;}; + while (<EPS>) + { + /^%[%\w]*BoundingBox/ && do + { + open(BB,">$eps.bb") || do + { + warn("$0: $eps.bb: $!\n"); + next FILE; + }; + print STDERR "Writing $eps.bb"; + print BB; + close BB; + if (!$compressed) + { + print STDERR ", compressing $eps..."; + system("$GZIP $eps") unless $compressed; + } + print STDERR "\n"; + close EPS; + next FILE; + }; + }; + close EPS; + warn("$eps has no bounding box\n"); +} + +# Local Variables: +# mode: perl +# auto-fill-hook: do-auto-fill +# End: |