From 9fbffcd0921a99f641de4cf11d25fb17749cca09 Mon Sep 17 00:00:00 2001 From: Akira Kakuto Date: Fri, 8 Mar 2024 01:38:52 +0000 Subject: gs 10.03.0 git-svn-id: svn://tug.org/texlive/trunk@70494 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tlgs/README.TEXLIVE | 2 +- Master/tlpkg/tlgs/Resource/Init/gs_btokn.ps | 18 +- Master/tlpkg/tlgs/Resource/Init/gs_cff.ps | 30 +- Master/tlpkg/tlgs/Resource/Init/gs_cidcm.ps | 30 +- Master/tlpkg/tlgs/Resource/Init/gs_ciddc.ps | 42 +- Master/tlpkg/tlgs/Resource/Init/gs_cidfm.ps | 20 +- Master/tlpkg/tlgs/Resource/Init/gs_cidfn.ps | 34 +- Master/tlpkg/tlgs/Resource/Init/gs_cidtt.ps | 20 +- Master/tlpkg/tlgs/Resource/Init/gs_cmap.ps | 66 +-- Master/tlpkg/tlgs/Resource/Init/gs_cspace.ps | 2 +- Master/tlpkg/tlgs/Resource/Init/gs_diskn.ps | 12 +- Master/tlpkg/tlgs/Resource/Init/gs_dps1.ps | 8 +- Master/tlpkg/tlgs/Resource/Init/gs_dps2.ps | 32 +- Master/tlpkg/tlgs/Resource/Init/gs_dscp.ps | 22 +- Master/tlpkg/tlgs/Resource/Init/gs_epsf.ps | 22 +- Master/tlpkg/tlgs/Resource/Init/gs_fapi.ps | 42 +- Master/tlpkg/tlgs/Resource/Init/gs_fntem.ps | 32 +- Master/tlpkg/tlgs/Resource/Init/gs_fonts.ps | 96 ++-- Master/tlpkg/tlgs/Resource/Init/gs_icc.ps | 2 +- Master/tlpkg/tlgs/Resource/Init/gs_img.ps | 24 +- Master/tlpkg/tlgs/Resource/Init/gs_init.ps | 453 ++++++++++++------- Master/tlpkg/tlgs/Resource/Init/gs_lev2.ps | 120 ++--- Master/tlpkg/tlgs/Resource/Init/gs_ll3.ps | 47 +- Master/tlpkg/tlgs/Resource/Init/gs_pdfwr.ps | 89 ++-- Master/tlpkg/tlgs/Resource/Init/gs_res.ps | 128 +++--- Master/tlpkg/tlgs/Resource/Init/gs_resmp.ps | 10 +- Master/tlpkg/tlgs/Resource/Init/gs_setpd.ps | 66 +-- Master/tlpkg/tlgs/Resource/Init/gs_statd.ps | 120 ++--- Master/tlpkg/tlgs/Resource/Init/gs_trap.ps | 6 +- Master/tlpkg/tlgs/Resource/Init/gs_ttf.ps | 138 +++--- Master/tlpkg/tlgs/Resource/Init/gs_typ32.ps | 10 +- Master/tlpkg/tlgs/Resource/Init/gs_typ42.ps | 4 +- Master/tlpkg/tlgs/Resource/Init/gs_type1.ps | 20 +- Master/tlpkg/tlgs/Resource/Init/pdf_main.ps | 90 ++-- Master/tlpkg/tlgs/bin/gsdll64.dll | Bin 16623616 -> 15849984 bytes Master/tlpkg/tlgs/bin/gsdll64.lib | Bin 11280 -> 11280 bytes Master/tlpkg/tlgs/bin/gswin64.exe | Bin 241664 -> 256512 bytes Master/tlpkg/tlgs/bin/gswin64c.exe | Bin 232960 -> 247296 bytes Master/tlpkg/tlgs/lib/pdf_info.ps | 627 ++++++--------------------- 39 files changed, 1143 insertions(+), 1341 deletions(-) diff --git a/Master/tlpkg/tlgs/README.TEXLIVE b/Master/tlpkg/tlgs/README.TEXLIVE index f15a7f2fe2a..326292a9fde 100644 --- a/Master/tlpkg/tlgs/README.TEXLIVE +++ b/Master/tlpkg/tlgs/README.TEXLIVE @@ -1,5 +1,5 @@ -This directory contains a subset of the Ghostscript 10.02.1 distribution +This directory contains a subset of the Ghostscript 10.03.0 distribution for Windows. The only purpose of this package is to support programs shipped with TeX Live. It's not intended for general use. diff --git a/Master/tlpkg/tlgs/Resource/Init/gs_btokn.ps b/Master/tlpkg/tlgs/Resource/Init/gs_btokn.ps index 59478d94102..a44d597da3d 100644 --- a/Master/tlpkg/tlgs/Resource/Init/gs_btokn.ps +++ b/Master/tlpkg/tlgs/Resource/Init/gs_btokn.ps @@ -156,14 +156,14 @@ mark /marktype 1 index /nulltype 1 index /booleantype 1 index - /nametype { length add } .bind + /nametype { length add } .forcebind /stringtype 1 index /arraytype 0 % replaced below /dicttype 0 % replaced below .dicttomark def /.cntobj { dup type //cntdict exch get exec -} .bind def +} .forcebind def cntdict /arraytype { dup length % #refs #chars array len 4 -1 roll add % #chars array #refs+len @@ -172,11 +172,11 @@ cntdict /arraytype { } if 3 1 roll % #refs+len #chars array //.cntobj forall -} .bind put % replace arraytype in cntdict +} .forcebind put % replace arraytype in cntdict cntdict /dicttype { /writeobject .systemvar /typecheck signalerror -} bind put +} .internalbind put /.bosheader { % .bosheader @@ -198,7 +198,7 @@ cntdict /dicttype { } if 2 index 3 3 -1 roll put 1 index 2 3 -1 roll put -} .bind def +} .forcebind def /.writeobjects { % .writeobjects - % Apply the tag early and forget about it. @@ -269,7 +269,7 @@ cntdict /dicttype { } for cleartomark % Clean up -} .bind def +} .forcebind def /.writeobject { 3 copy exch @@ -277,7 +277,7 @@ cntdict /dicttype { % to avoid a possible invalidaccess. .currentglobal //false .setglobal exch 1 array astore exch .setglobal //.writeobjects exec pop pop pop -} .bind def +} .forcebind def /printobject { % printobject - currentobjectformat 0 eq { @@ -299,7 +299,7 @@ cntdict /dicttype { % This is a pseudo-operator so it will restore the stack % if it gets an error. mark 0 0 3 .argindex //.cntobj exec cleartomark pop -} bind def +} .internalbind def /.printerror { $error /binary get .languagelevel 2 ge and { currentobjectformat 0 ne { @@ -315,7 +315,7 @@ cntdict /dicttype { } //.printerror % known to be a procedure ifelse -} bind def +} .internalbind def currentdict /cntdict .undef diff --git a/Master/tlpkg/tlgs/Resource/Init/gs_cff.ps b/Master/tlpkg/tlgs/Resource/Init/gs_cff.ps index 212ace8bf31..9f6f7b56cce 100644 --- a/Master/tlpkg/tlgs/Resource/Init/gs_cff.ps +++ b/Master/tlpkg/tlgs/Resource/Init/gs_cff.ps @@ -52,7 +52,7 @@ exch 3 -1 roll 1 add 16 mul 12 add sub f exch subfilefilter flushfile % skip to start f exch subfilefilter end -} .bind executeonly odef +} .forcebind odef % .init_otto_font_file /.init_wOFF_otto_font_file { @@ -88,7 +88,7 @@ { exch pop f exch subfilefilter} { pop f exch subfilefilter /FlateDecode filter} ifelse end -} bind def +} .internalbind def % .loadfontfile - /.loadnonottofontfile /.loadfontfile load def @@ -115,7 +115,7 @@ % Not a TrueType font. .loadnonottofontfile } ifelse -} bind executeonly def +} .internalbind def currentdict /.init_wOFF_otto_font_file .forceundef @@ -125,12 +125,12 @@ currentdict /.init_wOFF_otto_font_file .forceundef /subfilefilter { % subfilefilter % SubFileDecode interprets a length of 0 as infinite. dup 0 le { pop pop () 0 } if () /SubFileDecode filter -} bind def +} .internalbind def /advance { % advance - f cff eq { pos add /pos exch store } { pop } ifelse -} bind def +} .internalbind def /next { % - next f read { 1 advance @@ -144,7 +144,7 @@ currentdict /.init_wOFF_otto_font_file .forceundef pdfformaterror } if } ifelse -} bind def +} .internalbind def /next2 { % - next2 f read { f read { @@ -155,7 +155,7 @@ currentdict /.init_wOFF_otto_font_file .forceundef CFFDEBUG { ( ) print dup = } if } ifelse } if -} bind def +} .internalbind def /nextstring { % nextstring dup 0 eq { pop () @@ -163,29 +163,29 @@ currentdict /.init_wOFF_otto_font_file .forceundef string f exch readstring pop dup length advance CFFDEBUG { ( ) print dup //== exec } if } ifelse -} bind def +} .internalbind def /card8 % - card8 /next load def /card16 { % - card16 next2 exch 8 bitshift add -} bind def +} .internalbind def /card32 { % - card32 card16 16 bitshift card16 add -} bind def +} .internalbind def /offsetprocs [ /card8 load /card16 load - { card8 16 bitshift card16 add } bind + { card8 16 bitshift card16 add } .internalbind /card32 load ] readonly def /offsetproc { % offsetproc 1 sub //offsetprocs exch get -} bind def +} .internalbind def /offset { % offset offsetproc exec -} bind def +} .internalbind def /sid % - sid /card16 load def @@ -201,7 +201,7 @@ def % ordinary CFF font. /StartData { % StartData - currentfile exch subfilefilter //false //false ReadData pop -} bind executeonly def +} .internalbind def /ReadData { % ReadData % Initialize. @@ -236,7 +236,7 @@ def end % FontSetInit ProcSet /FontSet defineresource -} bind executeonly def +} .internalbind def % ---------------- Resource category definition ---------------- % diff --git a/Master/tlpkg/tlgs/Resource/Init/gs_cidcm.ps b/Master/tlpkg/tlgs/Resource/Init/gs_cidcm.ps index 197a0d3c5cf..34da79a6270 100644 --- a/Master/tlpkg/tlgs/Resource/Init/gs_cidcm.ps +++ b/Master/tlpkg/tlgs/Resource/Init/gs_cidcm.ps @@ -57,15 +57,15 @@ languagelevel 2 .setlanguagelevel currentglobal //true setglobal begin /begincmap {} def - /usecmap {pop} bind def + /usecmap {pop} .internalbind def - {stop} bind + {stop} .internalbind [ /begincodespacerange /endcodespacerange /beginnotdefchar /endnotdefchar /beginnotdefrange /endnotdefrange /begincidchar /endcidchar /begincidrange /endcidrange /endcmap /usefont /StartData ] { 1 index def - } bind forall + } .internalbind forall pop currentdict end def @@ -80,7 +80,7 @@ currentdict end def } { //findresource exec } ifelse -} bind def +} .internalbind def % Define procedures for pre-scanning : @@ -100,7 +100,7 @@ currentdict end def } repeat { begin } repeat -} bind def +} .internalbind def /PrescanFile { % - PrescanFile - { //.prs_dict /.prsFile get token { @@ -115,7 +115,7 @@ currentdict end def stop } ifelse } loop -} bind odef +} .internalbind odef /GetCIDSystemInfoFromFile { % GetCIDSystemInfoFromFile @@ -136,7 +136,7 @@ currentdict end def //.prs_dict /.prsResult get end RESMPDEBUG { (cidcm GetCIDSystemInfoFromFile end) = } if -} bind def +} .internalbind def /GetCIDSystemInfo { % GetCIDSystemInfo @@ -197,7 +197,7 @@ currentdict end def } ifelse end RESMPDEBUG { (cidcm GetCIDSystemInfo end) = } if -} bind def +} .internalbind def /IsCompatibleCSI { % IsCompatibleCSI @@ -240,7 +240,7 @@ currentdict end def exch pop exch pop % bEQ exit } loop -} bind def +} .internalbind def /IsWellComposed { % IsWellComposed @@ -258,7 +258,7 @@ currentdict end def } { pop pop //false } ifelse -} bind def +} .internalbind def /IsComposedFont { % IsComposedFont true % IsComposedFont false @@ -294,7 +294,7 @@ currentdict end def } for pop } stopped -} bind def +} .internalbind def /ComposeName { % ComposeName dup dup 5 2 roll % (scr) (scr) /CIDFont /CMap (scr) @@ -307,7 +307,7 @@ currentdict end def exch getinterval % (scr) /CMap l1 (scrT) 3 2 roll exch cvs length % (scr) l1 l2 add 0 exch getinterval % (CIDFont-CMap) -} bind def +} .internalbind def % Redefine the /Font category with CIDFont-CMap construction : @@ -327,7 +327,7 @@ currentdict end def //FindResource exec } ifelse } ifelse -} bind executeonly def +} .internalbind def /ResourceStatus { % ResourceStatus true % ResourceStatus false @@ -359,7 +359,7 @@ currentdict end def //false } ifelse } ifelse -} bind executeonly def +} .internalbind def /ResourceForAll { %