summaryrefslogtreecommitdiff
path: root/Build/source/texk/texlive/linked_scripts/pdfcrop/pdfcrop.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/texlive/linked_scripts/pdfcrop/pdfcrop.pl')
-rwxr-xr-xBuild/source/texk/texlive/linked_scripts/pdfcrop/pdfcrop.pl756
1 files changed, 0 insertions, 756 deletions
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] <input[.pdf]> [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 <name> call of ghostscript ($::opt_gscmd)
- --pdftex | --xetex | --luatex
- use pdfTeX | use XeTeX | use LuaTeX ($::opt_tex)
- --pdftexcmd <name> call of pdfTeX ($::opt_pdftexcmd)
- --xetexcmd <name> call of XeTeX ($::opt_xetexcmd)
- --luatexcmd <name> call of LuaTeX ($::opt_luatexcmd)
- --margins "<left> <top> <right> <bottom>" ($::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 <foo> parameter for gs's -sPAPERSIZE=<foo>,
- use only with older gs versions <7.32 ($::opt_papersize)
- --resolution <xres>x<yres> ()
- --resolution <res> pass argument to ghostscript's option -r
- Example: --resolution 72
- --bbox "<left> <bottom> <right> <top>" ()
- 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 (<GS>) {
- 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__