home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / GhostScript / !GhostScr / 6_01 / lib / gs_dps1.ps < prev    next >
Text File  |  2000-03-09  |  5KB  |  144 lines
  1. %    Copyright (C) 1997, 1999 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % $Id: gs_dps1.ps,v 1.1 2000/03/09 08:40:39 lpd Exp $
  19. % Initialization file for most of the Display PostScript functions
  20. % that are also included in Level 2.
  21.  
  22. level2dict begin
  23.  
  24. % ------ Virtual memory ------ %
  25.  
  26. /currentshared /.currentglobal load def
  27. /scheck /.gcheck load def
  28. %****** FOLLOWING IS WRONG ******
  29. /shareddict currentdict /globaldict .knownget not { 20 dict } if def
  30.  
  31. % Global and LocalFontDirectory must remain in systemdict
  32. % even if we temporarily exit Level 2 mode.
  33.  
  34. end                % level2dict
  35. systemdict begin
  36.  
  37. /SharedFontDirectory .FontDirectory .gcheck
  38.  { .currentglobal false .setglobal
  39.    /LocalFontDirectory .FontDirectory dup maxlength dict copy
  40.    .forcedef    % LocalFontDirectory is local, systemdict is global
  41.    .setglobal .FontDirectory
  42.  }
  43.  { /LocalFontDirectory .FontDirectory
  44.    .forcedef    % LocalFontDirectory is local, systemdict is global
  45.    50 dict
  46.  }
  47. ifelse def
  48.  
  49. end                % systemdict
  50. level2dict begin
  51.  
  52. % setshared must rebind FontDirectory to the appropriate one of
  53. % Local or SharedFontDirectory.
  54.  
  55. /.setglobal        % <bool> .setglobal -
  56.  { dup .setglobal
  57.    //systemdict /FontDirectory .currentglobal
  58.     { //SharedFontDirectory }
  59.     { /LocalFontDirectory .systemvar }    % can't embed ref to local VM
  60.    ifelse .forceput pop    % LocalFontDirectory is local, systemdict is global
  61.  } .bind odef        % must bind .forceput and .setglobal
  62.             % even if NOBIND in effect
  63. % Don't just copy (load) the definition of .setglobal:
  64. % it gets redefined for LL3.
  65. /setshared { /.setglobal .systemvar exec } odef
  66. .currentglobal setshared
  67.  
  68. % See below for changes in save and restore.
  69.  
  70. % ------ Fonts ------ %
  71.  
  72. /selectfont        % <fontname> <size> selectfont -
  73.  { 1 index findfont
  74.    1 index dup type /arraytype eq { makefont } { scalefont } ifelse
  75.    setfont pop pop
  76.  } odef
  77. % undefinefont has to take local/global VM into account.
  78. /undefinefont        % <fontname> undefinefont -
  79.  { .FontDirectory 1 index .undef
  80.    .currentglobal
  81.     {        % Current mode is global; delete from local directory too.
  82.       //systemdict /LocalFontDirectory .knownget
  83.        { 1 index .undef }
  84.       if
  85.     }
  86.     {        % Current mode is local; if there was a shadowed global
  87.         % definition, copy it into the local directory.
  88.       //systemdict /SharedFontDirectory .knownget
  89.        { 1 index .knownget
  90.       { .FontDirectory 2 index 3 -1 roll put }
  91.      if
  92.        }
  93.       if
  94.     }
  95.    ifelse pop
  96.  } odef
  97.  
  98. % If we load a font into global VM within an inner save, the restore
  99. % will delete it from FontDirectory but not from SharedFontDirectory.
  100. % We have to handle this by making restore copy missing entries from
  101. % SharedFontDirectory to FontDirectory.  Since this could slow down restore
  102. % considerably, we define a new operator .dictcopynew for this purpose.
  103. % Furthermore, if FAKEFONTS is in effect, we want global real fonts to
  104. % override fake local ones.  We handle this by brute force.
  105. /restore        % <save> restore -
  106.  { dup //restore    % bind even if NOBIND
  107.    /LocalFontDirectory .systemvar
  108.    FAKEFONTS
  109.     { mark
  110.         % We want to delete a fake font from the local directory
  111.         % iff the global directory now has no definition for it,
  112.         % or a non-fake definition.
  113.       1 index dup
  114.        {        % Stack: lfd mark lfd key ... lfd key value
  115.      length 1 gt
  116.       {        % This is a real local definition; don't do anything.
  117.         pop
  118.       }
  119.       {        % This is a fake local definition, check for global.
  120.         //SharedFontDirectory 1 index .knownget
  121.          {        % A global definition exists, check for fake.
  122.            length 1 eq { pop } { 1 index } ifelse
  123.          }
  124.          {        % No global definition, delete the local one.
  125.            1 index
  126.          }
  127.         ifelse
  128.       }
  129.      ifelse
  130.        } forall
  131.       pop counttomark 2 idiv { .undef } repeat pop
  132.     }
  133.    if
  134.    //SharedFontDirectory exch .dictcopynew pop
  135.    .currentglobal .setglobal    % Rebind FontDirectory according to current VM.
  136.    pop
  137.  } bind odef
  138.  
  139. % ------ Miscellaneous ------ %
  140.  
  141. /undef /.undef load def
  142.  
  143. end                % level2dict
  144.