[gs-cvs] rev 8092 - trunk/gs/lib

[alexcher at ghostscript.com]

Author: alexcher
Date: 2007-06-30 05:25:22 -0700 (Sat, 30 Jun 2007)
New Revision: 8092

Modified:
   trunk/gs/lib/gs_type1.ps
Log:
Replase setglobal operator with .setglobal in Type 1 font support code to make
it bindable during start-up. Bind other standard executable names in the file.
Bug 689311, customer 411.

DIFFERENCES:
None


Modified: trunk/gs/lib/gs_type1.ps
===================================================================
--- trunk/gs/lib/gs_type1.ps	2007-06-30 06:57:44 UTC (rev 8091)
+++ trunk/gs/lib/gs_type1.ps	2007-06-30 12:25:22 UTC (rev 8092)
@@ -26,8 +26,8 @@
 % that these entries are present in the built-in fonts.)
 /.buildfont1
  {
-   currentglobal 3 1 roll
-   dup gcheck setglobal
+   .currentglobal 3 1 roll
+   dup .gcheck .setglobal
    dup .fontbbox {
      pop pop pop pop
      dup /FontInfo known not
@@ -54,7 +54,7 @@
      ifelse
    } if
    //.buildfont1
-   3 2 roll setglobal
+   3 2 roll .setglobal
  } bind def
 % If the diskfont feature isn't included, define a dummy .loadfontdict.
 /.loadfontdict where
@@ -72,19 +72,19 @@
 	% However, we can't use any of the other well-known dictionaries
 	% (such as userdict), since the whole point of pushing systemdict
 	% is to make sure that nothing important has been redefined.
-   userdict begin
+   /userdict .systemvar begin
 	% We can't just use `run', because we want to check for .PFB files.
    currentpacking
-    { false setpacking .loadfont1 true setpacking }
+    { //false setpacking .loadfont1 //true setpacking }
     { .loadfont1 }
    ifelse end
     { stop } if
    DISKFONTS { end } if
    cleartomark
  } bind def
- % container for CloseSource flag (default true to prevent buildup of file handles)
+ % container for CloseSource flag (default //true to prevent buildup of file handles)
  /closesourcedict mark
-   /CloseSource true
+   /CloseSource //true
  .dicttomark readonly def
 /.loadfont1 {		% <file> .loadfont1 <errorflag>
   {	% We would like to use `false /PFBDecode filter',
@@ -151,12 +151,12 @@
 /CCRun {	% <font> <code|name> <charstring> CCRun -
 		% <font> <code|name> <charstring> <Private> CCRun -
   dup type /dicttype eq {
-    dup 4 index /Private .knownget { ne } { pop true } ifelse {
+    dup 4 index /Private .knownget { ne } { pop //true } ifelse {
 		% The Private dictionary was supplied, and is different
 		% from the Private dictionary of the font.  Fabricate a
 		% Type 1 font with this Private dictionary.  Most of the
 		% font entries are arbitrary or not needed.
-      .currentglobal false .setglobal 10 dict exch .setglobal begin
+      .currentglobal //false .setglobal 10 dict exch .setglobal begin
 	/Private exch def
 	/FontType 1 def
 	/FontMatrix 3 index /FontMatrix get def