JezK
Edit File: ps2eps
#! /usr/bin/perl # The expression in the previous line replaces the unix specific line # {#!/usr/bin/perl}. # ps2eps - convert PostScript to EPS (Encapsulated PostScript) files # ------------------------------------------------------------------- # (C)opyright 1998-2018 Roland Bless # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # # Author: Roland Bless # Send bug reports to roland <at> bless.de # ------------------------------------------------------------------- # Additional filtering is performed when Windows generated PostScript files # are processed. Some instructions will otherwise lead to bad output # if EPS-file gets embedded into other PostScript files. # # Requirements: # + perl # + gs (ghostscript supporting pbm output) # + bbox (a little C program [ANSI-C - should work on every platform] # for calculation of the actual BoundingBox) use POSIX; #use warnings; #use Getopt package use Getopt::Long; Getopt::Long::Configure("no_ignore_case"); $prgname= "ps2eps"; if (! -d "/usr/bin") { # we assume that we are running under native windows $ghostscriptname = "gswin32c"; $NULLDEV = "nul"; } else { # Unix or cygwin $ghostscriptname = "gs"; $NULLDEV = "/dev/null 2>&1"; } $bboxver=`bbox >$NULLDEV -V`; $bboxname= ($?== -1) ? "" : "bbox"; $version= '$Id: ps2eps,v 1.70 2018-01-09 18:00:00 bless Exp $'; #' $insertPScode= 1; # Insert surrounding Postscript code $infhandle = STDIN; # Standard input is the default input file $outfhandle = STDOUT; # Standard output is default output if STDIN is input $infname= '-'; $outfname= '-'; $forceoverwrite=0; # do not overwrite existing files $ignoreBB= 0; # ignore existing Bounding Box comment $removeDSC= 1; # remove Adobe document structure comments $removeADO= 1; # remove Adobe printer Driver console Output [Page: ...] $ignoreEOFDSC= 0; # ignore %%EOF DSC hint $removePreview= 0; # remove preview $quiet= 0; # write progress to stdout $resolution= 144; # resolution for bounding box calculation is 2x72 dpi $trytofixps= 1; # try to fix postscript code $forcefixps= 0; # fix postscript code unconditionally if eq 1 $filterorientation= 1;# filter Orientation line $looseBB=''; # default: tight bounding box $bboxonly=0; # output Bounding box only, no other output $clip=0; # do not clip $warnings=0; # do not print warnings concerning postscript sanity $debuggs=0; # no debugging of ghostscript call, turn this on if you want to see the gs call $inch=2.54; # one inch is 2.54cm $fullcolors= 1; # use ppm format (24-bit full color) $trailerseen= 0; # Trailer comment seen? $PSversion="2.0"; # default Postscript Version $PSDSCversion="2.0"; # default Postscript DSC Version $translate_x= 0; # translate by x postscript points $translate_y= 0; # translate by y postscript points $allbinary= 0; # treat postscript as binary do not filter or change stuff $alphaopt=""; # rendering option for ghostscript "-dTextAlphaBits=4 -dGraphicsAlphaBits=4" $hiresprecision=0.5; # amount that is changed of HiresBB in case that looseBB was requested $defaultext = '(ps|prn)'; # default extension $defaultoutext = '.eps'; # default output extension $envname_size = 'PS2EPS_SIZE'; $envname_gsbbox = 'PS2EPS_GSBBOX'; $gpar=""; $known_papersizes="11x17|ledger|legal|letter(small)?|arch[A-E]|a([0-9]|10)|isob[0-6]|b[0-5]|c[0-6]|jisb[0-6]|fls(a|e)|halfletter"; $papersize_help="11x17,ledger,legal,letter,lettersmall,archA,archB,archC,archD,archE\ a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,isob0,isob1,isob2,isob3,isob4,isob5,isob6,\ b0,b1,b2,b3,b4,b5,c0,c1,c2,c3,c4,c5,c6,\ jisb0,jisb1,jisb2,jisb3,jisb4,jisb5,jisb6,flsa,flse,halfletter\n"; $trigger= 0; $notsane= 0; $dummy=""; @ver= split(/ /,$version); # filename for temporary files if ($^O =~ /MSWin32/i or $^O =~ /cygwin/i) { # it is less trouble to use the current directory if working on # cygwin and nevertheless using gswin32c. $tmpfname= "$prgname.$$"; $win=1; } elsif (defined($ENV{'TMP'})) { $tmpdir= $ENV{'TMP'}; $filesep= ($tmpdir =~ /^?\:\\/) ? '\\' : '/'; if ($tmpdir =~ /$filesep$/) { $tmpfname= $tmpdir . "$prgname.$$"; } else { $tmpfname= $tmpdir . "$filesep$prgname.$$"; } $win=1; } else #assume we're on a UNIXBOX { $tmpfname= "/tmp/" . "$prgname.$$"; $win=0; } $licensetxt= "\ This program is free software; you can redistribute it and/or modify\ it under the terms of the GNU General Public License as published by\ the Free Software Foundation; either version 2 of the License, or\ (at your option) any later version.\ \ This program is distributed in the hope that it will be useful,\ but WITHOUT ANY WARRANTY; without even the implied warranty of\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\ GNU General Public License for more details.\ \ You should have received a copy of the GNU General Public License\ along with this program; if not, write to the Free Software\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA\n"; @prgidtxt= ( "$prgname - convert PostScript to EPS (Encapsulated PostScript) files\n", "(C)opyright 1998-2018 Roland Bless\n\n" ); @helptxt= ("Version: $ver[2]\n", "Operation:\n", " Without any argument, $prgname reads from standard input\n", " and writes to standard output.\n", " If filenames are given as arguments they are processed\n", " one by one and output files are written to filenames\n", " with extension '$defaultoutext'. If input filenames have the extension\n", " '.ps' or '.prn', this extension is replaced with '$defaultoutext'.\n", " In all other cases '$defaultoutext' is appended to the input filename.\n", " Please note that PostScript files for input should contain\n", " only one single page.\n\n", " If BoundingBox in output seems to be wrong, please try options --size or --ignoreBB.\n\n" ); @usagetxt= ("Syntax:\n", " $prgname [-f] [-q] [-N] [-O] [-X] [-n] [-P] [-c] [-b] [-C] [-m] [-B] [-E] [-s <pagedim>] [-R +|-|^] [-t <x,y>] [-l] [-g] [-d] [-H] [-h|--help] [-g] [-a] [-W] [-L] [-V|--version] [--] [psfile1] [psfile2] [...]\n", "Options:\n", " -f, --force force overwriting existing files\n", " -q, --quiet quiet operation (no output while processing files)\n", " -N, --noinsert do not insert any postscript code\n", " -O, --preserveorientation do not filter Orientation: header comment\n", " -X, --BBonly print resulting bounding box(es) only, no other output\n", " -n, --nofix do not try to fix postscript code\n", " -P, --removepreview remove preview image (smaller file, but no preview)\n", " -F, --fixps fix postscript code unconditionally\n", " -c, --comments preserve document structure comments\n", " -b, --binary treat postscript as binary, do not modify characters\n", " -C, --clip insert postscript code for clipping\n", " -m, --mono use black/white bitmap as base for calculation\n", " -s, --size=<pagedim> page size (a0-a10,letter,...) or in format XxY[cm|in] (default:cm), where X and Y are numbers\n", " use --size=list to list pre-defined page sizes\n", " -R, --rotate=<direction> rotate resulting EPS. <direction>: +=+90 (clockw.),-=-90 (counter-clockw.) ^=180 degrees\n", " -t, --translate specify x,y offset (may be negative) in postscript points (1/72 dpi)\n", " -r, --resolution specify dpi resolution to render with ghostscript (default 144)\n", " -l, --loose expand the original bounding box by one point in each direction\n", " -B, --ignoreBB do not use existing bounding box as page size for rendering\n", " -E, --ignoreEOF do not use %%EOF as hint for end of file\n", " -g, --gsbbox use internal bbox device of ghostscript\n", " -H, --nohires do not use a HiResBoundingBox\n", " -h, --help help information\n", " -L, --license show licensing information\n", " -V, --version show version information\n", " -d, --debuggs show ghostscript call\n", " -a, --accuracy improve accuracy during rendering (maybe slower)\n", " -W, --warnings show warnings about sanity of generated eps file\n", " -- all following arguments are treated as files\n", " (allows filenames starting with -)\n", "\n", "Arguments:\n", " One or more names of PostScript files for input\n"); ## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ## -- argument checking -- ## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% #environment variable for papersize if (defined($ENV{"$envname_size"})) { $opt_s= $ENV{"$envname_size"}; } else { $opt_s = ''; # for s-option } if (defined($ENV{"$envname_gsbbox"})) { $bboxname=""; } $opt_t = ''; # for t-option $opt_R = ''; # for R-option $opt_r = ''; # for r-option $stopnow = 0; die "Wrong option(s), please check usage with $prgname --help\n" unless GetOptions('f|force' => \$forceoverwrite, 'q|quiet' => \$quiet, 'm|mono' => sub { $fullcolors = 0 }, 'n|nofix' => sub { $trytofixps = 0 }, 'F|fixps' => \$forcefixps, 'N|noinsert' => sub { $insertPScode = 0 }, 'O|preserveorientation' => sub { $filterorientation= 0 }, 'P|removepreview' => \$removePreview, 'c|comments' => sub { $removeDSC = 0 }, 'b|binary' => sub { $allbinary = 1 }, 'C|clip' => \$clip, 'l|loose' => sub { $looseBB = '-l' }, 'B|ignoreBB' => \$ignoreBB, 'X|BBonly' => \$bboxonly, 'E|ignoreEOF'=> \$ignoreEOFDSC, 's|size=s' => \$opt_s, 't|translate=s' => \$opt_t, 'r|resolution=s' => \$opt_r, 'R|rotate=s' => \$opt_R, 'g|gsbbox' => sub { $bboxname=""; }, 'H|nohires' => \$nohires, 'h|help' => sub { $stopnow = 1; print @prgidtxt,@helptxt,@usagetxt,"\nAuthor: Roland Bless (roland\@bless.de)\n\n"; }, 'L|license' => sub { $stopnow = 1; print @prgidtxt,$licensetxt,"\nAuthor: Roland Bless (roland\@bless.de)\n\n"; }, 'a|accuracy' => sub { $alphaopt = '-dTextAlphaBits=4 -dGraphicsAlphaBits=4' }, 'd|debuggs' => \$debuggs, 'W|warnings' => \$warnings, 'V|version' => sub { $stopnow = 1; print @prgidtxt,"Version: $ver[2]\n"; });exit if ($stopnow); ## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ## -- wildcard processing -- ## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ## internal wildcard processing for current directory, ## only used for non UNIX-based OSs (which may lack shell wildcard expansion) @filenames = (); foreach $object (@ARGV) { if ($win && $object =~ m/\*/o) # asterisk is present in filename { $wildcard = $object; $wildcard =~ s/\./\\\./g; # replace . in pattern with \. $wildcard =~ s/\*/\(\.\*\)/g; # replace * in pattern with (.*) opendir(DIR,'.') || die 'Unable to open current directory, stopped'; # open current directory print STDERR $wildcard; @fid = grep { /$wildcard(\.$defaultext)?/i } readdir(DIR); foreach (@fid) { push @filenames, $_; } closedir DIR; } else { push @filenames, $object; } } # end foreach $filenames[0]= '-' if (scalar(@filenames) == 0); # no file arguments, use STDIN as input print STDERR "Input files: @filenames\n" if (!$quiet); if ($opt_r ne '') { $resolution=$opt_r; } # papersize stuff if ($opt_s ne '') { # if explicit size is given, ignore existing BoundingBox always $ignoreBB = 1; $pagedimension = $opt_s; if ($opt_s eq "list") { print STDERR "Available paper sizes: $papersize_help"; exit 0; } #explicit format XxY[cm|in] if ($pagedimension =~ /(\d*\.?\d+)x(\d*\.?\d+)/) { ($x_dim, $dummy, $y_dim, $unit)= split(/(x|cm|in)/,$pagedimension); if ( $x_dim !~ /^\d*\.?\d+$/ ) { die "$x_dim in $arg is not a valid number, stopped"; } if ( $y_dim !~ /^\d*\.?\d+$/ ) { die "$y_dim in $arg is not a valid number, stopped"; } #print STDERR "xdim: $x_dim ydim: $y_dim unit:$unit\n" ; if (!defined($unit) ) { $unit='cm'; $opt_s=$opt_s . $unit; } if ( $unit ne 'in' ) # assume centimeters { # calculate dimension in pixels (remember: resolution is in dpi) $xpixels= int(($x_dim * $resolution) / $inch)+1; $ypixels= int(($y_dim * $resolution) / $inch)+1; $gpar= "-g${xpixels}x${ypixels}"; } else { $xpixels= int($x_dim * $resolution)+1; $ypixels= int($y_dim * $resolution)+1; $gpar= "-g${xpixels}x${ypixels}"; } } #endif XxY in opt_s else { if ($opt_s =~ /$known_papersizes/) { $gpar="-sPAPERSIZE=$opt_s"; } else { print STDERR "Error: Unknown paper size: $opt_s\n Acceptable papersizes are:$papersize_help\n"; exit 1; } } } #translate option if ($opt_t ne '') { ($translate_x,$translate_y)= split(/\,/,$opt_t); } #rotate $rotright='-90 rotate'; $rotleft='90 rotate'; $rotupsidedown='180 rotate'; $rotate=''; if ($opt_R ne '') { if ($opt_R eq '+') { $rotate=$rotright; } elsif ($opt_R eq '-') { $rotate=$rotleft; } elsif ($opt_R eq '^') { $rotate=$rotupsidedown; } else { die "Wrong parameter for option -R: Valid are only +,-,^\n"; }; } $device= $fullcolors ? "ppmraw" : "pbmraw"; ## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ## -- iterate over different input files -- ## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% PROCESSFILE: while ($infname= (shift @filenames)) { # reset filter definitions for each file undef $linefilter; undef $rangefilter_begin; undef $rangefilter_end; $fixthisps= $trytofixps; $fixmsgprinted= 0; if (!$quiet) { print STDERR "Processing: $infname\n"; } unless (open($infhandle,"<$infname")) { # skip over this file print STDERR "$prgname: Can't open $infname: $!\n"; next PROCESSFILE; } # buffer input from stdin into temporary file, because it has to be read twice # one time for ghostscript processing, the second time for generating output if ($infname eq '-') # input is stdin { $tmpfhandle=''; open($tmpfhandle,">$tmpfname") or die "Cannot open temporary file $tmpfname for writing: $!\n"; } else # input is not stdin { undef $tmpfhandle; #if filename ends with $defaultext usually .ps or .prn, replace the extension with $defaultoutext if ($infname =~ /\.$defaultext$/i) { $outfname= $infname; $outfname =~ s/\.$defaultext$/$defaultoutext/i; } else # otherwise simply append the extension $defaultoutext { $outfname= $infname . "$defaultoutext"; } } #end else input is not stdin ## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ## -- process input file -- ## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% $linefilter= '^$'; #'# filter empty lines by default while (<$infhandle>) { # get postscript and DSC version if (/%!PS-Adobe-(\S+).*EPSF-(\S+)/) { $PSversion=$1; $PSDSCversion=$2; if (! ($PSversion =~ /\d+\.\d+/)) { $PSDSCversion="2.0"; } if (! ($PSDSCversion =~ /\d+\.\d+/)) { $PSDSCversion="2.0"; } } # check for existing BoundingBox parameters if ( /^%%\s*BoundingBox:\s*(.*)/ && !defined($eBBllx) ) { $BBarg= $1; # accept even negative and fractional BBs if ( $BBarg =~ /(\-?\d+\.?\d*\s+){3,}\-?\d+\.?\d*/ ) # ignore %% BoundingBox: (atend) comments { ($eBBllx,$eBBlly,$eBBurx,$eBBury,$dummy)= split /\s/,$BBarg; #print STDERR "Existing BB: $eBBllx,$eBBlly,$eBBurx,$eBBury\n"; if (int($eBBllx) < 0) { $translate_x= - int($eBBllx-0.5); } if (int($eBBlly) < 0) { $translate_y= - int($eBBlly-0.5); } $xpixels= int((($eBBurx-$eBBllx) * $resolution)/72 + 0.5); $ypixels= int((($eBBury-$eBBlly) * $resolution)/72 + 0.5); if (!$ignoreBB) { $gpar= "-g${xpixels}x${ypixels}"; # check for meaningful values if (($xpixels <= 1) || ($ypixels <= 1)) { $gpar=""; undef $eBBllx; undef $eBBlly; } else { if (!$quiet) { print STDERR "Rendering with existing $_"; if (int($eBBllx) < 0 || int($eBBlly) < 0) { print STDERR "WARNING: existing Bounding Box shows negative values - shifting\n"; } } } } #endif !$ignoreBB } #endif $BBarg =~ } if ($fixthisps) # try to fix bad postscript code { # check for Windows 3.x output if ( /^Win.*Dict/ ) { if (!$quiet && !$fixmsgprinted) { print STDERR "Windows 3.5 generated Postscript file detected, fixing\n"; } $linefilter= '^(EJ|RS)'; $rangefilter_begin= '^statusdict'; $rangefilter_end= 'cvx\ settransfer$'; #' $fixmsgprinted= 1; # stop printing message } else { if ( /^%%Creator:\s*Wind.U\s*Xprinter/ ) { if (!$quiet && !$fixmsgprinted) { print STDERR "Star/OpenOffice generated Postscript file detected, fixing\n"; } $linefilter= '^rs'; $fixmsgprinted= 1; # stop printing message } else { if ( $forcefixps || /^\/NTPS/ || /Creator:\s*(AdobePS|Pscript|.*Windows)/i ) #check for NT generated output { if (!$quiet && !$fixmsgprinted) { if ($forcefixps) { print STDERR "Postscript filtering requested, fixing\n"; } else { print STDERR "Windows generated Postscript file detected, fixing\n"; } } $rangefilter_begin= '^((\[\{)|(featurebegin\{))$'; #' $rangefilter_end= '^(\} stopped cleartomark|\}featurecleanup)'; $exclude_rangefilter_begin= '^(?i)%%BeginNonPPDFeature'; #' $exclude_rangefilter_end= '^(?i)%%EndNonPPDFeature'; #$triggered_rangefilter_begin= ''; #' #$triggered_rangefilter_end= ''; #' $fixsearchpat='(^|\s)(initmatrix|initclip|initgraphics)(\s|$)'; $fixreplacepat=' '; $fixmsgprinted= 1; # stop printing message } # end if NTPS } #end else } } #end if trytofixps if (defined($tmpfhandle)) { print $tmpfhandle $_ or die "$prgname: Failure during writing to temporary file $tmpfname"; } if (/^%%EOF\s*$/) { $totalEOFDSC++ } } #end while <$infhandle> if (defined($tmpfhandle)) { close($tmpfhandle); } else { $tmpfhandle= $infhandle; $tmpfname= $infname; } ## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ## -- calculate the bounding box -- ## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% if ($translate_x!=0 || $translate_y!=0) { $translation="$translate_x $translate_y translate"; $translatecmd="-c \'$translation\'"; } else { $translation=""; $translatecmd=""; } if (!$quiet) { print STDERR "Calculating Bounding Box..."; if ($opt_s) { print STDERR "using page size $opt_s..."; } } $rotatecmd=''; if ($rotate ne '') { $rotatecmd="-c \"$rotate\"" } if ($bboxname ne '') { $cmdline="$ghostscriptname -dSAFER -dNOPAUSE $alphaopt -q $gpar -r$resolution -sDEVICE=$device -sOutputFile=- $translatecmd -f \"$tmpfname\" -c showpage -c quit | $bboxname -r $resolution"; } else { if (!$quiet) { print STDERR "...using bbox device of $ghostscriptname..."; } $cmdline = "$ghostscriptname -dSAFER -dBATCH -dNOPAUSE -q $gpar -r$resolution -sDEVICE=bbox -sOutputFile=- -c \"/setpagedevice {pop} def\" $translatecmd -f \"$tmpfname\" -c quit 2>&1"; } if ($debuggs) { print STDERR "\nCalling: $cmdline\n"; } # actual ghostscript call $boundingbox=`$cmdline`; if ($debuggs) { print STDERR "Call result: $boundingbox"; } # check result of gs call if ($boundingbox !~ /^%%BoundingBox/m) { die "Error: Could not determine bounding box!\n", "I suppose $ghostscriptname had some trouble interpreting the postscript-file $infname. Exiting now.\n"; } $boundingbox =~ /^%%HiResBoundingBox:\s*(.*)/m; if (defined($1)) # HiResBoundingBox given { ($hcBBllx,$hcBBlly,$hcBBurx,$hcBBury,$dummy)= split(/\s/,$1); $hiresboundingbox="%%HiResBoundingBox: $hcBBllx $hcBBlly $hcBBurx $hcBBury\n"; $cBBllx = floor($hcBBllx); $cBBlly = floor($hcBBlly); $cBBurx = ceil($hcBBurx); $cBBury = ceil($hcBBury); } else { #use normal BoundingBox $boundingbox =~ /^%%.*BoundingBox:\s*(.*)/; ($cBBllx,$cBBlly,$cBBurx,$cBBury,$dummy)= split(/\s/,$1); } # if loose BB is requested # apply changes to resulting bounding box if needed if ($looseBB ne '') { if ($cBBllx > 0) { $cBBllx--; } if ($cBBlly > 0) { $cBBlly--; } $cBBurx++; $cBBury++; if ($hcBBllx-$hiresprecision >= 0.0) { $hcBBllx-= $hiresprecision; } if ($hcBBlly-$hiresprecision >= 0.0) { $hcBBlly-= $hiresprecision; } $hcBBurx+= $hiresprecision; $hcBBury+= $hiresprecision; $hiresboundingbox="%%HiResBoundingBox: $hcBBllx $hcBBlly $hcBBurx $hcBBury\n"; } if ($cBBllx < 0 || $cBBlly < 0) { if (!$quiet) { print STDERR "WARNING! Your drawing had a negative Bounding Box which is deprecated and may cause problems!. I'll shift it.\n"; } $translate_x= -int($cBBllx); $translate_y= -int($cBBlly); $cBBllx=0; $cBBurx= $cBBurx + $translate_x; $cBBlly=0; $cBBury= $cBBury + $translate_y; $hcBBurx= $hcBBurx + $hcBBllx; $hcBBury= $hcBBury + $hcBBlly; $hcBBllx= 0; $hcBBlly= 0; $hiresboundingbox="%%HiResBoundingBox: $hcBBllx $hcBBlly $hcBBurx $hcBBury\n"; $translation="$translate_x $translate_y translate"; $translatecmd="-c \'$translation\'"; } $boundingbox = "%%BoundingBox: $cBBllx $cBBlly $cBBurx $cBBury\n"; if (!$quiet) { print STDERR "ready. $boundingbox" }; if ($bboxonly) { print STDERR $boundingbox; if (defined($hiresboundingbox) && !defined($nohires)) { print STDERR $hiresboundingbox; } exit 0 }; $before_startps= 1; $inserted_prolog= 0; $prolog_passed= 0; ## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ## -- Create output file -- ## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% if (!$quiet) { print STDERR "Creating output file $outfname ... "; } if (!$forceoverwrite and -s "$outfname") { die "$prgname: Sorry, file named $outfname already exists,", " will not overwrite it.\n", " You will have to use the -f option, delete it or rename it", " before running $prgname again.\n"; } else { open($outfhandle,">$outfname") or die "Can't open file $outfname for writing: $!\n"; } open($tmpfhandle,"<$tmpfname") or die "Cannot open file $tmpfname for reading"; CREATEOUTPUT: while (<$tmpfhandle>) { # check whether we are in a binary section $binarysection=$allbinary || (/^(%%Begin(Binary|Data))|(beginimage)\r?\n?$/ ... /^(%%End(Binary|Data))|^(endimage)/) || (/^(doNimage)|(doclutimage)\r?\n?$/ ... /(^|~> )Z\r?\n?$/) || # Pscript_Win_Dib_L2 5.0 0 (/^beginjpeg / ... /~> endjpeg\r?\n?$/) || # Pscript_Win_Dib_L2 5.0 0 (/^pdfIm/ ... /^%-EOD-/); if ( !$binarysection ) { s/\r?\n?$//; # remove CR and/or LF at end of line if not in binary section } # check where magic Postscript header starts - skip leading binary stuff, e.g., HP PCL/PJL code if ($before_startps) { if ( /%!/ ) # This is usually the smallest magic sequence { # Note: Adobe Photoshop generated a binary heading, so ^ is not applicable # %! may be part of a binary sequence, but then control characters follow # so skip %! if non alphanumeric characters follow if ( ! /%!.*[^\w]{2,}/ ) { # some heading without two control characters found $before_startps= 0; if (! /%!PS-Adobe.*/i) # some strange programs use other magics { print STDERR "** Warning **: Weird heading line -- ",$_," -- "; } } } next CREATEOUTPUT; } else # we are hopefully in regular postscript code now { # count %%EOFs as we want to know when we got the last EOF if ( /^%%EOF\s*$/ ) { $seenEOF++; } # We should insert our own prologue including the newly calculated BoundingBox if (! $inserted_prolog) { print $outfhandle "%!PS-Adobe-$PSversion EPSF-$PSDSCversion\n"; # check if we need to rotate $transrotcmd=''; if ($rotatecmd) { if ($rotate eq $rotright) { $transrotcmd="-$cBBlly $cBBurx translate"; $boundingbox='%%BoundingBox: 0 0 ' . ($cBBury-$cBBlly) . ' ' . ($cBBurx-$cBBllx) . "\n"; if ($hiresboundingbox ne "") { $hiresboundingbox='%%HiResBoundingBox: 0 0 ' . ($hcBBury-$hcBBlly) . ' ' . ($hcBBurx-$hcBBllx) . "\n"; } } elsif ($rotate eq $rotleft) { $transrotcmd="$cBBury -$cBBllx translate"; $boundingbox='%%BoundingBox: 0 0 ' . ($cBBury-$cBBlly) . ' ' . ($cBBurx-$cBBllx) . "\n"; if ($hiresboundingbox ne "") { $hiresboundingbox= '%%HiResBoundingBox: 0 0 ' . ($hcBBury-$hcBBlly) . ' ' . ($hcBBurx-$hcBBllx) . "\n"; } } elsif ($rotate eq $rotupsidedown) { $transrotcmd="$cBBurx $cBBury translate"; $boundingbox='%%BoundingBox: 0 0 ' . ($cBBurx-$cBBllx) . ' ' . ($cBBury-$cBBlly) . "\n"; if ($hiresboundingbox ne "") { $hiresboundingbox='%%HiResBoundingBox: 0 0 ' . ($hcBBurx-$hcBBllx) . ' ' . ($hcBBury-$hcBBlly) . "\n"; } } } print $outfhandle $boundingbox; if (!defined($hiresboundingbox)) { $nohires=1; } if (defined($hiresboundingbox) && !defined($nohires)) { print $outfhandle $hiresboundingbox; } $inserted_prolog= 1; redo CREATEOUTPUT; } else # already inserted_prolog { if (! $prolog_passed) { #ignore the following lines in the prologue if ( /^%%(HiRes)?BoundingBox/ || /^%%Pages/ || /^%%BeginProlog/ || /^%%EndProlog/ || ($filterorientation && /^%%Orientation/) || ($removeDSC && /^%%.*: \(atend\)/) || ($removePreview && (/^%%BeginPreview/ ... /^%%EndPreview/)) ) { next CREATEOUTPUT; } else { if ( /^[^%].*/ || /^%%EndComments/ ) # line is not a comment { #output postscript code for proper EPS file if ($insertPScode) { print $outfhandle "%%EndComments\n", "% EPSF created by ps2eps $ver[2]\n", "%%BeginProlog\n"; } # Insert own postscript code for clipping if ($clip) { if (!defined($nohires)) { printf $outfhandle "newpath %f %f moveto %f %f lineto %f %f lineto %f %f lineto closepath clip\n",$hcBBllx,$hcBBlly,$hcBBurx,$hcBBlly,$hcBBurx,$hcBBury,$hcBBllx,$hcBBury; } else { printf $outfhandle "newpath %d %d moveto %d %d lineto %d %d lineto %d %d lineto closepath clip\n",$cBBllx,$cBBlly,$cBBurx,$cBBlly,$cBBurx,$cBBury,$cBBllx,$cBBury; } } #endif clip if ($rotate ne '') { print $outfhandle "$transrotcmd\n"; print $outfhandle "$rotate\n"; } if ($translation ne '') { print $outfhandle "$translation\n"; } #insert surrounding postscript code if ($insertPScode) { print $outfhandle "save\n", "countdictstack\n", "mark\n", "newpath\n", "/showpage {} def\n", "/setpagedevice {pop} def\n", "%%EndProlog\n", "%%Page 1 1\n"; } $prolog_passed= 1; if (/^%%EndComments/) { next CREATEOUTPUT; } } #endif line is not a comment } #end else } #endif (we are in the prologue section) else #we are in the main part of postscript file { #end of postscript file reached? #Usually the DSC %%EOF signifies the end if ( eof($tmpfhandle) || ($ignoreEOFDSC == 0 && /^%%EOF\s*$/ && $seenEOF == $totalEOFDSC) || ( $trailerseen && /^II\*\000.*/ ) ) { #do not forget to print last line if not terminated by LF if ( eof($tmpfhandle) && !/^$/ && !/^%%EOF\s*$/ ) # do not insert %%EOF twice { print $outfhandle $_,"\n"; } #add appropriate trailer if ($insertPScode) { print $outfhandle "%%Trailer\n", "cleartomark\n", "countdictstack\n", "exch sub { end } repeat\n", "restore\n", "%%EOF\n"; } last CREATEOUTPUT; } # stop output # Trailer comment seen? if ( /^%%Trailer\s*$/ ) { $trailerseen=1; } else { if (!/^\s*$/) #non empty lines follow { $trailerseen=0; } } # check for trigger if (defined($triggerstring) && /^$triggerstring$/) { $trigger= 1; }; # remove complete lines if one of the expression matches if ( !$binarysection # only when not in binary section && ( ($removePreview && (/^%%BeginPreview/ ... /^%%EndPreview/)) || # no preview (defined($rangefilter_begin) && (/$rangefilter_begin/ ... /$rangefilter_end/) && (!(/$exclude_rangefilter_begin/ ... /$exclude_rangefilter_end/)) ) || (defined($triggered_rangefilter_begin) && defined($triggered_rangefilter_end) && $trigger && (/$triggered_rangefilter_begin/ ... /$triggered_rangefilter_end/) ) || /$linefilter/ # lines by linefilter || ($removeDSC && (/^%( |!)(\w )+/ || /^%%([A-Za-z]+\s)/)) # any type of structured comment || ($removeADO && (/^statusdict begin.*ProductName.*print product print.*flush end\r?\n?$/ || /^\(%%\[\s*(Page:.*|LastPage)\s*\]%%\)\s*=\s*\w*\s*\r?\n?/ )) || /^$/ # empty lines ) ) { next CREATEOUTPUT; } # replacement if ( defined($fixsearchpat) ) { #if (/$fixsearchpat/) { print STDERR "**filter** before:",$_,"\n"; } #if (s/$fixsearchpat/$fixreplacepat/) { print STDERR "**filter** after:",$_,"\n";} s/$fixsearchpat/$fixreplacepat/; } # sanity check for potential dangerous commands if ( /(^|\s)(clear|erasepage|initmatrix|initclip|initgraphics|startjob|cleardictstack|setmatrix|setpagedevice|copypage|grestoreall|exitserver|quit)(\s|$)/ ) { $notsane= 1; #print STDERR "Warning: dangerous command in line: ",$_,"\n"; } } # end else (this is main part) # Output the postscript line to result file print $outfhandle $_; if (!$binarysection) { print $outfhandle "\n"; # terminate line with LF } } # end else prolog_passed } # end else inserted_prolog } # end while CREATEOUTPUT close($tmpfhandle); if ($tmpfname ne $infname) { unlink "$tmpfname"; } #remove temporary file close ($outfhandle); # print warning if magic sequence not found if ( $before_startps ) { print STDERR "\n ** Error!! **: could not identify begin of postscript code in file $infname, please check header line!\n First line should start with %!. No output generated.\n"; } if (!$quiet) { print STDERR "ready.\n"; } if ($warnings and $notsane and !$quiet) { print STDERR "** Warning **: EPS-output for $infname is not sane, at least one\n", "of the following commands was still present:\n", "clear erasepage initmatrix initclip initgraphics startjob\n", "cleardictstack setmatrix setpagedevice copypage grestoreall\n", "exitserver quit\n"; } } #end while PROCESSFILE # ---- end of perl-script -------