home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / GhostScript / !GhostScr / 6_01 / lib / gs_ccfnt.ps < prev    next >
Text File  |  2000-03-09  |  3KB  |  98 lines
  1. %    Copyright (C) 1994, 1996 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_ccfnt.ps,v 1.1 2000/03/09 08:40:39 lpd Exp $
  19. % Find and register all the precompiled font operators in systemdict.
  20.  
  21. /registerfont            % <fontname> <fontdict> registerfont <font>
  22.  { DEBUG { (Registering ) print 1 index = } if
  23.    dup begin
  24.      Encoding type /nametype eq
  25.       { Encoding .findencoding /Encoding exch def
  26.       }
  27.      if
  28.      dup /PrefEnc known
  29.       { PrefEnc type /nametype eq
  30.      { PrefEnc .findencoding /PrefEnc exch def
  31.      }
  32.     if
  33.       }
  34.      if
  35.      dup /FDepVector known
  36.       { /FDepVector [ FDepVector
  37.      { .FontDirectory 1 index .knownget
  38.         { exch pop }
  39.         { ccfonts 1 index .knownget
  40.            { registerfont
  41.            }
  42.            { Fontmap 1 index known
  43.           { findfont }
  44.           { pop NullFont }
  45.          ifelse
  46.            }
  47.           ifelse
  48.         }
  49.        ifelse
  50.      }
  51.     forall ] readonly def
  52.       }
  53.      if
  54.    end
  55.    % Use the value of definefont appropriate at run-time, not bind-time
  56.    /definefont load exec
  57.  } bind odef
  58. % Bind recursive call (bind descends into oparrays: feature!)
  59. /registerfont dup load bind def
  60.  
  61. /.loadinitialfonts {
  62.    //.loadinitialfonts exec
  63.    /ccfonts mark
  64.      0 1 null .getccfont 1 sub { .getccfont dup /FontName get exch } for
  65.    .dicttomark def
  66.         % Make sure these fonts are registered as "resources".
  67.    currentfile {
  68.      pop ccfonts
  69.       { .FontDirectory 2 index known { pop pop } { registerfont pop } ifelse }
  70.      forall
  71.   } .execasresource
  72.   currentdict /ccfonts .undef
  73. } bind def
  74.  
  75. currentdict /registerfont .undef
  76.  
  77.  
  78. % If we're in a Level 2 system but running in Level 1 mode,
  79. % register the fonts explicitly as resources.
  80. % This is a bit of a hack, but doing better is too much work.
  81.  
  82. /level2dict where
  83.  { pop /findresource where
  84.     {        % Level 2 system, Level 2 mode
  85.       pop
  86.     }
  87.     {        % Level 2 system, Level 1 mode
  88.       /Font /Category level2dict /findresource get exec begin
  89.       .FontDirectory
  90.        { dup .gcheck { Instances } { LocalInstances } ifelse
  91.      3 1 roll [exch 0 -1] .growput
  92.        }
  93.       forall end
  94.     }
  95.    ifelse
  96.  }
  97. if
  98.