diff options
| author | Karl Berry <karl@freefriends.org> | 2011-08-11 17:05:58 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2011-08-11 17:05:58 +0000 |
| commit | c8f732a84d7eed2d49fdc6d67606ab7cacb69b15 (patch) | |
| tree | 3edcbf91206979f09920bd038df6e3e8bd921b74 /Master/texmf-dist/scripts/thumbpdf | |
| parent | 37fd1969850c6b3bdabf1909a9f745a17e64e199 (diff) | |
thumbpdf 3.13c (10aug11)
git-svn-id: svn://tug.org/texlive/trunk@23497 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/thumbpdf')
| -rwxr-xr-x | Master/texmf-dist/scripts/thumbpdf/thumbpdf.pl | 22 |
1 files changed, 15 insertions, 7 deletions
diff --git a/Master/texmf-dist/scripts/thumbpdf/thumbpdf.pl b/Master/texmf-dist/scripts/thumbpdf/thumbpdf.pl index 9dc544b77e8..c18e50262ba 100755 --- a/Master/texmf-dist/scripts/thumbpdf/thumbpdf.pl +++ b/Master/texmf-dist/scripts/thumbpdf/thumbpdf.pl @@ -5,7 +5,7 @@ $^W=1; # turn warning on # # thumbpdf.pl # -# Copyright (C) 1999-2008 Heiko Oberdiek. +# Copyright (C) 1999-2011 Heiko Oberdiek. # # This work may be distributed and/or modified under the # conditions of the LaTeX Project Public License, either version 1.3 @@ -26,10 +26,10 @@ $^W=1; # turn warning on # my $file = "thumbpdf.pl"; my $program = uc($&) if $file =~ /^\w+/; -my $version = "3.11"; -my $date = "2010/07/07"; +my $version = "3.13"; +my $date = "2011/08/10"; my $author = "Heiko Oberdiek"; -my $copyright = "Copyright (c) 1999-2010 by $author."; +my $copyright = "Copyright (c) 1999-2011 by $author."; # # Reqirements: Perl5, Ghostscript # History: @@ -147,6 +147,8 @@ my $copyright = "Copyright (c) 1999-2010 by $author."; # 2008/04/16 v3.10 # 2010/07/07 v3.11 # * \input is used with file name extension for "thumbpdf.tex". +# 2011/08/10 v3.13 +# * Use gswin64c in Windows with 64 bits. # ### program identification @@ -160,7 +162,12 @@ my $Error = "!!! Error:"; # error prefix my $GS = "gs"; $GS = "gs386" if $^O =~ /dos/i; $GS = "gsos2" if $^O =~ /os2/i; -$GS = "gswin32c" if $^O =~ /mswin32/i; +if ($^O =~ /mswin32c/i) { + # http://perldoc.perl.org/perlport.html#DOS-and-Derivatives + use Config; + $GS = "gswin32c"; + $GS = "gswin64c" if $Config{'archname'} =~ /mswin32-x64/i; +} # Windows detection (no SIGHUP) my $Win = 0; @@ -236,6 +243,7 @@ Options: (defaults:) --(no)useps `makepng' uses `.ps' instead of `.pdf' file ($bool[$::opt_useps]) --(no)level2 `<jobname>.tpm' with ps level 2 features ($bool[$::opt_level2]) --(no)greek text in greek style (experimental) ($bool[$::opt_greek]) + --gscmd <name> call of ghostscript ($GS) --antialias <num1>[num2] anti-aliasing, 0 = disable, 4 = max ($::opt_antialias) --device|png [png]<dev> Ghostscript device for thumbnails, dev = mono, gray, 16, 256, 16m ($::opt_device) @@ -243,7 +251,7 @@ Options: (defaults:) --compress <n> thumbnail compress level, n = 0..10 ($::opt_compress) --modes <mode>[,mode] mode=pdftex|pdfmark|dvips|ps2pdf| vtexpdfmark|all ($::opt_modes) - --password apassword for an encrypted pdf file ($::opt_password) + --password <password> for an encrypted pdf file ($::opt_password) END_OF_USAGE ### environment variable THUMBPDF @@ -378,7 +386,7 @@ my $MaxThumb = 0; if ($::opt_makepng) { print "*** make png files / run Ghostscript ***\n" - unless $::opt_quiet or $::opt_printgscmd; + unless $::opt_quiet or $::opt_printgscmd; if ($::opt_useps) { print "* ps file: $jobfile\n" if $::opt_verbose; |