diff options
author | Reinhard Kotucha <reinhard.kotucha@web.de> | 2018-11-21 22:02:45 +0000 |
---|---|---|
committer | Reinhard Kotucha <reinhard.kotucha@web.de> | 2018-11-21 22:02:45 +0000 |
commit | b0f40fd0c9d80ae023fb484dfb5fab3d60042df6 (patch) | |
tree | 2ac5cf9ea63cc0e7ac2b082c388160d5f0fdb6fa /Master/tlpkg/tlgs/Resource/Init/gs_res.ps | |
parent | 0bf954671cb18df5e45fd2eb81155bd10c596f11 (diff) |
Upgrade gs-9.25 -> gs-9.26
git-svn-id: svn://tug.org/texlive/trunk@49215 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlgs/Resource/Init/gs_res.ps')
-rw-r--r-- | Master/tlpkg/tlgs/Resource/Init/gs_res.ps | 64 |
1 files changed, 32 insertions, 32 deletions
diff --git a/Master/tlpkg/tlgs/Resource/Init/gs_res.ps b/Master/tlpkg/tlgs/Resource/Init/gs_res.ps index d1e10c939d8..8eb8bb0e582 100644 --- a/Master/tlpkg/tlgs/Resource/Init/gs_res.ps +++ b/Master/tlpkg/tlgs/Resource/Init/gs_res.ps @@ -155,10 +155,10 @@ setglobal } { /defineresource cvx /typecheck signaloperror } ifelse -} bind def +} bind executeonly odef /FindResource % (redefined below) { .Instances exch get 0 get - } bind def + } bind executeonly def % Additional entries @@ -210,7 +210,7 @@ def /findresource .systemvar /typecheck signalerror } if /findresource cvx //.findresource .errorexec -} odef +} bind executeonly odef /defineresource { % <key> <instance> <category> defineresource <instance> 2 .argindex 2 index 2 index % catch stackunderflow @@ -226,7 +226,7 @@ def /DefineResource .resourceexec 4 1 roll pop pop pop } .errorexec -} bind odef +} bind executeonly odef % We must prevent resourceforall from automatically restoring the stacks, % because we don't want the stacks restored if proc causes an error or % executes a 'stop'. On the other hand, resourceforall is defined in the @@ -240,10 +240,10 @@ def % Stack: <template> <proc> <scratch> <category> proc exch pop % pop the category exec end -} bind def +} bind executeonly def /resourceforall { % <template> <proc> <scratch> <category> resourceforall1 - //resourceforall1 exec % see above -} bind odef +} bind executeonly odef /resourcestatus { % <key> <category> resourcestatus <status> <size> true % <key> <category> resourcestatus false { @@ -259,7 +259,7 @@ def % for error reporting. CET 23-26 /resourcestatus cvx $error /errorname get signalerror } if -} bind odef +} bind executeonly odef /undefineresource { % <key> <category> undefineresource - 0 .argindex type /nametype ne { /undefinedresource cvx /typecheck signaloperror @@ -272,7 +272,7 @@ def % here but uses operator for the errors above. CET 23-33 /undefineresource cvx $error /errorname get signalerror } if -} bind odef +} bind executeonly odef % Define the system parameters used for the Generic implementation of % ResourceFileName. @@ -412,7 +412,7 @@ status { } ifelse } bind def -/DefineResource { +/DefineResource dup { .CheckResource { dup [ exch 0 -1 ] % Stack: key value instance @@ -441,7 +441,7 @@ status { { /defineresource cvx /typecheck signaloperror } ifelse -} .bind executeonly % executeonly to prevent access to .forcedef +} .bind executeonly .makeoperator % executeonly to prevent access to .forcedef /UndefineResource { { dup 2 index .knownget { dup 1 get 1 ge @@ -457,7 +457,7 @@ status { { 2 copy .Instances exch exec } if .LocalInstances exch exec - } bind + } bind executeonly % Because of some badly designed code in Adobe's CID font downloader that % makes findresource and resourcestatus deliberately inconsistent with each % other, the default FindResource must not call ResourceStatus if there is @@ -483,7 +483,7 @@ status { /findresource cvx .undefinedresource } ifelse } ifelse -} bind +} bind executeonly % Because of some badly designed code in Adobe's CID font downloader, the % definition of ResourceStatus for Generic and Font must be the same (!). % We patch around this by using an intermediate .ResourceFileStatus procedure. @@ -493,10 +493,10 @@ status { } { .ResourceFileStatus } ifelse -} bind +} bind executeonly /.ResourceFileStatus { .ResourceFile { closefile 2 -1 //true } { pop //false } ifelse -} bind +} bind executeonly /ResourceForAll { % Construct a new procedure to hold the arguments. % All objects constructed here must be in local VM to avoid @@ -554,7 +554,7 @@ status { 3 2 roll pop % args { forall } 0 get currentdict end 2 .execn begin -} bind +} bind executeonly /ResourceFileName { % /in (scr) --> (p/c/n) exch //.rfnstring cvs % (scr) (n) @@ -586,7 +586,7 @@ status { ifelse } ifelse exch copy % (p/c/n) -} bind +} bind executeonly % Additional entries @@ -752,17 +752,17 @@ counttomark 2 idiv ifelse } ifelse - } bind + } bind executeonly /UndefineResource - { /undefineresource cvx /invalidaccess signaloperror } bind + { /undefineresource cvx /invalidaccess signaloperror } bind executeonly /FindResource { .Instances 1 index .knownget { exch pop } { /findresource cvx .undefinedresource } ifelse - } bind + } bind executeonly /ResourceStatus - { .Instances exch known { 0 0 //true } { //false } ifelse } bind + { .Instances exch known { 0 0 //true } { //false } ifelse } bind executeonly /ResourceForAll /Generic .findcategory /ResourceForAll load end @@ -865,7 +865,7 @@ userdict /.localcsdefaults //false put 1 index .definedefaultcs currentglobal not { .userdict /.localcsdefaults //true put } if } if -} bind +} bind executeonly /UndefineResource { dup /Generic /Category findresource /UndefineResource get exec @@ -888,7 +888,7 @@ userdict /.localcsdefaults //false put } { pop } ifelse -} bind +} bind executeonly .definecategory % ColorSpace @@ -918,7 +918,7 @@ userdict /.localcsdefaults //false put { exch copy exch pop } { /Generic /Category findresource /ResourceFileName get exec } ifelse - } bind + } bind executeonly .definecategory % Encoding @@ -991,11 +991,11 @@ currentdict /.fontstatusaux .undef /DefineResource { 2 copy //definefont exch pop /Generic /Category findresource /DefineResource get exec - } bind + } bind executeonly /UndefineResource { dup //undefinefont /Generic /Category findresource /UndefineResource get exec - } bind + } bind executeonly /FindResource { dup .getvminstance { exch pop 0 get @@ -1006,14 +1006,14 @@ currentdict /.fontstatusaux .undef .loadfontresource } ifelse } ifelse -} bind +} bind executeonly /ResourceForAll { { .scannextfontdir not { exit } if } loop /Generic /Category findresource /ResourceForAll get exec -} bind +} bind executeonly /.ResourceFileStatus { .fontstatus { pop 2 -1 //true } { pop //false } ifelse -} bind +} bind executeonly /.loadfontresource { dup .vmused exch @@ -1063,20 +1063,20 @@ end { /Font defineresource } stopped { /definefont cvx $error /errorname get signalerror } if -} bind odef +} bind executeonly odef /undefinefont { /Font undefineresource -} bind odef +} bind executeonly odef % The Red Book requires that findfont be a procedure, not an operator, % but it still needs to restore the stacks reliably if it fails. /.findfontop { { /Font findresource } stopped { pop /findfont $error /errorname get signalerror } if -} bind odef +} bind executeonly odef /findfont { .findfontop -} bind def % Must be a procedure, not an operator +} bind executeonly def % Must be a procedure, not an operator % Remove initialization utilities. currentdict /.definecategory .undef |