changelog shortlog tags branches changeset file revisions annotate raw help

Mercurial > hg > plan9front / sys/src/cmd/gs/lib/gs_init.ps

revision 7253: 986e26228cfe
parent 0: eaccc3e8d226
     1.1--- a/sys/src/cmd/gs/lib/gs_init.ps
     1.2+++ b/sys/src/cmd/gs/lib/gs_init.ps
     1.3@@ -1992,6 +1992,17 @@ readonly def
     1.4 % If we are running in SAFER mode, lock things down
     1.5 SAFER { .setsafe } if
     1.6 
     1.7+/UndefinePostScriptOperators {
     1.8+  [
     1.9+  /condition /currentcontext /detach /.fork /join /.localfork /lock /monitor /notify
    1.10+  /wait /yield /.currentscreenphase /.setscreenphase /.image2 /eoviewclip /initviewclip
    1.11+  /viewclip /viewclippath /defineusername
    1.12+  /currentalpha /setalpha /.alphaimage /composite /compositerect /dissolve /sizeimagebox /.sizeimageparams
    1.13+  ]
    1.14+  {systemdict exch .forceundef} forall
    1.15+  //systemdict /UndefinePostScriptOperators .forceundef
    1.16+} bind def
    1.17+
    1.18 % If we delayed binding, make it possible to do it later.
    1.19 /.bindnow {
    1.20   currentuserparams /IdiomRecognition .knownget {
    1.21@@ -2005,6 +2016,7 @@ SAFER { .setsafe } if
    1.22   //systemdict /.delaybind {} .forceput	% reclaim the space
    1.23   //systemdict /.bindnow .forceundef	% ditto
    1.24   put
    1.25+  //systemdict /UndefinePostScriptOperators get exec
    1.26   //systemdict /.forcedef .forceundef		% remove temptation
    1.27   //systemdict /.forceput .forceundef		% ditto
    1.28   //systemdict /.forceundef .forceundef		% ditto