texlive[68725] Master/tlpkg/tlgs: gs 10.02.1
commits+kakuto at tug.org
commits+kakuto at tug.org
Thu Nov 2 05:21:00 CET 2023
Revision: 68725
https://tug.org/svn/texlive?view=revision&revision=68725
Author: kakuto
Date: 2023-11-02 05:21:00 +0100 (Thu, 02 Nov 2023)
Log Message:
-----------
gs 10.02.1
Modified Paths:
--------------
trunk/Master/tlpkg/tlgs/README.TEXLIVE
trunk/Master/tlpkg/tlgs/Resource/Init/gs_init.ps
trunk/Master/tlpkg/tlgs/bin/gsdll64.dll
trunk/Master/tlpkg/tlgs/bin/gswin64.exe
trunk/Master/tlpkg/tlgs/bin/gswin64c.exe
trunk/Master/tlpkg/tlgs/lib/font2pcl.ps
trunk/Master/tlpkg/tlgs/lib/ps2epsi.ps
trunk/Master/tlpkg/tlgs/lib/stcinfo.ps
trunk/Master/tlpkg/tlgs/lib/stcolor.ps
Modified: trunk/Master/tlpkg/tlgs/README.TEXLIVE
===================================================================
--- trunk/Master/tlpkg/tlgs/README.TEXLIVE 2023-11-02 00:43:21 UTC (rev 68724)
+++ trunk/Master/tlpkg/tlgs/README.TEXLIVE 2023-11-02 04:21:00 UTC (rev 68725)
@@ -1,5 +1,5 @@
-This directory contains a subset of the Ghostscript 10.02.0 distribution
+This directory contains a subset of the Ghostscript 10.02.1 distribution
for Windows. The only purpose of this package is to support programs
shipped with TeX Live. It's not intended for general use.
Modified: trunk/Master/tlpkg/tlgs/Resource/Init/gs_init.ps
===================================================================
--- trunk/Master/tlpkg/tlgs/Resource/Init/gs_init.ps 2023-11-02 00:43:21 UTC (rev 68724)
+++ trunk/Master/tlpkg/tlgs/Resource/Init/gs_init.ps 2023-11-02 04:21:00 UTC (rev 68725)
@@ -34,7 +34,7 @@
% Interpreter library version number
% NOTE: the interpreter code requires that the first non-comment token
% in this file be an integer, and that it match the compiled-in version!
-10020
+10021
% Check the interpreter revision.
dup revision ne
@@ -899,9 +899,6 @@
/== /= load def
% The following procedures are documented.
-/copydevice { % <device> copydevice <newdevice>
- //false .copydevice2
-} odef
/finddevice { % <devicename> finddevice <device>
/devicedict .systemvar exch get
dup 1 get //null eq {
@@ -909,13 +906,10 @@
% Create a default instance now.
% Stack: [proto null]
.currentglobal //true .setglobal exch
- dup dup 0 get copydevice 1 exch put
+ dup dup 0 get //false .copydevice2 1 exch put
exch .setglobal
} if 1 get
-} bind def
-/findprotodevice { % <devicename> findprotodevice <protodevice>
- /devicedict .systemvar exch get 0 get
-} bind def
+} bind executeonly odef
% Run a resource file. This allows us to distinguish resource objects
% from objects coming from input files.
@@ -2220,6 +2214,7 @@
/.setdotlength % Bug687720.ps
/.sort /.setdebug /.mementolistnewblocks /getenv
/unread
+ /makeimagedevice
]
{systemdict exch .forceundef} forall
@@ -2488,6 +2483,9 @@
/odef
/.packtomark
/.putdeviceprops
+ /putdeviceprops
+ /getdeviceprops
+ /finddevice
/.growdict /.growdictlength
/.userdict /.uservar
/.getdefaulthalftone
Modified: trunk/Master/tlpkg/tlgs/bin/gsdll64.dll
===================================================================
(Binary files differ)
Modified: trunk/Master/tlpkg/tlgs/bin/gswin64.exe
===================================================================
(Binary files differ)
Modified: trunk/Master/tlpkg/tlgs/bin/gswin64c.exe
===================================================================
(Binary files differ)
Modified: trunk/Master/tlpkg/tlgs/lib/font2pcl.ps
===================================================================
--- trunk/Master/tlpkg/tlgs/lib/font2pcl.ps 2023-11-02 00:43:21 UTC (rev 68724)
+++ trunk/Master/tlpkg/tlgs/lib/font2pcl.ps 2023-11-02 04:21:00 UTC (rev 68725)
@@ -15,6 +15,8 @@
% font2pcl.ps
% Write out a font as a PCL bitmap font.
+% This program must be run with -dNOSAFER, as it uses the in-memory image device
+% which is unavailable with SAFER.
/pcldict 60 dict def
Modified: trunk/Master/tlpkg/tlgs/lib/ps2epsi.ps
===================================================================
--- trunk/Master/tlpkg/tlgs/lib/ps2epsi.ps 2023-11-02 00:43:21 UTC (rev 68724)
+++ trunk/Master/tlpkg/tlgs/lib/ps2epsi.ps 2023-11-02 04:21:00 UTC (rev 68725)
@@ -59,8 +59,7 @@
% run the file through eps2write (into a tempfile) to make an EPSF
(_ps2epsi) (w+) .tempfile closefile /TName exch def
/SAVE save def
- (eps2write) finddevice mark /OutputFile TName 3 index putdeviceprops pop
- setdevice
+ << /OutputDevice /eps2write /OutputFile TName >> setpagedevice
InputFile run
SAVE restore
/I TName (r) file def
Modified: trunk/Master/tlpkg/tlgs/lib/stcinfo.ps
===================================================================
--- trunk/Master/tlpkg/tlgs/lib/stcinfo.ps 2023-11-02 00:43:21 UTC (rev 68724)
+++ trunk/Master/tlpkg/tlgs/lib/stcinfo.ps 2023-11-02 04:21:00 UTC (rev 68725)
@@ -26,7 +26,7 @@
dup (Ghostscript) eq 1 index (Artifex Ghostscript) eq or
exch (AFPL Ghostscript) eq or{
- currentdevice getdeviceprops .dicttomark
+ currentpagedevice
dup /Name get (stcolor) eq /STCi_onstc exch def
/STCinfo where {/STCinfo get exch pop} if
/STCinfo exch def
@@ -635,7 +635,7 @@
/ColorAdjustMatrix STCiget null ne STCi_onstc and {
mark
/ColorAdjustMatrix null
- currentdevice putdeviceprops pop
+ .dicttomark setpagedevice
} if
%
% "Show" the text
@@ -783,7 +783,7 @@
/ColorAdjustMatrix STCiget null ne STCi_onstc and {
STCi_win 0 get STCi_win 2 get add 2 div
[STCi_win 0 get STCi_win 1 get 3 index STCi_win 3 get ] colortri
- mark /ColorAdjustMatrix dup STCiget currentdevice putdeviceprops pop
+ mark /ColorAdjustMatrix dup STCiget .dicttomark setpagedevice
[1 index STCi_win 1 get STCi_win 2 get STCi_win 3 get ] colortri
pop
}{
Modified: trunk/Master/tlpkg/tlgs/lib/stcolor.ps
===================================================================
--- trunk/Master/tlpkg/tlgs/lib/stcolor.ps 2023-11-02 00:43:21 UTC (rev 68724)
+++ trunk/Master/tlpkg/tlgs/lib/stcolor.ps 2023-11-02 04:21:00 UTC (rev 68725)
@@ -30,7 +30,7 @@
% fetch the current device-parameters this is specific for Ghostscript.
- /STCold currentdevice getdeviceprops .dicttomark def
+ /STCold currentpagedevice def
% Any Ghostscript-Driver has a Name, verify that the selected device is
% stcolor, otherwise nothing than another message will be produced.
@@ -68,7 +68,7 @@
% pick the colormodel
STCold /ProcessColorModel get /STCcolor exch def
- mark % prepare stack for "putdeviceprops"
+ mark % prepare stack for "setpagedevice"
% warn for BitsPerPixel=30 with fsrgb
STCcolor /DeviceRGB eq STCold /BitsPerPixel get 32 eq and
@@ -155,7 +155,7 @@
} ifelse
counttomark 0 ne
- {currentdevice putdeviceprops pop}{cleartomark}ifelse
+ {.dicttomark setpagedevice}{cleartomark}ifelse
% decativate predefined correction
More information about the tex-live-commits
mailing list.