prepare for restore

git-svn-id: svn://tug.org/texlive/trunk@6988 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 0 insertions, 308 deletions

diff --git a/Master/bin/hppa-hpux/pdfcrop b/Master/bin/hppa-hpux/pdfcrop
deleted file mode 100755
index c7d2319af7a..00000000000
--- a/Master/bin/hppa-hpux/pdfcrop
+++ /dev/null
@@ -1,308 +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 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.txt" 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.5";
-my $date        = "2004/06/24";
-my $author      = "Heiko Oberdiek";
-my $copyright   = "Copyright (c) 2002, 2004 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.
-#
-
-### program identification
-my $title = "$program $version, $date - $copyright\n";
-
-### error strings
-my $Error = "!!! Error:"; # error prefix
-
-### string constants for Ghostscript run
-# get Ghostscript command name
-my $GS = "gs";
-$GS = "gs386"    if $^O =~ /dos/i;
-$GS = "gsos2"    if $^O =~ /os2/i;
-$GS = "gswin32c" if $^O =~ /mswin32/i;
-$GS = "gswin32c" if $^O =~ /cygwin/i;
-
-# Windows detection (no SIGHUP)
-my $Win = 0;
-$Win = 1 if $^O =~ /mswin32/i;
-$Win = 1 if $^O =~ /cygwin/i;
-
-# "null" device
-use File::Spec::Functions qw(devnull);
-my $null = devnull();
-
-### variables
-my $inputfile   = "";
-my $outputfile  = "";
-my $tmp = "tmp-\L$program\E-$$";
-
-### option variables
-my @bool = ("false", "true");
-$::opt_help       = 0;
-$::opt_debug      = 0;
-$::opt_verbose    = 0;
-$::opt_gscmd      = $GS;
-$::opt_pdftexcmd  = "pdftex";
-$::opt_margins    = "0 0 0 0";
-$::opt_clip       = 0;
-$::opt_hires      = 0;
-$::opt_papersize  = "";
-
-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
-  --(no)verbose       verbose printing                      ($bool[$::opt_verbose])
-  --(no)debug         debug informations                    ($bool[$::opt_debug])
-  --gscmd <name>      call of ghostscript                   ($::opt_gscmd)
-  --pdftexcmd <name>  call of pdfTeX                        ($::opt_pdftexcmd)
-  --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])
-  --(no)hires         using `%%HiResBoundingBox'            ($bool[$::opt_hires])
-                      instead of `%%BoundingBox'
-  --papersize <foo>   parameter for gs's -sPAPERSIZE=<foo>,
-                      use only with older gs versions <7.32 ($::opt_papersize)
-Examples:
-  \L$program\E --margins 10 input.pdf output.pdf
-  \L$program\E --margins '5 10 5 20' --clip input.pdf output.pdf
-END_OF_USAGE
-
-### process options
-my @OrgArgv = @ARGV;
-use Getopt::Long;
-GetOptions(
-  "help!",
-  "debug!",
-  "verbose!",
-  "gscmd=s",
-  "pdftexcmd=s",
-  "margins=s",
-  "clip!",
-  "hires!",
-  "papersize=s",
-) or die $usage;
-!$::opt_help or die $usage;
-
-$::opt_verbose = 1 if $::opt_debug;
-
-@ARGV >= 1 or die $usage;
-
-print $title;
-
-@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;
-
-### 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;
-
-### 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
-
-my $cmd = "$::opt_gscmd -sDEVICE=bbox -dBATCH -dNOPAUSE ";
-$cmd .= "-sPAPERSIZE=$::opt_papersize " if $::opt_papersize;
-$cmd .= "-c save pop -f " . $inputfile;
-my $cmdpipe = $cmd . " 2>&1 1>$null |";
-
-my $tmpfile = "$tmp.tex";
-push @unlink_files, $tmpfile;
-open(TMP, ">$tmpfile") or
-    die "$Error Cannot write tmp file `$tmpfile'!\n";
-print TMP "\\def\\pdffile{$inputfile}\n";
-print TMP <<'END_TMP_HEAD';
-\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}%
-}%
-END_TMP_HEAD
-
-print "* Running ghostscript for BoundingBox calculation ...\n"
-    if $::opt_verbose;
-print "* Ghostscript pipe: $cmdpipe\n" if $::opt_debug;
-
-my $page = 0;
-open(CMD, $cmdpipe) or
-    die "$Error Cannot call ghostscript!\n";
-while (<CMD>) {
-    my $bb = ($::opt_hires) ? "%%HiResBoundingBox" : "%%BoundingBox";
-    next unless
-        /^$bb:\s*([\.\d]+) ([\.\d]+) ([\.\d]+) ([\.\d]+)/o;
-    $page++;
-    print "* Page $page: $1 $2 $3 $4\n" if $::opt_verbose;
-    if ($::opt_clip) {
-        print TMP "\\pageclip $page [$1 $2 $3 $4][$llx $lly $urx $ury]\n";
-    }
-    else {
-        my ($a, $b, $c, $d) = ($1 - $llx, $2 - $ury, $3 + $urx, $4 + $lly);
-        print TMP "\\page $page [$a $b $c $d]\n";
-    }
-}
-close(CMD);
-
-print TMP "\\csname \@\@end\\endcsname\n\\end\n";
-close(TMP);
-
-### Run pdfTeX
-
-push @unlink_files, "$tmp.log";
-if ($::opt_verbose) {
-    $cmd = "$::opt_pdftexcmd -interaction=nonstopmode $tmp";
-}
-else {
-    $cmd = "$::opt_pdftexcmd -interaction=batchmode $tmp";
-}
-print "* Running pdfTeX ...\n" if $::opt_verbose;
-print "* pdfTeX call: $cmd\n" if $::opt_debug;
-if ($::opt_verbose) {
-    system($cmd);
-}
-else {
-    `$cmd`;
-}
-if ($?) {
-    die "$Error pdfTeX run failed!\n";
-}
-
-### Move temp file to output
-rename "$tmp.pdf", $outputfile or
-    die "$Error Cannot move `$tmp.pdf' to `$outputfile'!\n";
-
-print "==> $page pages written on `$outputfile'.\n";
-
-$exit_code = 0;
-cleanup();
-
-__END__