diff options
-rw-r--r-- | Resource/Init/gs_dps1.ps | 4 | ||||
-rw-r--r-- | Resource/Init/gs_fonts.ps | 20 | ||||
-rw-r--r-- | Resource/Init/gs_init.ps | 6 |
3 files changed, 15 insertions, 15 deletions
diff --git a/Resource/Init/gs_dps1.ps b/Resource/Init/gs_dps1.ps index 947d281d6..b681ec783 100644 --- a/Resource/Init/gs_dps1.ps +++ b/Resource/Init/gs_dps1.ps | |||
@@ -74,7 +74,7 @@ level2dict begin | |||
74 | } odef | 74 | } odef |
75 | % undefinefont has to take local/global VM into account. | 75 | % undefinefont has to take local/global VM into account. |
76 | /undefinefont % <fontname> undefinefont - | 76 | /undefinefont % <fontname> undefinefont - |
77 | { .FontDirectory 1 .argindex .forceundef % FontDirectory is readonly | 77 | { //.FontDirectory 1 .argindex .forceundef % FontDirectory is readonly |
78 | .currentglobal | 78 | .currentglobal |
79 | { % Current mode is global; delete from local directory too. | 79 | { % Current mode is global; delete from local directory too. |
80 | //systemdict /LocalFontDirectory .knownget | 80 | //systemdict /LocalFontDirectory .knownget |
@@ -85,7 +85,7 @@ level2dict begin | |||
85 | % definition, copy it into the local directory. | 85 | % definition, copy it into the local directory. |
86 | //systemdict /SharedFontDirectory .knownget | 86 | //systemdict /SharedFontDirectory .knownget |
87 | { 1 index .knownget | 87 | { 1 index .knownget |
88 | { .FontDirectory 2 index 3 -1 roll { put } systemdict /superexec known {//superexec}{1183615869 internaldict /superexec get exec} ifelse } % readonly | 88 | { //.FontDirectory 2 index 3 -1 roll { put } systemdict /superexec known {//superexec}{1183615869 internaldict /superexec get exec} ifelse } % readonly |
89 | if | 89 | if |
90 | } | 90 | } |
91 | if | 91 | if |
diff --git a/Resource/Init/gs_fonts.ps b/Resource/Init/gs_fonts.ps index ee3275f1e..48b1b2d62 100644 --- a/Resource/Init/gs_fonts.ps +++ b/Resource/Init/gs_fonts.ps | |||
@@ -516,7 +516,7 @@ buildfontdict 3 /.buildfont3 cvx put | |||
516 | if | 516 | if |
517 | } | 517 | } |
518 | if | 518 | if |
519 | dup .FontDirectory 4 -2 roll { .growput } systemdict /superexec known {//superexec}{1183615869 internaldict /superexec get exec} ifelse % readonly | 519 | dup //.FontDirectory 4 -2 roll { .growput } systemdict /superexec known {//superexec}{1183615869 internaldict /superexec get exec} ifelse % readonly |
520 | % If the font originated as a resource, register it. | 520 | % If the font originated as a resource, register it. |
521 | currentfile .currentresourcefile eq { dup .registerfont } if | 521 | currentfile .currentresourcefile eq { dup .registerfont } if |
522 | readonly | 522 | readonly |
@@ -943,7 +943,7 @@ $error /SubstituteFont { } put | |||
943 | % Try to find a font using only the present contents of Fontmap. | 943 | % Try to find a font using only the present contents of Fontmap. |
944 | /.tryfindfont { % <fontname> .tryfindfont <font> true | 944 | /.tryfindfont { % <fontname> .tryfindfont <font> true |
945 | % <fontname> .tryfindfont false | 945 | % <fontname> .tryfindfont false |
946 | .FontDirectory 1 index .fontknownget | 946 | //.FontDirectory 1 index .fontknownget |
947 | { % Already loaded | 947 | { % Already loaded |
948 | exch pop //true | 948 | exch pop //true |
949 | } | 949 | } |
@@ -975,7 +975,7 @@ $error /SubstituteFont { } put | |||
975 | { % Font with a procedural definition | 975 | { % Font with a procedural definition |
976 | exec % The procedure will load the font. | 976 | exec % The procedure will load the font. |
977 | % Check to make sure this really happened. | 977 | % Check to make sure this really happened. |
978 | .FontDirectory 1 index .knownget | 978 | //.FontDirectory 1 index .knownget |
979 | { exch pop //true exit } | 979 | { exch pop //true exit } |
980 | if | 980 | if |
981 | } | 981 | } |
@@ -1081,11 +1081,11 @@ $error /SubstituteFont { } put | |||
1081 | % because it's different depending on language level. | 1081 | % because it's different depending on language level. |
1082 | .currentglobal exch /.setglobal .systemvar exec | 1082 | .currentglobal exch /.setglobal .systemvar exec |
1083 | % Remove the fake definition, if any. | 1083 | % Remove the fake definition, if any. |
1084 | .FontDirectory 3 index .forceundef % readonly | 1084 | //.FontDirectory 3 index .forceundef % readonly |
1085 | 1 index (r) file .loadfont .FontDirectory exch | 1085 | 1 index (r) file .loadfont //.FontDirectory exch |
1086 | /.setglobal .systemvar exec | 1086 | /.setglobal .systemvar exec |
1087 | } executeonly | 1087 | } executeonly |
1088 | { .loadfont .FontDirectory | 1088 | { .loadfont //.FontDirectory |
1089 | } | 1089 | } |
1090 | ifelse | 1090 | ifelse |
1091 | % Stack: fontname fontfilename fontdirectory | 1091 | % Stack: fontname fontfilename fontdirectory |
@@ -1119,8 +1119,8 @@ $error /SubstituteFont { } put | |||
1119 | % Stack: origfontname fontdirectory filefontname fontdict | 1119 | % Stack: origfontname fontdirectory filefontname fontdict |
1120 | 3 -1 roll pop | 1120 | 3 -1 roll pop |
1121 | % Stack: origfontname filefontname fontdict | 1121 | % Stack: origfontname filefontname fontdict |
1122 | dup /FontName get dup FontDirectory exch .forceundef | 1122 | dup /FontName get dup //.FontDirectory exch .forceundef |
1123 | GlobalFontDirectory exch .forceundef | 1123 | /GlobalFontDirectory .systemvar exch .forceundef |
1124 | dup length dict .copydict dup 3 index /FontName exch put | 1124 | dup length dict .copydict dup 3 index /FontName exch put |
1125 | 2 index exch definefont | 1125 | 2 index exch definefont |
1126 | exch | 1126 | exch |
@@ -1175,10 +1175,10 @@ currentdict /.putgstringcopy .forceundef | |||
1175 | { | 1175 | { |
1176 | { | 1176 | { |
1177 | pop dup type /stringtype eq { cvn } if | 1177 | pop dup type /stringtype eq { cvn } if |
1178 | .FontDirectory 1 index known not { | 1178 | //.FontDirectory 1 index known not { |
1179 | 2 dict dup /FontName 3 index put | 1179 | 2 dict dup /FontName 3 index put |
1180 | dup /FontType 1 put | 1180 | dup /FontType 1 put |
1181 | .FontDirectory 3 1 roll { put } systemdict /superexec known {//superexec}{1183615869 internaldict /superexec get exec} ifelse % readonly | 1181 | //.FontDirectory 3 1 roll { put } systemdict /superexec known {//superexec}{1183615869 internaldict /superexec get exec} ifelse % readonly |
1182 | } { | 1182 | } { |
1183 | pop | 1183 | pop |
1184 | } ifelse | 1184 | } ifelse |
diff --git a/Resource/Init/gs_init.ps b/Resource/Init/gs_init.ps index e4902a5fa..f9efe4e82 100644 --- a/Resource/Init/gs_init.ps +++ b/Resource/Init/gs_init.ps | |||
@@ -1165,8 +1165,8 @@ errordict /unknownerror .undef | |||
1165 | }ifelse | 1165 | }ifelse |
1166 | }forall | 1166 | }forall |
1167 | noaccess pop | 1167 | noaccess pop |
1168 | systemdict /.setsafeerrors .forceundef | 1168 | //systemdict /.setsafeerrors .forceundef |
1169 | systemdict /.SAFERERRORLIST .forceundef | 1169 | //systemdict /.SAFERERRORLIST .forceundef |
1170 | } bind executeonly odef | 1170 | } bind executeonly odef |
1171 | 1171 | ||
1172 | SAFERERRORS {.setsafererrors} if | 1172 | SAFERERRORS {.setsafererrors} if |
@@ -2144,7 +2144,7 @@ currentdict /tempfilepaths undef | |||
2144 | 2144 | ||
2145 | /.locksafe { | 2145 | /.locksafe { |
2146 | .locksafe_userparams | 2146 | .locksafe_userparams |
2147 | systemdict /getenv {pop //false} .forceput | 2147 | //systemdict /getenv {pop //false} .forceput |
2148 | % setpagedevice has the side effect of clearing the page, but | 2148 | % setpagedevice has the side effect of clearing the page, but |
2149 | % we will just document that. Using setpagedevice keeps the device | 2149 | % we will just document that. Using setpagedevice keeps the device |
2150 | % properties and pagedevice .LockSafetyParams in agreement even | 2150 | % properties and pagedevice .LockSafetyParams in agreement even |