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. % This file is part of Aladdin Ghostscript.
  3. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  4. % or distributor accepts any responsibility for the consequences of using it,
  5. % or for whether it serves any particular purpose or works at all, unless he
  6. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  7. % License (the "License") for full details.
  8. % Every copy of Aladdin Ghostscript must include a copy of the License,
  9. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  10. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  11. % under certain conditions described in the License.  Among other things, the
  12. % License requires that the copyright notice and this notice be preserved on
  13. % all copies.
  14.  
  15. % $Id: gs_ccfnt.ps,v 1.1 2000/03/09 08:40:39 lpd Exp $
  16. % Find and register all the precompiled font operators in systemdict.
  17.  
  18. /registerfont            % <fontname> <fontdict> registerfont <font>
  19.  { DEBUG { (Registering ) print 1 index = } if
  20.    dup begin
  21.      Encoding type /nametype eq
  22.       { Encoding .findencoding /Encoding exch def
  23.       }
  24.      if
  25.      dup /PrefEnc known
  26.       { PrefEnc type /nametype eq
  27.      { PrefEnc .findencoding /PrefEnc exch def
  28.      }
  29.     if
  30.       }
  31.      if
  32.      dup /FDepVector known
  33.       { /FDepVector [ FDepVector
  34.      { .FontDirectory 1 index .knownget
  35.         { exch pop }
  36.         { ccfonts 1 index .knownget
  37.            { registerfont
  38.            }
  39.            { Fontmap 1 index known
  40.           { findfont }
  41.           { pop NullFont }
  42.          ifelse
  43.            }
  44.           ifelse
  45.         }
  46.        ifelse
  47.      }
  48.     forall ] readonly def
  49.       }
  50.      if
  51.    end
  52.    % Use the value of definefont appropriate at run-time, not bind-time
  53.    /definefont load exec
  54.  } bind odef
  55. % Bind recursive call (bind descends into oparrays: feature!)
  56. /registerfont dup load bind def
  57.  
  58. /.loadinitialfonts {
  59.    //.loadinitialfonts exec
  60.    /ccfonts mark
  61.      0 1 null .getccfont 1 sub { .getccfont dup /FontName get exch } for
  62.    .dicttomark def
  63.         % Make sure these fonts are registered as "resources".
  64.    currentfile {
  65.      pop ccfonts
  66.       { .FontDirectory 2 index known { pop pop } { registerfont pop } ifelse }
  67.      forall
  68.   } .execasresource
  69.   currentdict /ccfonts .undef
  70. } bind def
  71.  
  72. currentdict /registerfont .undef
  73.  
  74.  
  75. % If we're in a Level 2 system but running in Level 1 mode,
  76. % register the fonts explicitly as resources.
  77. % This is a bit of a hack, but doing better is too much work.
  78.  
  79. /level2dict where
  80.  { pop /findresource where
  81.     {        % Level 2 system, Level 2 mode
  82.       pop
  83.     }
  84.     {        % Level 2 system, Level 1 mode
  85.       /Font /Category level2dict /findresource get exec begin
  86.       .FontDirectory
  87.        { dup .gcheck { Instances } { LocalInstances } ifelse
  88.      3 1 roll [exch 0 -1] .growput
  89.        }
  90.       forall end
  91.     }
  92.    ifelse
  93.  }
  94. if
  95.