From 09c06007c38c5bd1bfe5a3b367fe3a273277da8d Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 8 Sep 2010 23:09:42 +0000 Subject: pdfcrop 1.29 (26aug10ff.) git-svn-id: svn://tug.org/texlive/trunk@19616 c570f23f-e606-0410-a88d-b1316a301751 --- .../texk/texlive/linked_scripts/pdfcrop/pdfcrop.pl | 756 --------------------- 1 file changed, 756 deletions(-) (limited to 'Build') diff --git a/Build/source/texk/texlive/linked_scripts/pdfcrop/pdfcrop.pl b/Build/source/texk/texlive/linked_scripts/pdfcrop/pdfcrop.pl index 16ff326b71d..e69de29bb2d 100755 --- a/Build/source/texk/texlive/linked_scripts/pdfcrop/pdfcrop.pl +++ b/Build/source/texk/texlive/linked_scripts/pdfcrop/pdfcrop.pl @@ -1,756 +0,0 @@ -eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $argv:q' - if 0; -use strict; -$^W=1; # turn warning on -# -# pdfcrop.pl -# -# Copyright (C) 2002, 2004, 2005, 2008, 2009 Heiko Oberdiek. -# -# This program may be distributed and/or modified under the -# conditions of the LaTeX Project Public License, either version 1.2 -# of this license or (at your option) any later version. -# The latest version of this license is in -# http://www.latex-project.org/lppl.txt -# and version 1.2 or later is part of all distributions of LaTeX -# version 1999/12/01 or later. -# -# See file "README" for a list of files that belong to this project. -# -# This file "pdfcrop.pl" may be renamed to "pdfcrop" -# for installation purposes. -# -my $file = "pdfcrop.pl"; -my $program = uc($&) if $file =~ /^\w+/; -my $version = "1.22"; -my $date = "2009/12/29"; -my $author = "Heiko Oberdiek"; -my $copyright = "Copyright (c) 2002-2009 by $author."; -# -# Reqirements: Perl5, Ghostscript -# History: -# 2002/10/30 v1.0: First release. -# 2002/10/30 v1.1: Option --hires added. -# 2002/11/04 v1.2: "nul" instead of "/dev/null" for windows. -# 2002/11/23 v1.3: Use of File::Spec module's "devnull" call. -# 2002/11/29 v1.4: Option --papersize added. -# 2004/06/24 v1.5: Clear map file entries so that pdfTeX -# does not touch the fonts. -# 2004/06/26 v1.6: Use mgs.exe instead of gswin32c.exe for MIKTEX. -# 2005/03/11 v1.7: Support of spaces in file names -# (open("-|") is used for ghostscript call). -# 2008/01/09 v1.8: Fix for moving the temporary file to the output -# file across file system boundaries. -# 2008/04/05 v1.9: Options --resolution and --bbox added. -# 2008/07/16 v1.10: Support for XeTeX added with new options -# --pdftex, --xetex, and --xetexcmd. -# 2008/07/22 v1.11: Workaround for open("-|"). -# 2008/07/23 v1.12: Workarounds for the workaround (error detection, ...). -# 2008/07/24 v1.13: open("-|")/workaround removed. -# Input files with unsafe file names are linked/copied -# to temporary file with safe file name. -# 2008/09/12 v1.14: Error detection for invalid Bounding Boxes. -# 2009/07/14 v1.15: Fix for negative coordinates in Bounding Boxes -# (David Menestrina). -# 2009/07/16 v1.16: Security fixes: -# * -dSAFER added for Ghostscript, -# * -no-shell-escape added for pdfTeX/XeTeX. -# 2009/07/17 v1.17: Security fixes: -# * Backticks and whitespace are forbidden -# for options --(gs|pdftex|xetex)cmd. -# * Validation of options --papersize and --resolution. -# 2009/07/18 v1.18: * Restricted mode added. -# * Option --version added. -# 2009/09/24 v1.19: * Ghostscript detection rewritten. -# * Cygwin: `gs' is preferred to `gswin32c'. -# 2009/10/06 v1.20: * File name sanitizing in .tex file. -# 2009/12/21 v1.21: * Option --ini added for IniTeX mode. -# * Option --luatex and --luatexcmd added for LuaTeX. -# 2009/12/29 v1.22: * Syntax description for option --bbox fixed -# (Lukas Prochazka). - -### program identification -my $title = "$program $version, $date - $copyright\n"; - -### error strings -my $Error = "!!! Error:"; # error prefix - -### make ENV safer -delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; - -### string constants for Ghostscript run -# get Ghostscript command name -$::opt_gscmd = ''; -sub find_ghostscript () { - return if $::opt_gscmd; - my $system = 'unix'; - $system = "dos" if $^O =~ /dos/i; - $system = "os2" if $^O =~ /os2/i; - $system = "win" if $^O =~ /mswin32/i; - $system = "cygwin" if $^O =~ /cygwin/i; - $system = "miktex" if defined($ENV{"TEXSYSTEM"}) and - $ENV{"TEXSYSTEM"} =~ /miktex/i; - print "* System: $system\n" if $::opt_debug; - my %candidates = ( - 'unix' => [qw|gs gsc|], - 'dos' => [qw|gs386 gs|], - 'os2' => [qw|gsos2 gs|], - 'win' => [qw|gswin32c gs|], - 'cygwin' => [qw|gs gswin32c|], - 'miktex' => [qw|mgs gswin32c gs|] - ); - my %ext = ( - 'unix' => '', - 'dos' => '.exe', - 'os2' => '.exe', - 'win' => '.exe', - 'cygwin' => '.exe', - 'miktex' => '.exe' - ); - my $candidates_ref = $candidates{$system}; - my $ext = $ext{$system}; - use File::Spec; - my @path = File::Spec->path(); - my $found = 0; - foreach my $candidate (@$candidates_ref) { - foreach my $dir (@path) { - my $file = File::Spec->catfile($dir, "$candidate$ext"); - if (-x $file) { - $::opt_gscmd = $candidate; - $found = 1; - print "* Found ($candidate): $file\n" if $::opt_debug; - last; - } - print "* Not found ($candidate): $file\n" if $::opt_debug; - } - last if $found; - } - if ($found) { - print "* Autodetected ghostscript command: $::opt_gscmd\n" if $::opt_debug; - } - else { - $::opt_gscmd = $$candidates_ref[0]; - print "* Default ghostscript command: $::opt_gscmd\n" if $::opt_debug; - } -} - -# Windows detection (no SIGHUP) -my $Win = 0; -$Win = 1 if $^O =~ /mswin32/i; -$Win = 1 if $^O =~ /cygwin/i; - -# restricted mode -my $restricted = 0; -if ($0 =~ /rpdfcrop/ or $0 =~ /restricted/) { - $restricted = 1; -} - -# "null" device -use File::Spec::Functions qw(devnull); -my $null = devnull(); - -### variables -my $inputfile = ""; -my $outputfile = ""; -my $tmp = "tmp-\L$program\E-$$"; - -### paper sizes - -my @papersizes = qw[ - 11x17 ledger legal letter lettersmall - archE archD archC archB archA - a0 a1 a2 a3 a4 a4small a5 a6 a7 a8 a9 a10 - isob0 isob1 isob2 isob3 isob4 isob5 isob6 - c0 c1 c2 c3 c4 c5 c6 - jisb0 jisb1 jisb2 jisb3 jisb4 jisb5 jisb6 - b0 b1 b2 b3 b4 b5 - flsa flse halfletter -]; -my %papersizes; -foreach (@papersizes) { - $papersizes{$_} = 1; -} - -### option variables -my @bool = ("false", "true"); -$::opt_version = 0; -$::opt_help = 0; -$::opt_debug = 0; -$::opt_verbose = 0; -$::opt_pdftexcmd = "pdftex"; -$::opt_xetexcmd = "xetex"; -$::opt_luatexcmd = "luatex"; -$::opt_tex = "pdftex"; -$::opt_margins = "0 0 0 0"; -$::opt_clip = 0; -$::opt_hires = 0; -$::opt_papersize = ""; -$::opt_resolution = ""; -$::opt_bbox = ""; -$::opt_initex = 0; - -sub usage ($) { - my $ret = shift; - find_ghostscript(); - my $usage = <<"END_OF_USAGE"; -${title}Syntax: \L$program\E [options] [output file] -Function: Margins are calculated and removed for each page in the file. -Options: (defaults:) - --help print usage - --version print version number - --(no)verbose verbose printing ($bool[$::opt_verbose]) - --(no)debug debug informations ($bool[$::opt_debug]) - --gscmd call of ghostscript ($::opt_gscmd) - --pdftex | --xetex | --luatex - use pdfTeX | use XeTeX | use LuaTeX ($::opt_tex) - --pdftexcmd call of pdfTeX ($::opt_pdftexcmd) - --xetexcmd call of XeTeX ($::opt_xetexcmd) - --luatexcmd call of LuaTeX ($::opt_luatexcmd) - --margins " " ($::opt_margins) - add extra margins, unit is bp. If only one number is - given, then it is used for all margins, in the case - of two numbers they are also used for right and bottom. - --(no)clip clipping support, if margins are set ($bool[$::opt_clip]) - (not available for --xetex) - --(no)hires using `%%HiResBoundingBox' ($bool[$::opt_hires]) - instead of `%%BoundingBox' - --(no)ini use iniTeX variant of the TeX compiler ($bool[$::opt_initex]) -Expert options: - --restricted turn on restricted mode ($bool[$restricted]) - --papersize parameter for gs's -sPAPERSIZE=, - use only with older gs versions <7.32 ($::opt_papersize) - --resolution x () - --resolution pass argument to ghostscript's option -r - Example: --resolution 72 - --bbox " " () - override bounding box found by ghostscript - with origin at the lower left corner -Examples: - \L$program\E --margins 10 input.pdf output.pdf - \L$program\E --margins '5 10 5 20' --clip input.pdf output.pdf -In case of errors: - Try option --verbose first to get more information. -In case of bugs: - Please, use option --debug for bug reports. -END_OF_USAGE - if ($ret) { - die $usage; - } - else { - print $usage; - exit(0); - } -} - -### process options -my @OrgArgv = @ARGV; -use Getopt::Long; -GetOptions( - "help!", - "version!", - "debug!", - "verbose!", - "gscmd=s", - "pdftexcmd=s", - "xetexcmd=s", - "luatexcmd=s", - "pdftex" => sub { $::opt_tex = 'pdftex'; }, - "xetex" => sub { $::opt_tex = 'xetex'; }, - "luatex" => sub { $::opt_tex = 'luatex'; }, - "initex!", - "margins=s", - "clip!", - "hires!", - "papersize=s", - "resolution=s", - "bbox=s", - "restricted" => sub { $restricted = 1; }, -) or usage(1); -!$::opt_help or usage(0); - -if ($::opt_version) { - print "$version\n"; - exit(0); -} - -$::opt_verbose = 1 if $::opt_debug; - -@ARGV >= 1 or usage(1); - -print $title; - -find_ghostscript(); - -if ($::opt_bbox) { - $::opt_bbox =~ s/^\s+//; - $::opt_bbox =~ s/\s+$//; - $::opt_bbox =~ s/\s+/ /; - if ($::opt_bbox =~ /^-?\d*\.?\d+ -?\d*\.?\d+ -?\d*\.?\d+ -?\d*\.?\d+$/) { - print "* Explicite Bounding Box: $::opt_bbox\n" if $::opt_debug; - } - else { - die "$Error Parse error (option --bbox \"$::opt_bbox\")!\n"; - } -} - -@ARGV <= 2 or die "$Error Too many files!\n"; - -### input file -$inputfile = shift @ARGV; - -if (! -f $inputfile) { - if (-f "$inputfile.pdf") { - $inputfile .= ".pdf"; - } - else { - die "$Error Input file `$inputfile' not found!\n"; - } -} - -print "* Input file: $inputfile\n" if $::opt_debug; - -### output file -if (@ARGV) { - $outputfile = shift @ARGV; -} -else { - $outputfile = $inputfile; - $outputfile =~ s/\.pdf$//i; - $outputfile .= "-crop.pdf"; -} - -print "* Output file: $outputfile\n" if $::opt_debug; - -if (($::opt_tex eq 'xetex') && $::opt_clip) { - die "$Error No clipping support for XeTeX!\n"; -} - -### margins -my ($llx, $lly, $urx, $ury) = (0, 0, 0, 0); -if ($::opt_margins =~ - /^\s*([\-\.\d]+)\s+([\-\.\d]+)\s+([\-\.\d]+)\s+([\-\.\d]+)\s*$/) { - ($llx, $lly, $urx, $ury) = ($1, $2, $3, $4); -} -else { - if ($::opt_margins =~ /^\s*([\-\.\d]+)\s+([\-\.\d]+)\s*$/) { - ($llx, $lly, $urx, $ury) = ($1, $2, $1, $2); - } - else { - if ($::opt_margins =~ /^\s*([\-\.\d]+)\s*$/) { - ($llx, $lly, $urx, $ury) = ($1, $1, $1, $1); - } - else { - die "$Error Parse error (option --margins)!\n"; - } - } -} -print "* Margins: $llx $lly $urx $ury\n" if $::opt_debug; - -### papersize validation (security) -if ($::opt_papersize ne '') { - $::opt_papersize =~ /^[0-9A-Za-z]+$/ - or die "$Error Invalid papersize ($::opt_papersize)!\n"; - $papersizes{$::opt_papersize} - or die "$Error Unknown papersize ($::opt_papersize)," - . " see ghostscript's documentation for option `-r'!\n"; -} - -### resolution validation (security) -if ($::opt_resolution ne '') { - $::opt_resolution =~ /^\d+(x\d+)?$/ - or die "$Error Invalid resolution ($::opt_resolution)," - . " see ghostscript's documentation!\n"; -} - -### command name validation (security) -my %cmd = ( - 'gscmd' => \$::opt_gscmd, - 'pdftexcmd' => \$::opt_pdftexcmd, - 'luatexcmd' => \$::opt_luatexcmd, - 'xetexcmd' => \$::opt_xetexcmd -); -foreach my $cmd (keys %cmd) { - my $val = ${$cmd{$cmd}}; - next unless $val; - $val =~ s/^\s+//; - $val =~ s/\s+$//; - next unless $val; - if ($val =~ /`/) { - die "$Error Forbidden backtick for option `--$cmd' ($val)!\n"; - } - if ($val =~ /\s/) { - die "$Error Forbidden whitespace for option `--$cmd' ($val)!\n"; - } -} -if ($restricted) { - if ($::opt_pdftexcmd and $::opt_pdftexcmd ne 'pdftex') { - die "$Error pdfTeX program name must not be changed in restricted mode!\n"; - } - if ($::opt_xetexcmd and $::opt_xetexcmd ne 'xetex') { - die "$Error XeTeX program name must not be changed in restricted mode!\n"; - } - if ($::opt_luatexcmd and $::opt_luatexcmd ne 'luatex') { - die "$Error LuaTeX program name must not be changed in restricted mode!\n"; - } - if ($::opt_gscmd) { - $::opt_gscmd =~ /^(gs|mgs|gswin32c|gs386|gsos2)$/ - or $::opt_gscmd =~ /^gs[\-_]?(\d|\d[\.-_]?\d\d)c?$/ - or die "$Error: Invalid Ghostscript program name in restricted mode!\n"; - } -} - -### cleanup system -my @unlink_files = (); -my $exit_code = 1; -sub clean { - print "* Cleanup\n" if $::opt_debug; - if ($::opt_debug) { - print "* Temporary files: @unlink_files\n"; - } - else { - for (; @unlink_files>0; ) { - unlink shift @unlink_files; - } - } -} -sub cleanup { - clean(); - exit($exit_code); -} -$SIG{'INT'} = \&cleanup; -$SIG{'__DIE__'} = \&clean; - -### Calculation of BoundingBoxes - -# use safe file name for use within cmd line of gs (unknown shell: space, ...) -# and pdfTeX (dollar, ...) -my $inputfilesafe = $inputfile; -if ($inputfile =~ /[\s\$~'"]/) { - $inputfilesafe = "$tmp-img.pdf"; - push @unlink_files, $inputfilesafe; - my $symlink_exists = eval { symlink("", ""); 1 }; - print "* Input file name `$inputfile' contains special characters.\n" - . "* " . ($symlink_exists ? "Link" : "Copy") - . " input file to temporary file `$inputfilesafe'.\n" - if $::opt_verbose; - if ($symlink_exists) { - symlink($inputfile, $inputfilesafe) - or die "$Error Link from `$inputfile' to" - . " `$inputfilesafe' failed: $!\n"; - } - else { - use File::Copy; - copy($inputfile, $inputfilesafe) - or die "$Error Copy from `$inputfile' to" - . " `$inputfilesafe' failed: $!\n"; - } -} - -my @gsargs = ( - "-sDEVICE=bbox", - "-dBATCH", - "-dNOPAUSE" -); -push @gsargs, "-sPAPERSIZE=$::opt_papersize" if $::opt_papersize; -push @gsargs, "-r$::opt_resolution" if $::opt_resolution; -push @gsargs, - "-c", - "save", - "pop", - "-f", - $inputfilesafe -; - -my $tmpfile = "$tmp.tex"; -push @unlink_files, $tmpfile; -open(TMP, ">$tmpfile") or - die "$Error Cannot write tmp file `$tmpfile'!\n"; -print TMP <<'END_TMP'; -\catcode`\{=1 % -\catcode`\}=2 % -\catcode`\#=6 % -END_TMP -print TMP "\\def\\pdffile{$inputfilesafe}\n"; -print TMP <<'END_TMP'; -\def\stripprefix#1>{} -\def\onelevelsanitize#1{% - \edef#1{\expandafter\stripprefix\meaning#1}% -} -\onelevelsanitize\pdffile -END_TMP -if ($::opt_tex eq 'luatex') { - print TMP <<'END_TMP'; -\begingroup\expandafter\expandafter\expandafter\endgroup -\expandafter\ifx\csname directlua\endcsname\relax - \errmessage{LuaTeX not found!}% -\else - \begingroup - \newlinechar=10 % - \endlinechar=\newlinechar % - \ifnum0% - \directlua{% - if tex.enableprimitives then - tex.enableprimitives('TEST', { - 'luatexversion', - 'pdfoutput', - 'pdfcompresslevel', - 'pdfhorigin', - 'pdfvorigin', - 'pdfpagewidth', - 'pdfpageheight', - 'pdfmapfile', - 'pdfximage', - 'pdflastximage', - 'pdfrefximage' - }) - tex.print('1') - end - }% - \ifx\TESTluatexversion\UnDeFiNeD\else 1\fi % - =11 % - \global\let\luatexversion\luatexversion - \global\let\pdfoutput\TESTpdfoutput - \global\let\pdfcompresslevel\TESTpdfcompresslevel - \global\let\pdfhorigin\TESTpdfhorigin - \global\let\pdfvorigin\TESTpdfvorigin - \global\let\pdfpagewidth\TESTpdfpagewidth - \global\let\pdfpageheight\TESTpdfpageheight - \global\let\pdfmapfile\TESTpdfmapfile - \global\let\pdfximage\TESTpdfximage - \global\let\pdflastximage\TESTpdflastximage - \global\let\pdfrefximage\TESTpdfrefximage - \else % - \errmessage{% - Missing \string\luatexversion % - }% - \fi % - \endgroup % -\fi -END_TMP -} -if ($::opt_tex eq 'pdftex' or $::opt_tex eq 'luatex') { - print TMP <<'END_TMP_HEAD'; -\pdfoutput=1 % -\pdfcompresslevel=9 % -\csname pdfmapfile\endcsname{} -\def\page #1 [#2 #3 #4 #5]{% - \count0=#1\relax - \setbox0=\hbox{% - \pdfximage page #1{\pdffile}% - \pdfrefximage\pdflastximage - }% - \pdfhorigin=-#2bp\relax - \pdfvorigin=#3bp\relax - \pdfpagewidth=#4bp\relax - \advance\pdfpagewidth by -#2bp\relax - \pdfpageheight=#5bp\relax - \advance\pdfpageheight by -#3bp\relax - \ht0=\pdfpageheight - \shipout\box0\relax -} -\def\pageclip #1 [#2 #3 #4 #5][#6 #7 #8 #9]{% - \count0=#1\relax - \dimen0=#4bp\relax \advance\dimen0 by -#2bp\relax - \edef\imagewidth{\the\dimen0}% - \dimen0=#5bp\relax \advance\dimen0 by -#3bp\relax - \edef\imageheight{\the\dimen0}% - \pdfximage page #1{\pdffile}% - \setbox0=\hbox{% - \kern -#2bp\relax - \lower #3bp\hbox{\pdfrefximage\pdflastximage}% - }% - \wd0=\imagewidth\relax - \ht0=\imageheight\relax - \dp0=0pt\relax - \pdfhorigin=#6pt\relax - \pdfvorigin=#7bp\relax - \pdfpagewidth=\imagewidth - \advance\pdfpagewidth by #6bp\relax - \advance\pdfpagewidth by #8bp\relax - \pdfpageheight=\imageheight\relax - \advance\pdfpageheight by #7bp\relax - \advance\pdfpageheight by #9bp\relax - \pdfxform0\relax - \shipout\hbox{\pdfrefxform\pdflastxform}% -}% -\def\pageinclude#1{% - \pdfhorigin=0pt\relax - \pdfvorigin=0pt\relax - \pdfximage page #1{\pdffile}% - \setbox0=\hbox{\pdfrefximage\pdflastximage}% - \pdfpagewidth=\wd0\relax - \pdfpageheight=\ht0\relax - \advance\pdfpageheight by \dp0\relax - \shipout\hbox{% - \raise\dp0\box0\relax - }% -} -END_TMP_HEAD -} -else { # XeTeX - print TMP <<'END_TMP_HEAD'; -\expandafter\ifx\csname XeTeXpdffile\endcsname\relax - \errmessage{XeTeX not found or too old!}% -\fi -\def\page #1 [#2 #3 #4 #5]{% - \count0=#1\relax - \setbox0=\hbox{% - \XeTeXpdffile "\pdffile" page #1% - }% - \pdfpagewidth=#4bp\relax - \advance\pdfpagewidth by -#2bp\relax - \pdfpageheight=#5bp\relax - \advance\pdfpageheight by -#3bp\relax - \shipout\hbox{% - \kern-1in% - \kern-#2bp% - \vbox{% - \kern-1in% - \kern#3bp% - \ht0=\pdfpageheight - \box0 % - }% - }% -} -END_TMP_HEAD -} - -print "* Running ghostscript for BoundingBox calculation ...\n" - if $::opt_verbose; -print "* Ghostscript call: $::opt_gscmd @gsargs\n" if $::opt_debug; - -my @bbox; -if ($::opt_bbox) { - $::opt_bbox =~ /([-\d\.]+) ([-\d\.]+) ([-\d\.]+) ([-\d\.]+)/; - @bbox = ($1, $2, $3, $4); -} -my $page = 0; -my $gs_pipe = "$::opt_gscmd -dSAFER @gsargs 2>&1"; -$gs_pipe .= " 1>$null" unless $::opt_verbose; -$gs_pipe .= "|"; - -open(GS, $gs_pipe) or - die "$Error Cannot call ghostscript ($::opt_gscmd)!\n"; -my $bb = ($::opt_hires) ? "%%HiResBoundingBox" : "%%BoundingBox"; -while () { - print $_ if $::opt_verbose; - next unless - /^$bb:\s*(-?[\.\d]+) (-?[\.\d]+) (-?[\.\d]+) (-?[\.\d]+)/o; - @bbox = ($1, $2, $3, $4) unless $::opt_bbox; - $page++; - - my $empty = 0; - $empty = 1 if $bbox[0] >= $bbox[2]; - $empty = 1 if $bbox[1] >= $bbox[3]; - if ($empty) { - print <<"END_WARNING"; - -!!! Warning: Empty Bounding Box is returned by Ghostscript! -!!! Page $page: @bbox -!!! Either there is a problem with the page or with Ghostscript. -!!! Recovery is tried by embedding the page in its original size. - -END_WARNING - print TMP "\\pageinclude{$page}\n"; - next; - } - - print "* Page $page: @bbox\n" if $::opt_verbose; - - my @bb = ($bbox[0] - $llx, $bbox[1] - $ury, - $bbox[2] + $urx, $bbox[3] + $lly); - - $empty = 0; - $empty = 1 if $bb[0] >= $bb[2]; - $empty = 1 if $bb[1] >= $bb[3]; - if ($empty) { - print <<"END_WARNING"; - -!!! Warning: The final Bounding Box is empty! -!!! Page: $page: @bb -!!! Probably caused by too large negative margin values. -!!! Recovery by ignoring margin values. - -END_WARNING - print TMP "\\page $page [@bbox]\n"; - # clipping shouldn't make a difference - next; - } - if ($::opt_clip) { - print TMP "\\pageclip $page [@bbox][$llx $lly $urx $ury]\n"; - } - else { - print TMP "\\page $page [@bb]\n"; - } -} -close(GS); - -if ($? & 127) { - die sprintf "$Error Ghostscript died with signal %d!\n", - ($? & 127); -} -elsif ($? != 0) { - die sprintf "$Error Ghostscript exited with error code %d!\n", - $? >> 8; -} - -print TMP "\\csname \@\@end\\endcsname\n\\end\n"; -close(TMP); - -if ($page == 0) { - die "$Error Ghostscript does not report bounding boxes!\n"; -} - -### Run pdfTeX/XeTeX - -push @unlink_files, "$tmp.log"; -my $cmd; -my $texname; -if ($::opt_tex eq 'pdftex') { - $cmd = $::opt_pdftexcmd; - $texname = 'pdfTeX'; -} -elsif ($::opt_tex eq 'luatex') { - $cmd =$::opt_luatexcmd; - $texname = 'LuaTeX'; -} -else { - $cmd = $::opt_xetexcmd; - $texname = 'XeTeX'; -} -$cmd .= ' -no-shell-escape'; -if ($::opt_initex) { - $cmd .= ' --ini --etex'; -} -if ($::opt_verbose) { - $cmd .= " -interaction=nonstopmode $tmp"; -} -else { - $cmd .= " -interaction=batchmode $tmp"; -} -print "* Running $texname ...\n" if $::opt_verbose; -print "* $texname call: $cmd\n" if $::opt_debug; -if ($::opt_verbose) { - system($cmd); -} -else { - `$cmd`; -} -if ($?) { - die "$Error $texname run failed!\n"; -} - -### Move temp file to output -if (!rename("$tmp.pdf", $outputfile)) { - use File::Copy; - move "$tmp.pdf", $outputfile or - die "$Error Cannot move `$tmp.pdf' to `$outputfile'!\n"; -} - -print "==> $page page", (($page == 1) ? "" : "s"), - " written on `$outputfile'.\n"; - -$exit_code = 0; -cleanup(); - -__END__ -- cgit v1.2.3