From 9262fc101afe7733e74817d5d3e5917cf0143503 Mon Sep 17 00:00:00 2001 From: Akira Kakuto Date: Wed, 13 Sep 2023 23:30:15 +0000 Subject: tlgs (gs-10.02.0) git-svn-id: svn://tug.org/texlive/trunk@68272 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tlgs/lib/PDFA_def.ps | 2 +- Master/tlpkg/tlgs/lib/align.ps | 6 +- Master/tlpkg/tlgs/lib/caption.ps | 6 +- Master/tlpkg/tlgs/lib/cat.ps | 74 ++++ Master/tlpkg/tlgs/lib/cid2code.ps | 6 +- Master/tlpkg/tlgs/lib/docie.ps | 6 +- Master/tlpkg/tlgs/lib/font2pcl.ps | 604 ++++++++++++++++++++++++++ Master/tlpkg/tlgs/lib/gs_ce_e.ps | 6 +- Master/tlpkg/tlgs/lib/gs_il2_e.ps | 6 +- Master/tlpkg/tlgs/lib/gs_kanji.ps | 6 +- Master/tlpkg/tlgs/lib/gs_ksb_e.ps | 6 +- Master/tlpkg/tlgs/lib/gs_lgo_e.ps | 6 +- Master/tlpkg/tlgs/lib/gs_lgx_e.ps | 6 +- Master/tlpkg/tlgs/lib/gs_wl1_e.ps | 6 +- Master/tlpkg/tlgs/lib/gs_wl2_e.ps | 6 +- Master/tlpkg/tlgs/lib/gs_wl5_e.ps | 6 +- Master/tlpkg/tlgs/lib/gslp.ps | 6 +- Master/tlpkg/tlgs/lib/gsnup.ps | 6 +- Master/tlpkg/tlgs/lib/image-qa.ps | 6 +- Master/tlpkg/tlgs/lib/jispaper.ps | 6 +- Master/tlpkg/tlgs/lib/jobseparator.ps | 3 + Master/tlpkg/tlgs/lib/lines.ps | 6 +- Master/tlpkg/tlgs/lib/mkcidfm.ps | 6 +- Master/tlpkg/tlgs/lib/pdf2dsc.ps | 6 +- Master/tlpkg/tlgs/lib/pdf_info.ps | 6 +- Master/tlpkg/tlgs/lib/pfbtopfa.ps | 6 +- Master/tlpkg/tlgs/lib/ppath.ps | 6 +- Master/tlpkg/tlgs/lib/pphs.ps | 6 +- Master/tlpkg/tlgs/lib/prfont.ps | 6 +- Master/tlpkg/tlgs/lib/ps2ai.ps | 6 +- Master/tlpkg/tlgs/lib/ps2epsi.ps | 6 +- Master/tlpkg/tlgs/lib/rollconv.ps | 6 +- Master/tlpkg/tlgs/lib/stcinfo.ps | 794 ++++++++++++++++++++++++++++++++++ Master/tlpkg/tlgs/lib/stcolor.ps | 169 ++++++++ Master/tlpkg/tlgs/lib/stocht.ps | 6 +- Master/tlpkg/tlgs/lib/traceimg.ps | 6 +- Master/tlpkg/tlgs/lib/traceop.ps | 6 +- Master/tlpkg/tlgs/lib/uninfo.ps | 6 +- Master/tlpkg/tlgs/lib/viewcmyk.ps | 6 +- Master/tlpkg/tlgs/lib/viewgif.ps | 6 +- Master/tlpkg/tlgs/lib/viewjpeg.ps | 4 +- Master/tlpkg/tlgs/lib/viewmiff.ps | 6 +- Master/tlpkg/tlgs/lib/viewpbm.ps | 6 +- Master/tlpkg/tlgs/lib/viewpcx.ps | 6 +- Master/tlpkg/tlgs/lib/viewps2a.ps | 6 +- Master/tlpkg/tlgs/lib/viewpwg.ps | 6 +- Master/tlpkg/tlgs/lib/viewraw.ps | 6 +- Master/tlpkg/tlgs/lib/viewrgb.ps | 6 +- Master/tlpkg/tlgs/lib/winmaps.ps | 6 +- Master/tlpkg/tlgs/lib/zeroline.ps | 6 +- Master/tlpkg/tlgs/lib/zugferd.ps | 6 +- 51 files changed, 1779 insertions(+), 135 deletions(-) create mode 100644 Master/tlpkg/tlgs/lib/cat.ps create mode 100644 Master/tlpkg/tlgs/lib/font2pcl.ps create mode 100644 Master/tlpkg/tlgs/lib/jobseparator.ps create mode 100644 Master/tlpkg/tlgs/lib/stcinfo.ps create mode 100644 Master/tlpkg/tlgs/lib/stcolor.ps (limited to 'Master/tlpkg/tlgs/lib') diff --git a/Master/tlpkg/tlgs/lib/PDFA_def.ps b/Master/tlpkg/tlgs/lib/PDFA_def.ps index c5e2aa6801c..96cb6776175 100644 --- a/Master/tlpkg/tlgs/lib/PDFA_def.ps +++ b/Master/tlpkg/tlgs/lib/PDFA_def.ps @@ -70,7 +70,7 @@ def {ICCProfile (r) file} stopped { (\n\tFailed to open the supplied ICCProfile for reading. This may be due to\n) print - (\t an incorrect filename or a failure to add --permif-file-read=\n) print + (\t an incorrect filename or a failure to add --permit-file-read=\n) print (\t to the command line. This PostScript program needs to open the file\n) print (\t and you must explicitly grant it permission to do so.\n\n) print (\tPDF/A processing aborted, output may not be a PDF/A file.\n\n) print diff --git a/Master/tlpkg/tlgs/lib/align.ps b/Master/tlpkg/tlgs/lib/align.ps index e1f562b39a1..ae5b21e71a3 100644 --- a/Master/tlpkg/tlgs/lib/align.ps +++ b/Master/tlpkg/tlgs/lib/align.ps @@ -1,4 +1,4 @@ -% Copyright (C) 2001-2021 Artifex Software, Inc. +% Copyright (C) 2001-2023 Artifex Software, Inc. % All Rights Reserved. % % This software is provided AS-IS with no warranty, either express or @@ -9,8 +9,8 @@ % of the license contained in the file LICENSE in this distribution. % % Refer to licensing information at http://www.artifex.com or contact -% Artifex Software, Inc., 1305 Grant Avenue - Suite 200, Novato, -% CA 94945, U.S.A., +1(415)492-9861, for further information. +% Artifex Software, Inc., 39 Mesa Street, Suite 108A, San Francisco, +% CA 94129, USA, for further information. % % Print a page that indicates the proper settings of Margins and HWMargins diff --git a/Master/tlpkg/tlgs/lib/caption.ps b/Master/tlpkg/tlgs/lib/caption.ps index 7e345ba502e..72b117ba936 100644 --- a/Master/tlpkg/tlgs/lib/caption.ps +++ b/Master/tlpkg/tlgs/lib/caption.ps @@ -1,5 +1,5 @@ %! -% Copyright (C) 2001-2021 Artifex Software, Inc. +% Copyright (C) 2001-2023 Artifex Software, Inc. % All Rights Reserved. % % This software is provided AS-IS with no warranty, either express or @@ -10,8 +10,8 @@ % of the license contained in the file LICENSE in this distribution. % % Refer to licensing information at http://www.artifex.com or contact -% Artifex Software, Inc., 1305 Grant Avenue - Suite 200, Novato, -% CA 94945, U.S.A., +1(415)492-9861, for further information. +% Artifex Software, Inc., 39 Mesa Street, Suite 108A, San Francisco, +% CA 94129, USA, for further information. % % Add a "caption" to the bottom of each page. diff --git a/Master/tlpkg/tlgs/lib/cat.ps b/Master/tlpkg/tlgs/lib/cat.ps new file mode 100644 index 00000000000..fd3698da838 --- /dev/null +++ b/Master/tlpkg/tlgs/lib/cat.ps @@ -0,0 +1,74 @@ +% Copyright (C) 2001-2023 Artifex Software, Inc. +% All Rights Reserved. +% +% This software is provided AS-IS with no warranty, either express or +% implied. +% +% This software is distributed under license and may not be copied, +% modified or distributed except as expressly authorized under the terms +% of the license contained in the file LICENSE in this distribution. +% +% Refer to licensing information at http://www.artifex.com or contact +% Artifex Software, Inc., 39 Mesa Street, Suite 108A, San Francisco, +% CA 94129, USA, for further information. +% +% +% $Id: cat.ps 8331 2008-02-05 11:07:00Z kens $ +% +% Appends one file to another. Primarily used to overcome the +% 'copy' limitation of Windows command shell for ps2epsi +% +% the files to be appended are given by the environament +% variables %infile% and %outfile%. %infile% is appended to +% %outfile% +% + +/datastring 1024 string def + +{ + (outfile) getenv + { + /outfilename exch def + (infile) getenv + { + /infilename exch def + + infilename status + { + pop pop pop pop outfilename status + { + pop pop pop pop + infilename (r) file /infile exch def + outfilename (a+) file /outfile exch def + { + infile datastring readstring + { + outfile exch writestring + } + { + dup length 0 gt + {outfile exch writestring} {pop} ifelse + exit + } ifelse + } loop + infile closefile + outfile closefile + } + { + (Failed to find file ) print outfilename == + } ifelse + } + { + (Failed to find file ) print infilename == + } ifelse + } + { + (Couldn't find %infile% environment variable) == + } ifelse + } + { + (Couldn't find %outfile% environment variable) == + } + ifelse +} bind +exec diff --git a/Master/tlpkg/tlgs/lib/cid2code.ps b/Master/tlpkg/tlgs/lib/cid2code.ps index 45044cdf955..cafc92dd1e9 100644 --- a/Master/tlpkg/tlgs/lib/cid2code.ps +++ b/Master/tlpkg/tlgs/lib/cid2code.ps @@ -1,4 +1,4 @@ -% Copyright (C) 2001-2021 Artifex Software, Inc. +% Copyright (C) 2001-2023 Artifex Software, Inc. % All Rights Reserved. % % This software is provided AS-IS with no warranty, either express or @@ -9,8 +9,8 @@ % of the license contained in the file LICENSE in this distribution. % % Refer to licensing information at http://www.artifex.com or contact -% Artifex Software, Inc., 1305 Grant Avenue - Suite 200, Novato, -% CA 94945, U.S.A., +1(415)492-9861, for further information. +% Artifex Software, Inc., 39 Mesa Street, Suite 108A, San Francisco, +% CA 94129, USA, for further information. % % Construct an inverse map from CIDs to codes. diff --git a/Master/tlpkg/tlgs/lib/docie.ps b/Master/tlpkg/tlgs/lib/docie.ps index 1d1ad9a193c..7f7f4d4caff 100644 --- a/Master/tlpkg/tlgs/lib/docie.ps +++ b/Master/tlpkg/tlgs/lib/docie.ps @@ -1,4 +1,4 @@ -% Copyright (C) 2001-2021 Artifex Software, Inc. +% Copyright (C) 2001-2023 Artifex Software, Inc. % All Rights Reserved. % % This software is provided AS-IS with no warranty, either express or @@ -9,8 +9,8 @@ % of the license contained in the file LICENSE in this distribution. % % Refer to licensing information at http://www.artifex.com or contact -% Artifex Software, Inc., 1305 Grant Avenue - Suite 200, Novato, -% CA 94945, U.S.A., +1(415)492-9861, for further information. +% Artifex Software, Inc., 39 Mesa Street, Suite 108A, San Francisco, +% CA 94129, USA, for further information. % % docie.ps diff --git a/Master/tlpkg/tlgs/lib/font2pcl.ps b/Master/tlpkg/tlgs/lib/font2pcl.ps new file mode 100644 index 00000000000..4dcf22a5f79 --- /dev/null +++ b/Master/tlpkg/tlgs/lib/font2pcl.ps @@ -0,0 +1,604 @@ +% Copyright (C) 2001-2023 Artifex Software, Inc. +% All Rights Reserved. +% +% This software is provided AS-IS with no warranty, either express or +% implied. +% +% This software is distributed under license and may not be copied, +% modified or distributed except as expressly authorized under the terms +% of the license contained in the file LICENSE in this distribution. +% +% Refer to licensing information at http://www.artifex.com or contact +% Artifex Software, Inc., 39 Mesa Street, Suite 108A, San Francisco, +% CA 94129, USA, for further information. +% + +% font2pcl.ps +% Write out a font as a PCL bitmap font. + +/pcldict 60 dict def + +% Write out the current font as a PCL bitmap font. +% The current transformation matrix defines the font size and orientation. + +/WriteResolution? false def % true=use "resolution bound font" format, + % false=use older format + +/LJ4 false def % true=use LJ4 Typeface code + % false=use LJIIP/IID/IIIx Typeface code + +pcldict begin % internal procedures + +/findstring % findstring + { search { pop pop pop true } { pop false } ifelse + } def + + % Determine which set of keywords is present in a string. + % The last keyword set must be empty. + +/keysearch % keysearch + { 0 1 2 index length 1 sub + { 2 copy get true exch + { % Stack: + 4 index exch findstring and + } + forall + { 0 exch getinterval exit + } + if pop + } + for + exch pop length % invalid index if missing + } def + + % Determine the device height of a string in quarter-dots. + +/charheight % charheight + { gsave newpath 0 0 moveto false charpath + pathbbox exch pop exch sub exch pop 0 exch grestore + dtransform add abs 4 mul cvi + } def + + % Compute an integer version of the transformed FontBBox. + +/inflate % inflate + { dup 0 gt { ceiling } { floor } ifelse + } def +/ixbbox % - ixbbox + { /FontBBox load aload pop % might be executable or literal + 4 2 roll transform exch truncate cvi exch truncate cvi + 4 2 roll transform exch inflate cvi exch inflate cvi + } def + + % Determine the original font of a possibly transformed font. + % Since some badly behaved PostScript files construct transformed + % fonts "by hand", we can't just rely on the OrigFont pointers. + % Instead, if a font with the given name exists, and if its + % entries for FontType and UniqueID match those of the font we + % obtain by following the OrigFont chain, we use that font. + +/origfont + { { dup /OrigFont known not { exit } if /OrigFont get } loop + FontDirectory 1 index /FontName get .knownget + { % Stack: origfont namedfont + 1 index /FontType get 1 index /FontType get eq + { 1 index /UniqueID .knownget + { 1 index /UniqueID .knownget + { eq { exch } if } + { pop } + ifelse + } + if + } + if pop + } + if + } def + + % Determine the bounding box of the current device's image. + % Free variables: row, zerow. + +/devbbox % devbbox + { % Find top and bottom whitespace. + dup + { dup 0 eq { exit } if 1 sub + dup currentdevice exch row copyscanlines + zerow ne { 1 add exit } if + } + loop % ymax1 + 0 + { 2 copy eq { exit } if + dup currentdevice exch row copyscanlines + zerow ne { exit } if + 1 add + } + loop % ymin + exch + % Find left and right whitespace. + 3 index 0 + % Stack: rw rh ymin ymax1 xmin xmax1 + 3 index 1 4 index 1 sub + { currentdevice exch row copyscanlines .findzeros + exch 4 1 roll .max 3 1 roll .min exch + } + for % xmin xmax1 + % Special check: xmin > xmax1 if height = 0 + 2 copy gt { exch pop dup } if + 6 -2 roll pop pop + + } def + + % Write values on outfile. + + /w1 { 255 and outfile exch write } def + /w2 { dup -8 bitshift w1 w1 } def + /wbyte %