home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 April / PCWorld_2001-04_cd.bin / Software / Vyzkuste / gs / gs650w32.exe / gs6.50 / lib / gs_ccfnt.ps < prev    next >
Text File  |  2000-12-05  |  2KB  |  76 lines
  1. %    Copyright (C) 1994, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of AFPL Ghostscript.
  4. % 
  5. % AFPL Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author or
  6. % distributor accepts any responsibility for the consequences of using it, or
  7. % for whether it serves any particular purpose or works at all, unless he or
  8. % she says so in writing.  Refer to the Aladdin Free Public License (the
  9. % "License") for full details.
  10. % 
  11. % Every copy of AFPL Ghostscript must include a copy of the License, normally
  12. % in a plain ASCII text file named PUBLIC.  The License grants you the right
  13. % to copy, modify and redistribute AFPL Ghostscript, but only under certain
  14. % conditions described in the License.  Among other things, the License
  15. % requires that the copyright notice and this notice be preserved on all
  16. % copies.
  17.  
  18. % $Id: gs_ccfnt.ps,v 1.4 2000/09/19 18:29:11 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.