summaryrefslogtreecommitdiff
path: root/support
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2020-06-07 03:03:23 +0000
committerNorbert Preining <norbert@preining.info>2020-06-07 03:03:23 +0000
commit666248863665f4318b13e1c1b7a2b94ef90a8b9a (patch)
tree9e682f3dd1e75d918244c2e0d615e58850a0e1e4 /support
parent527cbc8280407d055d185ad11f79b81b032eec7e (diff)
CTAN sync 202006070303
Diffstat (limited to 'support')
-rw-r--r--support/pdfcrop/LICENCE416
-rw-r--r--support/pdfcrop/README259
-rw-r--r--support/pdfcrop/README.md261
-rwxr-xr-xsupport/pdfcrop/pdfcrop.pl206
4 files changed, 805 insertions, 337 deletions
diff --git a/support/pdfcrop/LICENCE b/support/pdfcrop/LICENCE
new file mode 100644
index 0000000000..2244313901
--- /dev/null
+++ b/support/pdfcrop/LICENCE
@@ -0,0 +1,416 @@
+The LaTeX Project Public License
+=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+LPPL Version 1.3c 2008-05-04
+
+Copyright 1999 2002-2008 LaTeX3 Project
+ Everyone is allowed to distribute verbatim copies of this
+ license document, but modification of it is not allowed.
+
+
+PREAMBLE
+========
+
+The LaTeX Project Public License (LPPL) is the primary license under
+which the LaTeX kernel and the base LaTeX packages are distributed.
+
+You may use this license for any work of which you hold the copyright
+and which you wish to distribute. This license may be particularly
+suitable if your work is TeX-related (such as a LaTeX package), but
+it is written in such a way that you can use it even if your work is
+unrelated to TeX.
+
+The section `WHETHER AND HOW TO DISTRIBUTE WORKS UNDER THIS LICENSE',
+below, gives instructions, examples, and recommendations for authors
+who are considering distributing their works under this license.
+
+This license gives conditions under which a work may be distributed
+and modified, as well as conditions under which modified versions of
+that work may be distributed.
+
+We, the LaTeX3 Project, believe that the conditions below give you
+the freedom to make and distribute modified versions of your work
+that conform with whatever technical specifications you wish while
+maintaining the availability, integrity, and reliability of
+that work. If you do not see how to achieve your goal while
+meeting these conditions, then read the document `cfgguide.tex'
+and `modguide.tex' in the base LaTeX distribution for suggestions.
+
+
+DEFINITIONS
+===========
+
+In this license document the following terms are used:
+
+ `Work'
+ Any work being distributed under this License.
+
+ `Derived Work'
+ Any work that under any applicable law is derived from the Work.
+
+ `Modification'
+ Any procedure that produces a Derived Work under any applicable
+ law -- for example, the production of a file containing an
+ original file associated with the Work or a significant portion of
+ such a file, either verbatim or with modifications and/or
+ translated into another language.
+
+ `Modify'
+ To apply any procedure that produces a Derived Work under any
+ applicable law.
+
+ `Distribution'
+ Making copies of the Work available from one person to another, in
+ whole or in part. Distribution includes (but is not limited to)
+ making any electronic components of the Work accessible by
+ file transfer protocols such as FTP or HTTP or by shared file
+ systems such as Sun's Network File System (NFS).
+
+ `Compiled Work'
+ A version of the Work that has been processed into a form where it
+ is directly usable on a computer system. This processing may
+ include using installation facilities provided by the Work,
+ transformations of the Work, copying of components of the Work, or
+ other activities. Note that modification of any installation
+ facilities provided by the Work constitutes modification of the Work.
+
+ `Current Maintainer'
+ A person or persons nominated as such within the Work. If there is
+ no such explicit nomination then it is the `Copyright Holder' under
+ any applicable law.
+
+ `Base Interpreter'
+ A program or process that is normally needed for running or
+ interpreting a part or the whole of the Work.
+
+ A Base Interpreter may depend on external components but these
+ are not considered part of the Base Interpreter provided that each
+ external component clearly identifies itself whenever it is used
+ interactively. Unless explicitly specified when applying the
+ license to the Work, the only applicable Base Interpreter is a
+ `LaTeX-Format' or in the case of files belonging to the
+ `LaTeX-format' a program implementing the `TeX language'.
+
+
+
+CONDITIONS ON DISTRIBUTION AND MODIFICATION
+===========================================
+
+1. Activities other than distribution and/or modification of the Work
+are not covered by this license; they are outside its scope. In
+particular, the act of running the Work is not restricted and no
+requirements are made concerning any offers of support for the Work.
+
+2. You may distribute a complete, unmodified copy of the Work as you
+received it. Distribution of only part of the Work is considered
+modification of the Work, and no right to distribute such a Derived
+Work may be assumed under the terms of this clause.
+
+3. You may distribute a Compiled Work that has been generated from a
+complete, unmodified copy of the Work as distributed under Clause 2
+above, as long as that Compiled Work is distributed in such a way that
+the recipients may install the Compiled Work on their system exactly
+as it would have been installed if they generated a Compiled Work
+directly from the Work.
+
+4. If you are the Current Maintainer of the Work, you may, without
+restriction, modify the Work, thus creating a Derived Work. You may
+also distribute the Derived Work without restriction, including
+Compiled Works generated from the Derived Work. Derived Works
+distributed in this manner by the Current Maintainer are considered to
+be updated versions of the Work.
+
+5. If you are not the Current Maintainer of the Work, you may modify
+your copy of the Work, thus creating a Derived Work based on the Work,
+and compile this Derived Work, thus creating a Compiled Work based on
+the Derived Work.
+
+6. If you are not the Current Maintainer of the Work, you may
+distribute a Derived Work provided the following conditions are met
+for every component of the Work unless that component clearly states
+in the copyright notice that it is exempt from that condition. Only
+the Current Maintainer is allowed to add such statements of exemption
+to a component of the Work.
+
+ a. If a component of this Derived Work can be a direct replacement
+ for a component of the Work when that component is used with the
+ Base Interpreter, then, wherever this component of the Work
+ identifies itself to the user when used interactively with that
+ Base Interpreter, the replacement component of this Derived Work
+ clearly and unambiguously identifies itself as a modified version
+ of this component to the user when used interactively with that
+ Base Interpreter.
+
+ b. Every component of the Derived Work contains prominent notices
+ detailing the nature of the changes to that component, or a
+ prominent reference to another file that is distributed as part
+ of the Derived Work and that contains a complete and accurate log
+ of the changes.
+
+ c. No information in the Derived Work implies that any persons,
+ including (but not limited to) the authors of the original version
+ of the Work, provide any support, including (but not limited to)
+ the reporting and handling of errors, to recipients of the
+ Derived Work unless those persons have stated explicitly that
+ they do provide such support for the Derived Work.
+
+ d. You distribute at least one of the following with the Derived Work:
+
+ 1. A complete, unmodified copy of the Work;
+ if your distribution of a modified component is made by
+ offering access to copy the modified component from a
+ designated place, then offering equivalent access to copy
+ the Work from the same or some similar place meets this
+ condition, even though third parties are not compelled to
+ copy the Work along with the modified component;
+
+ 2. Information that is sufficient to obtain a complete,
+ unmodified copy of the Work.
+
+7. If you are not the Current Maintainer of the Work, you may
+distribute a Compiled Work generated from a Derived Work, as long as
+the Derived Work is distributed to all recipients of the Compiled
+Work, and as long as the conditions of Clause 6, above, are met with
+regard to the Derived Work.
+
+8. The conditions above are not intended to prohibit, and hence do not
+apply to, the modification, by any method, of any component so that it
+becomes identical to an updated version of that component of the Work as
+it is distributed by the Current Maintainer under Clause 4, above.
+
+9. Distribution of the Work or any Derived Work in an alternative
+format, where the Work or that Derived Work (in whole or in part) is
+then produced by applying some process to that format, does not relax or
+nullify any sections of this license as they pertain to the results of
+applying that process.
+
+10. a. A Derived Work may be distributed under a different license
+ provided that license itself honors the conditions listed in
+ Clause 6 above, in regard to the Work, though it does not have
+ to honor the rest of the conditions in this license.
+
+ b. If a Derived Work is distributed under a different license, that
+ Derived Work must provide sufficient documentation as part of
+ itself to allow each recipient of that Derived Work to honor the
+ restrictions in Clause 6 above, concerning changes from the Work.
+
+11. This license places no restrictions on works that are unrelated to
+the Work, nor does this license place any restrictions on aggregating
+such works with the Work by any means.
+
+12. Nothing in this license is intended to, or may be used to, prevent
+complete compliance by all parties with all applicable laws.
+
+
+NO WARRANTY
+===========
+
+There is no warranty for the Work. Except when otherwise stated in
+writing, the Copyright Holder provides the Work `as is', without
+warranty of any kind, either expressed or implied, including, but not
+limited to, the implied warranties of merchantability and fitness for a
+particular purpose. The entire risk as to the quality and performance
+of the Work is with you. Should the Work prove defective, you assume
+the cost of all necessary servicing, repair, or correction.
+
+In no event unless required by applicable law or agreed to in writing
+will The Copyright Holder, or any author named in the components of the
+Work, or any other party who may distribute and/or modify the Work as
+permitted above, be liable to you for damages, including any general,
+special, incidental or consequential damages arising out of any use of
+the Work or out of inability to use the Work (including, but not limited
+to, loss of data, data being rendered inaccurate, or losses sustained by
+anyone as a result of any failure of the Work to operate with any other
+programs), even if the Copyright Holder or said author or said other
+party has been advised of the possibility of such damages.
+
+
+MAINTENANCE OF THE WORK
+=======================
+
+The Work has the status `author-maintained' if the Copyright Holder
+explicitly and prominently states near the primary copyright notice in
+the Work that the Work can only be maintained by the Copyright Holder
+or simply that it is `author-maintained'.
+
+The Work has the status `maintained' if there is a Current Maintainer
+who has indicated in the Work that they are willing to receive error
+reports for the Work (for example, by supplying a valid e-mail
+address). It is not required for the Current Maintainer to acknowledge
+or act upon these error reports.
+
+The Work changes from status `maintained' to `unmaintained' if there
+is no Current Maintainer, or the person stated to be Current
+Maintainer of the work cannot be reached through the indicated means
+of communication for a period of six months, and there are no other
+significant signs of active maintenance.
+
+You can become the Current Maintainer of the Work by agreement with
+any existing Current Maintainer to take over this role.
+
+If the Work is unmaintained, you can become the Current Maintainer of
+the Work through the following steps:
+
+ 1. Make a reasonable attempt to trace the Current Maintainer (and
+ the Copyright Holder, if the two differ) through the means of
+ an Internet or similar search.
+
+ 2. If this search is successful, then enquire whether the Work
+ is still maintained.
+
+ a. If it is being maintained, then ask the Current Maintainer
+ to update their communication data within one month.
+
+ b. If the search is unsuccessful or no action to resume active
+ maintenance is taken by the Current Maintainer, then announce
+ within the pertinent community your intention to take over
+ maintenance. (If the Work is a LaTeX work, this could be
+ done, for example, by posting to comp.text.tex.)
+
+ 3a. If the Current Maintainer is reachable and agrees to pass
+ maintenance of the Work to you, then this takes effect
+ immediately upon announcement.
+
+ b. If the Current Maintainer is not reachable and the Copyright
+ Holder agrees that maintenance of the Work be passed to you,
+ then this takes effect immediately upon announcement.
+
+ 4. If you make an `intention announcement' as described in 2b. above
+ and after three months your intention is challenged neither by
+ the Current Maintainer nor by the Copyright Holder nor by other
+ people, then you may arrange for the Work to be changed so as
+ to name you as the (new) Current Maintainer.
+
+ 5. If the previously unreachable Current Maintainer becomes
+ reachable once more within three months of a change completed
+ under the terms of 3b) or 4), then that Current Maintainer must
+ become or remain the Current Maintainer upon request provided
+ they then update their communication data within one month.
+
+A change in the Current Maintainer does not, of itself, alter the fact
+that the Work is distributed under the LPPL license.
+
+If you become the Current Maintainer of the Work, you should
+immediately provide, within the Work, a prominent and unambiguous
+statement of your status as Current Maintainer. You should also
+announce your new status to the same pertinent community as
+in 2b) above.
+
+
+WHETHER AND HOW TO DISTRIBUTE WORKS UNDER THIS LICENSE
+======================================================
+
+This section contains important instructions, examples, and
+recommendations for authors who are considering distributing their
+works under this license. These authors are addressed as `you' in
+this section.
+
+Choosing This License or Another License
+----------------------------------------
+
+If for any part of your work you want or need to use *distribution*
+conditions that differ significantly from those in this license, then
+do not refer to this license anywhere in your work but, instead,
+distribute your work under a different license. You may use the text
+of this license as a model for your own license, but your license
+should not refer to the LPPL or otherwise give the impression that
+your work is distributed under the LPPL.
+
+The document `modguide.tex' in the base LaTeX distribution explains
+the motivation behind the conditions of this license. It explains,
+for example, why distributing LaTeX under the GNU General Public
+License (GPL) was considered inappropriate. Even if your work is
+unrelated to LaTeX, the discussion in `modguide.tex' may still be
+relevant, and authors intending to distribute their works under any
+license are encouraged to read it.
+
+A Recommendation on Modification Without Distribution
+-----------------------------------------------------
+
+It is wise never to modify a component of the Work, even for your own
+personal use, without also meeting the above conditions for
+distributing the modified component. While you might intend that such
+modifications will never be distributed, often this will happen by
+accident -- you may forget that you have modified that component; or
+it may not occur to you when allowing others to access the modified
+version that you are thus distributing it and violating the conditions
+of this license in ways that could have legal implications and, worse,
+cause problems for the community. It is therefore usually in your
+best interest to keep your copy of the Work identical with the public
+one. Many works provide ways to control the behavior of that work
+without altering any of its licensed components.
+
+How to Use This License
+-----------------------
+
+To use this license, place in each of the components of your work both
+an explicit copyright notice including your name and the year the work
+was authored and/or last substantially modified. Include also a
+statement that the distribution and/or modification of that
+component is constrained by the conditions in this license.
+
+Here is an example of such a notice and statement:
+
+ %% pig.dtx
+ %% Copyright 2005 M. Y. Name
+ %
+ % This work may be distributed and/or modified under the
+ % conditions of the LaTeX Project Public License, either version 1.3
+ % 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.3 or later is part of all distributions of LaTeX
+ % version 2005/12/01 or later.
+ %
+ % This work has the LPPL maintenance status `maintained'.
+ %
+ % The Current Maintainer of this work is M. Y. Name.
+ %
+ % This work consists of the files pig.dtx and pig.ins
+ % and the derived file pig.sty.
+
+Given such a notice and statement in a file, the conditions
+given in this license document would apply, with the `Work' referring
+to the three files `pig.dtx', `pig.ins', and `pig.sty' (the last being
+generated from `pig.dtx' using `pig.ins'), the `Base Interpreter'
+referring to any `LaTeX-Format', and both `Copyright Holder' and
+`Current Maintainer' referring to the person `M. Y. Name'.
+
+If you do not want the Maintenance section of LPPL to apply to your
+Work, change `maintained' above into `author-maintained'.
+However, we recommend that you use `maintained', as the Maintenance
+section was added in order to ensure that your Work remains useful to
+the community even when you can no longer maintain and support it
+yourself.
+
+Derived Works That Are Not Replacements
+---------------------------------------
+
+Several clauses of the LPPL specify means to provide reliability and
+stability for the user community. They therefore concern themselves
+with the case that a Derived Work is intended to be used as a
+(compatible or incompatible) replacement of the original Work. If
+this is not the case (e.g., if a few lines of code are reused for a
+completely different task), then clauses 6b and 6d shall not apply.
+
+
+Important Recommendations
+-------------------------
+
+ Defining What Constitutes the Work
+
+ The LPPL requires that distributions of the Work contain all the
+ files of the Work. It is therefore important that you provide a
+ way for the licensee to determine which files constitute the Work.
+ This could, for example, be achieved by explicitly listing all the
+ files of the Work near the copyright notice of each file or by
+ using a line such as:
+
+ % This work consists of all files listed in manifest.txt.
+
+ in that place. In the absence of an unequivocal list it might be
+ impossible for the licensee to determine what is considered by you
+ to comprise the Work and, in such a case, the licensee would be
+ entitled to make reasonable conjectures as to which files comprise
+ the Work.
+
diff --git a/support/pdfcrop/README b/support/pdfcrop/README
deleted file mode 100644
index 4ea8503d79..0000000000
--- a/support/pdfcrop/README
+++ /dev/null
@@ -1,259 +0,0 @@
-README for pdfcrop 2012/11/02 v1.38
-
-TABLE OF CONTENTS
-=================
-A. Description
-B. Copyright, Disclaimer, License
-C. Files
-D. Requirements
-E. Installation
-F. User Interface
-G. Restricted Mode
-H. Author
-I. Acknowledgement
-J. Questions, Suggested Improvements
-K. Known Problems
-L. History
-M. ToDo
-
-A. DESCRIPTION
-==============
-PDFCROP takes a PDF file as input, calculates the BoundingBox
-for each page by the help of ghostscript and generates a output
-PDF file with removed margins.
-
-B. COPYRIGHT, DISCLAIMER, LICENSE
-=================================
-Copyright (C) 2002, 2004, 2005, 2008-2012 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.
-
-C. FILES
-========
-The project `pdfcrop' consists of two files:
-pdfcrop.pl: This perl script is the main program. The extension
- `.pl' may be omitted.
-README: Documentation, the file you are reading.
-
-Following temporary files are produced if `pdfcrop' is invoked:
-tmp-pdfcrop-*.tex: input file for pdfTeX
-tmp-pdfcrop-*.log: log file of pdfTeX run
-tmp-pdfcrop-*.pdf: result after pdfTeX run
-
-D. REQUIREMENTS
-===============
-* Perl5 (version 5 of the perl interpreter)
-* Ghostscript (>= 8.0 if PDF file contains rotated pages)
-* pdfTeX, version >= 1.0 (because of page selecting and \pdfximage syntax)
- or XeTeX or LuaTeX.
-
-E. INSTALLATION
-===============
-
-1. Perl script `pdfcrop.pl':
-
- TDS 1.1 location (TDS means "texmf" tree, see CTAN:tds/tds.pdf):
- * TDS:scripts/pdfcrop/pdfcrop.pl
- * and a directory that is part of PATH contains a wrapper script
- or link with name "pdfcrop".
-
- Unix
- * It is allowed to rename `pdfcrop.pl' to `pdfcrop':
- mv pdfcrop.pl pdfcrop
- * Ensure that the execute permission is set:
- chmod +x pdfcrop
- * Move the file to a directory where the shell can find it
- (environment variable PATH, e.g. /usr/local/bin/).
-
- Dos/Windows
- * See requirements. I do not expect that the perl script
- run under DOS.
-
-2. Restricted program version `rpdfcrop'
-
- Generate links or install `pdfcrop.pl' again under the
- name `rpdfcrop'.
-
- Prefer `rpdfcrop' if you want to add pdfcrop to the
- programs that may be executed in TeX's restricted
- shell escape mode. (This feature is added in TeX Live 2009.)
- For TeX Live (since 2009) see entry for `shell_escape_commands'
- in the configuration file `texmf.cnf'.
-
-3. Documentation `README':
-
- Copy it to an appropriate place, for example
- `/usr/local/share/doc/pdfcrop/README'.
- It is allowed to rename it to `pdfcrop.txt'.
-
- TDS location:
- somewhere below texmf/doc/... (?)
- Examples:
- TDS:doc/support/pdfcrop/README
- TDS:doc/scripts/pdfcrop/README
- TDS:doc/scripts/pdfcrop.txt
- TeXLive 2008 and 2009 put it in
- TDS:doc/support/pdfcrop/README
-
-F. USER INTERFACE
-=================
-* ToDo: User manual
-* Online help:
- pdfcrop --help
-* Ghostscript's calculation of the bounding box is faster,
- if --resolution 72 is used instead of ghostscript's implicite
- default setting of 4000 DPI (hint from Ionut Georgescu).
- Of course the calculation with higher resolution settings are
- more accurate.
-
-G. RESTRICTED MODE
-==================
-Restricted mode is enabled if:
-* option `--restricted' is used,
-* the program is called under the name `rpdfcrop'
-* or the called program name contains `restricted'.
-This mode sets restrictions for the following options:
-* --pdftexcmd: if used, the value must be empty or `pdftex'.
-* --xetexcmd: if used, the value must be empty or `xetex'.
-* --luatexcmd: if used, the value must be empty or `luatex'.
-* --gscmd: if used, the value must
- * be empty or
- * be one of the standard names (gs, gswin32c, mgs, gs386 gsos2) or
- * consists of `gs', followed by a version number and an
- optional `c' (Ghostscript's convention for `console version').
-
-H. AUTHOR
-=========
-Heiko Oberdiek
-Email: heiko.oberdiek at googlemail.com
-
-I. ACKNOWLEDGEMENT
-==================
-Anthony Williams
-Scott Pakin <pakin at uiuc.edu>
-Ionut Georgescu
-Yves J\"ager
-R (Chandra) Chandrasekhar
-Christian Stapfer
-David Menestrina
-Karl Berry
-
-J. QUESTIONS, SUGGESTED IMPROVEMENTS
-====================================
-If you have questions, problems with `pdfcrop', error reports,
-if you have improvements or want to have additional features,
-please send them to the author.
-
-My environment for developing and testing:
-* linux, SuSE 9.0
-* perl v5.8.1
-* pdfTeX 3.141592-1.40.x
-* Ghostscript 8.x
-
-K. KNOWN PROBLEMS
-=================
-* pdfcrop relies on Ghostscript for the calculation of the
- Bounding Box. If Ghostscript returns wrong values or
- cannot process the pdf file, it sometimes helps to try
- another version of Ghostscript.
-* XeTeX (and pdfTeX < 1.10a) does not allow the setting of the
- PDF version in a direct way. Thus pdfcrop fixes the PDF version
- afterwards in the PDF header. Therefore XeTeX warnings as
- ** WARNING ** Version of PDF file (1.6) is newer
- than version limit specification.
- can be safely ignored.
-
-L. 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, --xetexcmds.
-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/17 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).
-2010/01/09 v1.23: * Options --bbox-odd and --bbox-even added.
-2010/08/16 v1.24: * Workaround added for buggy ghostscript ports
- that print the BoundingBox data twice.
-2010/08/26 v1.25: * Fix for the case that the PDF file contains
- an entry /CropBox different to /MediaBox.
- * \pageinclude implemented for XeTeX.
- * XeTeX: --clip does not die, but this option
- is ignored, because XeTeX always clip.
-2010/08/26 v1.26: * XeTeX's \XeTeXpdffile expects keyword
- `media', not `mediabox'.
- * New option --pdfversion.
- Default is `auto' that means the PDF version
- is inherited from the input file. Before
- pdfcrop has used the TeX engine's default.
- * Option --luatex fixed (extra empty page at end).
-2010/09/03 v1.27: * Workaround of v1.24 fixed.
-2010/09/06 v1.28: * The Windows registry is searched if Ghostscript
- is not found via PATH.
- * Windows only: support of spaces in command
- names in unrestricted mode.
-2010/09/06 v1.29: * Find the latest Ghostscript version in registry.
-2010/09/15 v1.30: * Warning of pdfTeX because of \pdfobjcompresslevel
- avoided when reducing \pdfminorversion.
- * Fix for TeX syntax characters in input file names.
-2010/09/17 v1.31: * Passing the input file name via hex string to TeX.
- * Again input file names restricted for Ghostscript
- command line, switch then to symbol link/copy
- method.
-2011/08/10 v1.32: * Detection for gswin64c.exe added.
-2012/02/01 v1.33: * Input file can be `-' (standard input).
-2012/04/18 v1.34: * Format of option --version changed
- from naked version number to a line with
- program name, date and version.
-2012/10/15 v1.35: * Additional debug infos added for Perl version.
-2012/10/16 v1.36: * More error codes added.
-2012/10/16 v1.37: * Extended error messages if available.
- * Fix for broken v1.36.
-2012/11/02 v1.38: * Fix for unsufficient cleanup, if function `cleanup' is
- prematurely called in `eval' for `symlink' checking.
-
-
-M. TODO
-=======
-* Description of user interface.
-* Documentation in other formats, eg. man or info pages.
-* Improved error checking.
-* Units support for option --margins.
diff --git a/support/pdfcrop/README.md b/support/pdfcrop/README.md
new file mode 100644
index 0000000000..839e5d2252
--- /dev/null
+++ b/support/pdfcrop/README.md
@@ -0,0 +1,261 @@
+# pdfcrop
+
+Version: 2020/06/06 v1.40
+
+
+## TABLE OF CONTENTS
+
+1. Description
+2. Copyright, Disclaimer, License
+3. Files
+4. Requirements
+5. Installation
+6. User Interface
+7. Restricted Mode
+8. Author
+9. Acknowledgement
+9. Questions, Suggested Improvements
+9. Known Problems
+9. History
+9. ToDo
+
+## 1\. DESCRIPTION
+
+PDFCROP takes a PDF file as input, calculates the BoundingBox
+for each page by the help of ghostscript and generates a output
+PDF file with removed margins.
+
+## 2\. COPYRIGHT, DISCLAIMER, LICENSE
+
+Copyright (C) 2002, 2004, 2005, 2008-2012 Heiko Oberdiek.
+ 2020 Oberdiek Package Support Group
+
+LaTeX Project Public License, version 1.3c or later.
+
+## 3\. FILES
+
+The project `pdfcrop` consists of two files:
+
+`pdfcrop.pl`: This perl script is the main program. The extension
+ `.pl` may be omitted.\
+`README.md`: Documentation, the file you are reading.
+
+Following temporary files are produced if `pdfcrop` is invoked:
+
+`tmp-pdfcrop-*.tex`: input file for pdfTeX, luatex or xetex\
+`tmp-pdfcrop-*.log`: log file of pdfTeX, luatex or xetex run\
+`tmp-pdfcrop-*.pdf`: result after pdfTeX, luatex or xetex run
+
+The temporary files are deleted after the run unless the `--debug` option is
+used.
+
+## 4\. REQUIREMENTS
+
+* Perl5 (version 5 of the perl interpreter)
+* Ghostscript (>= 8.0 if PDF file contains rotated pages)
+* pdfTeX, version >= 1.0 (because of page selecting and \pdfximage syntax)
+ or XeTeX or LuaTeX.
+
+## 5\. INSTALLATION
+
+Normally `pdfcrop` will be installed by the TeX system.
+
+If a manual installation is needed
+
+### 1\. Perl script `pdfcrop.pl`:
+
+TDS 1.1 location (TDS means "texmf" tree, see CTAN:tds/tds.pdf):
+* TDS:scripts/pdfcrop/pdfcrop.pl
+* and a directory that is part of PATH contains a wrapper script
+ or link with name "pdfcrop".
+
+Unix
+* It is allowed to rename `pdfcrop.pl` to `pdfcrop`:
+ mv pdfcrop.pl pdfcrop
+* Ensure that the execute permission is set:
+ chmod +x pdfcrop
+* Move the file to a directory where the shell can find it
+ (environment variable PATH, e.g. /usr/local/bin/).
+
+Dos/Windows
+ * See requirements. I do not expect that the perl script
+ runs under DOS.
+
+### 2\. Restricted program version `rpdfcrop`
+
+ Generate links or install `pdfcrop.pl` again under the
+ name `rpdfcrop`.
+
+ Prefer `rpdfcrop` if you want to add pdfcrop to the
+ programs that may be executed in TeX's restricted
+ shell escape mode. (This feature is added in TeX Live 2009.)
+ For TeX Live (since 2009) see entry for `shell_escape_commands`
+ in the configuration file `texmf.cnf`.
+
+### 3\. Documentation `README.md`:
+
+ Copy it to an appropriate place, for example
+ `/usr/local/share/doc/pdfcrop/README.md`.
+ It is allowed to rename it to `pdfcrop.txt` or `pdfcrop.md`.
+
+ TDS location:\
+ somewhere below texmf/doc/... (?)
+
+ Examples:\
+ `TDS:doc/support/pdfcrop/README.md`\
+ `TDS:doc/scripts/pdfcrop/README.md`\
+ `TDS:doc/scripts/pdfcrop.txt`
+
+ TeXLive 2020 put it in\
+ `TDS:doc/support/pdfcrop/README.md`
+
+## 6\. USER INTERFACE
+
+* ToDo: User manual
+* Online help:
+ `pdfcrop --help`
+* Ghostscript's calculation of the bounding box is faster,
+ if `--resolution 72` is used instead of ghostscript's implicite
+ default setting of 4000 DPI (hint from Ionut Georgescu).
+ Of course the calculation with higher resolution settings are
+ more accurate.
+
+## 7\. RESTRICTED MODE
+
+Restricted mode is enabled if:
+
+* option `--restricted` is used,
+* the program is called under the name `rpdfcrop`
+* or the called program name contains `restricted`.
+
+This mode sets restrictions for the following options:
+
+* `--pdftexcmd`: if used, the value must be empty or `pdftex`.
+* `--xetexcmd`: if used, the value must be empty or `xetex`.
+* `--luatexcmd`: if used, the value must be empty or `luatex`.
+* `--gscmd`: if used, the value must
+ * be empty or
+ * be one of the standard names (gs, gswin32c, mgs, gs386, gsos2) or
+ * consists of `gs`, followed by a version number and an
+ optional `c` (Ghostscript's convention for `console version`).
+
+## 8\. AUTHORS
+
+Heiko Oberdiek\
+Email: heiko.oberdiek at googlemail.com\
+Oberdiek Package Support Group\
+[https://github.com/ho-tex/pdfcrop]
+
+## 9\. ACKNOWLEDGEMENT
+
+Anthony Williams\
+Scott Pakin <pakin at uiuc.edu>\
+Ionut Georgescu\
+Yves Jäger\
+R (Chandra) Chandrasekhar\
+Christian Stapfer\
+David Menestrina\
+Karl Berry
+
+## 10. QUESTIONS, SUGGESTED IMPROVEMENTS
+
+If you have questions, problems with `pdfcrop`, error reports,
+if you have improvements or want to have additional features,
+please send them to the author or add an issue to
+https://github.com/ho-tex/pdfcrop
+
+My environment for developing and testing:
+* linux, SuSE 9.0
+* perl v5.8.1
+* pdfTeX 3.141592-1.40.x
+* Ghostscript 8.x
+
+## 11. KNOWN PROBLEMS
+
+* pdfcrop relies on Ghostscript for the calculation of the
+ Bounding Box. If Ghostscript returns wrong values or
+ cannot process the pdf file, it sometimes helps to try
+ another version of Ghostscript.
+* Older XeTeX (and pdfTeX < 1.10a) does not allow the setting of the
+ PDF version in a direct way. In this cases pdfcrop tries to fix the PDF version
+ afterwards in the PDF header and XeTeX warnings as the following can be safely ignored.
+
+ ** WARNING ** Version of PDF file (1.6) is newer
+ than version limit specification.
+
+
+
+## 12. HISTORY
+
+|Version | Notes |
+|----------------|-------|
+|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("-`&#124;`")` 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`, `--xetexcmds`.|
+|2008/07/22 v1.11:| Workaround for `(open("-`&#124;`")`.|
+|2008/07/23 v1.12:| Workarounds for the workaround (error detection, ...).|
+|2008/07/24 v1.13:| `(open("-`&#124;`")`/ 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/17 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`, `--pdftexcmd`, `--xetexcmd`.|
+|-- | \* 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).|
+|2010/01/09 v1.23:| \* Options `--bbox`-odd and --bbox-even added.|
+|2010/08/16 v1.24:| \* Workaround added for buggy ghostscript ports that print the BoundingBox data twice.|
+|2010/08/26 v1.25:| \* Fix for the case that the PDF file contains an entry /CropBox different to /MediaBox.|
+|-- | \* \pageinclude implemented for XeTeX. |
+|-- | \* XeTeX: `--clip` does not die, but this option is ignored, because XeTeX always clip.|
+|2010/08/26 v1.26:| \* XeTeX's \XeTeXpdffile expects keyword `media`, not `mediabox`.|
+|-- | \* New option `--pdfversion`.|
+|-- | Default is `auto` that means the PDF version is inherited from the input file. Before pdfcrop has used the TeX engine's default.|
+|-- | \* Option `--luatex` fixed (extra empty page at end).|
+|2010/09/03 v1.27:| \* Workaround of v1.24 fixed.|
+|2010/09/06 v1.28:| \* The Windows registry is searched if Ghostscript is not found via PATH.
+|-- | \* Windows only: support of spaces in command names in unrestricted mode.|
+|2010/09/06 v1.29:| \* Find the latest Ghostscript version in registry.|
+|2010/09/15 v1.30:| \* Warning of pdfTeX because of \pdfobjcompresslevel avoided when reducing \pdfminorversion.|
+|-- | \* Fix for TeX syntax characters in input file names.|
+|2010/09/17 v1.31:| \* Passing the input file name via hex string to TeX.|
+|-- | \* Again input file names restricted for Ghostscript command line, switch then to symbol link/copy method.|
+|2011/08/10 v1.32:| \* Detection for gswin64c.exe added.|
+|2012/02/01 v1.33:| \* Input file can be `-` (standard input).|
+|2012/04/18 v1.34:| \* Format of option `--version` changed from naked version number to a line with program name, date and version.|
+|2012/10/15 v1.35:| \* Additional debug infos added for Perl version.|
+|2012/10/16 v1.36:| \* More error codes added.|
+|2012/10/16 v1.37:| \* Extended error messages if available.|
+|-- | \* Fix for broken v1.36.|
+|2012/11/02 v1.38:| \* Fix for unsufficient cleanup, if function `cleanup` is prematurely called in `eval` for `symlink` checking.|
+|2020/05/24 v1.39:| \* adapted to pdfversion 2.0,|
+|-- | \* corrected luatex support|
+|-- | \* corrected a problem with xetex.|
+|2020/06/06 v1.40:| \* improved ghostscript detection on windows when a bash is used|
+|-- | \* added direct pdfversion support to xetex.|
+
+
+## 13. TODO
+
+* Description of user interface.
+* Documentation in other formats, eg. man or info pages.
+* Improved error checking.
+* Units support for option `--margins`.
diff --git a/support/pdfcrop/pdfcrop.pl b/support/pdfcrop/pdfcrop.pl
index b7662c15f2..c459e5c41e 100755
--- a/support/pdfcrop/pdfcrop.pl
+++ b/support/pdfcrop/pdfcrop.pl
@@ -5,16 +5,12 @@ $^W=1; # turn warning on
# pdfcrop.pl
#
# Copyright (C) 2002, 2004, 2005, 2008-2012 Heiko Oberdiek.
+# 2020 Oberdiek Package Support Group
#
# 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.
+# conditions of the LaTeX Project Public License, version 1.3c or later.
#
-# See file "README" for a list of files that belong to this project.
+# See file "README.md" for a list of files that belong to this project.
#
# This file "pdfcrop.pl" may be renamed to "pdfcrop"
# for installation purposes.
@@ -22,10 +18,10 @@ $^W=1; # turn warning on
my $prj = 'pdfcrop';
my $file = "$prj.pl";
my $program = uc($&) if $file =~ /^\w+/;
-my $version = "1.38";
-my $date = "2012/11/02";
-my $author = "Heiko Oberdiek";
-my $copyright = "Copyright (c) 2002-2012 by $author.";
+my $version = "1.40";
+my $date = "2020/06/06";
+my $author = "Heiko Oberdiek, Oberdiek Package Support Group";
+my $copyright = "Copyright (c) 2002-2020 by $author.";
#
# Reqirements: Perl5, Ghostscript
# History:
@@ -107,6 +103,12 @@ my $copyright = "Copyright (c) 2002-2012 by $author.";
# * Fix for broken v1.36.
# 2012/11/02 v1.38: * Fix for unsufficient cleanup, if function `cleanup' is
# prematurely called in `eval' for `symlink' checking.
+# 2020/05/24 v1.39: * adapted to pdfversion 2.0, corrected luatex support,
+# corrected a problem with xetex.
+# 2020/06/06 v1.40: * improved ghostscript detection on windows when a bash is used
+# added direct pdf version support to xetex.
+
+
### program identification
my $title = "$program $version, $date - $copyright\n";
@@ -171,7 +173,7 @@ sub find_ghostscript () {
print "* Arch name: $archname\n" if $::opt_debug;
print "* System: $system\n" if $::opt_debug;
my %candidates = (
- 'unix' => [qw|gs gsc|],
+ 'unix' => [qw|gs gsc gswin64c gswin32c|],
'dos' => [qw|gs386 gs|],
'os2' => [qw|gsos2 gs|],
'win' => [qw|gswin32c gs|],
@@ -362,6 +364,7 @@ $::opt_bbox_odd = "";
$::opt_bbox_even = "";
$::opt_initex = 0;
$::opt_pdfversion = "auto";
+$::opt_uncompress = 0;
sub usage ($) {
my $ret = shift;
@@ -401,13 +404,15 @@ Expert options:
with origin at the lower left corner
--bbox-odd Same as --bbox, but for odd pages only ($::opt_bbox_odd)
--bbox-even Same as --bbox, but for even pages only ($::opt_bbox_even)
- --pdfversion <1.x> | auto | none
- Set the PDF version to 1.x, 1 < x < 8.
+ --pdfversion <x.y> | auto | none
+ Set the PDF version to x.y, x= 1 or 2, y=0-9.
If `auto' is given as value, then the
PDF version is taken from the header
of the input PDF file.
An empty value or `none' uses the
default of the TeX engine. ($::opt_pdfversion)
+ --uncompress creates an uncompressed pdf,
+ useful for debugging ($bool[$::opt_uncompress])
Input file: If the name is `-', then the standard input is used and
the output file name must be explicitly given.
@@ -454,6 +459,7 @@ GetOptions(
"bbox-even=s" => \$::opt_bbox_even,
"restricted" => sub { $restricted = 1; },
"pdfversion=s" => \$::opt_pdfversion,
+ "uncompress!",
) or usage(1);
!$::opt_help or usage(0);
@@ -471,10 +477,12 @@ print $title;
print "* Restricted mode: ", ($restricted ? "enabled" : "disabled"), "\n"
if $::opt_debug;
-$::opt_pdfversion =~ /^(|none|auto|1\.([2-7]))$/
+$::opt_pdfversion =~ /^(|none|auto|(([1-2])\.(\d)))$/
or die "!!! Error: Invalid value `$::opt_pdfversion' for option `--pdfversion'!\n";
print "* Option `pdfversion': $::opt_pdfversion\n" if $::opt_debug;
$::opt_pdfversion = $2 if $2;
+$::opt_pdfmajorversion = $3 if $2;
+$::opt_pdfminorversion = $4 if $2;
$::opt_pdfversion = '' if $::opt_pdfversion eq 'none';
find_ghostscript();
@@ -721,16 +729,19 @@ if ($::opt_pdfversion eq 'auto') {
or die sprintf "!!! Error: Cannot read the header of `%s' failed (%s)!\n",
$inputfilesafe, exterr;
close(IN);
- if ($buf =~ /%PDF-1.([0-7])\s/) {
+ if ($buf =~ /%PDF-((\d).(\d))\s/) {
$::opt_pdfversion = $1;
- print "* PDF header: %PDF-1.$::opt_pdfversion\n" if $::opt_verbose;
- $::opt_pdfversion = 2 if $::opt_pdfversion < 2;
+ $::opt_pdfmajorversion = $2;
+ $::opt_pdfminorversion = $3;
+ print "* PDF header: %PDF-$::opt_pdfversion\n" if $::opt_verbose;
+ $::opt_pdfminorversion = 2 if ($::opt_pdfmajorversion < 2 && $::opt_pdfminorversion < 2);
+ $::opt_pdfversion = $::opt_pdfmajorversion . '.' . $::opt_pdfminorversion;
}
else {
die "!!! Error: Cannot find PDF header of `$inputfilesafe'!\n";
}
}
-print '* Using PDF minor version: ',
+print '* Using PDF version: ',
($::opt_pdfversion ? $::opt_pdfversion : "engine's default"),
"\n" if $::opt_debug;
@@ -819,75 +830,37 @@ if ($::opt_tex eq 'luatex') {
\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',
- 'pdfminorversion',
- 'pdfobjcompresslevel',
- })
- 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 %
- \global\let\pdfminorversion\TESTpdfminorversion %
- \global\let\pdfobjcompresslevel\TESTpdfobjcompresslevel %
- \else %
- \errmessage{%
- Missing \string\luatexversion %
- }%
- \fi %
- \endgroup %
\fi
END_TMP
}
-if ($::opt_tex eq 'pdftex' or $::opt_tex eq 'luatex') {
+
+my $uncompress = $::opt_uncompress ? '0 ' : '9 ';
+if ($::opt_tex eq 'pdftex') {
+ print TMP "\\pdfcompresslevel=$uncompress ";
print TMP <<'END_TMP_HEAD';
\pdfoutput=1 %
-\pdfcompresslevel=9 %
\csname pdfmapfile\endcsname{}
-\def\setpdfversion#1{%
+\def\setpdfversion#1#2{%
\IfUndefined{pdfobjcompresslevel}{%
}{%
- \ifnum#1<5 %
- \pdfobjcompresslevel=0 %
- \else
- \pdfobjcompresslevel=2 %
- \fi
+ \ifnum#1=1 %
+ \ifnum#2<5
+ \pdfobjcompresslevel=0 %
+ \else
+ \pdfobjcompresslevel=2 %
+ \fi
+ \fi
}%
\IfUndefined{pdfminorversion}{%
\IfUndefined{pdfoptionpdfminorversion}{%
}{%
- \pdfoptionpdfminorversion=#1\relax
+ \pdfoptionpdfminorversion=#2\relax
}%
}{%
- \pdfminorversion=#1\relax
+ \pdfminorversion=#2\relax
+ \IfUndefined{pdfmajorversion}{%
+ \ifnum#2=0 \pdfminorversion=5\fi}
+ {\pdfmajorversion=#1\relax}%
}%
}
\def\page #1 [#2 #3 #4 #5]{%
@@ -943,13 +916,89 @@ if ($::opt_tex eq 'pdftex' or $::opt_tex eq 'luatex') {
}%
}
END_TMP_HEAD
- print TMP "\\setpdfversion{$::opt_pdfversion}\n" if $::opt_pdfversion;
+ print TMP "\\setpdfversion{$::opt_pdfmajorversion}{$::opt_pdfminorversion}\n" if $::opt_pdfversion;
+}
+elsif ($::opt_tex eq 'luatex')
+ {
+ print TMP "\\pdfvariable compresslevel=$uncompress ";
+ print TMP <<'END_TMP_HEAD';
+\outputmode=1 %
+\pdfextension mapfile {}
+\def\setpdfversion#1#2{%
+ \ifnum#1=1 %
+ \ifnum#2<5
+ \pdfvariable objcompresslevel=0 %
+ \else
+ \pdfvariable objcompresslevel=2 %
+ \fi
+ \fi
+ \pdfvariable minorversion= #2
+ \pdfvariable majorversion= #1
}
+\def\page #1 [#2 #3 #4 #5]{%
+ \count0=#1\relax
+ \setbox0=\hbox{%
+ \saveimageresource page #1 mediabox{\pdffile}%
+ \useimageresource\lastsavedimageresourceindex
+ }%
+ \pdfvariable horigin=-#2bp\relax
+ \pdfvariable vorigin=#3bp\relax
+ \pagewidth=#4bp\relax
+ \advance\pagewidth by -#2bp\relax
+ \pageheight=#5bp\relax
+ \advance\pageheight by -#3bp\relax
+ \ht0=\pageheight
+ \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}%
+ \saveimageresource page #1 mediabox{\pdffile}%
+ \setbox0=\hbox{%
+ \kern -#2bp\relax
+ \lower #3bp\hbox{\useimageresource\lastsavedimageresourceindex}%
+ }%
+ \wd0=\imagewidth\relax
+ \ht0=\imageheight\relax
+ \dp0=0pt\relax
+ \pdfvariable horigin=#6pt\relax
+ \pdfvariable vorigin=#7bp\relax
+ \pagewidth=\imagewidth
+ \advance\pagewidth by #6bp\relax
+ \advance\pagewidth by #8bp\relax
+ \pageheight=\imageheight\relax
+ \advance\pageheight by #7bp\relax
+ \advance\pageheight by #9bp\relax
+ \saveboxresource0\relax
+ \shipout\hbox{\useboxresource\lastsavedboxresourceindex}%
+}%
+\def\pageinclude#1{%
+ \pdfvariable horigin=0pt\relax
+ \pdfvariable vorigin=0pt\relax
+ \saveimageresource page #1 mediabox{\pdffile}%
+ \setbox0=\hbox{\useimageresource\lastsavedimageresourceindex}%
+ \pagewidth=\wd0\relax
+ \pageheight=\ht0\relax
+ \advance\pageheight by \dp0\relax
+ \shipout\hbox{%
+ \raise\dp0\box0\relax
+ }%
+}
+END_TMP_HEAD
+ print TMP "\\setpdfversion{$::opt_pdfmajorversion}{$::opt_pdfminorversion}\n" if $::opt_pdfversion;
+}
else { # XeTeX
print TMP <<'END_TMP_HEAD';
\expandafter\ifx\csname XeTeXpdffile\endcsname\relax
\errmessage{XeTeX not found or too old!}%
\fi
+\def\setpdfversion#1#2{%
+ \special{pdf:majorversion #1}%
+ \special{pdf:minorversion #2}}
+
\def\page #1 [#2 #3 #4 #5]{%
\count0=#1\relax
\setbox0=\hbox{%
@@ -990,6 +1039,7 @@ else { # XeTeX
}%
}
END_TMP_HEAD
+print TMP "\\setpdfversion{$::opt_pdfmajorversion}{$::opt_pdfminorversion}\n" if $::opt_pdfversion;
}
print "* Running ghostscript for BoundingBox calculation ...\n"
@@ -1183,15 +1233,15 @@ if ($::opt_pdfversion) {
read PDF, $header, 9
or die sprintf "!!! Error: Cannot read header of `%s' (%s)!\n",
"$tmp.pdf", exterr;
- $header =~ /^%PDF-1\.(\d)\s$/ or die "!!! Error: Cannot find header of `$tmp.pdf'!\n";
+ $header =~ /^%PDF-(\d\.\d)\s$/ or die "!!! Error: Cannot find header of `$tmp.pdf'!\n";
if ($1 ne $::opt_pdfversion) {
- seek PDF, 7, 0
+ seek PDF, 5, 0
or die sprintf "!!! Error: Cannot seek in `%s' (%s)!\n",
"$tmp.pdf", exterr;
print PDF $::opt_pdfversion
or die sprintf "!!! Error: Cannot write in `%s' (%s)!\n",
"$tmp.pdf", exterr;
- print "* PDF version correction in output file: 1.$::opt_pdfversion\n"
+ print "* PDF version correction in output file: $::opt_pdfversion\n"
if $::opt_debug;
}
close(PDF);