1 % Copyright (C) 1994, 2000 Aladdin Enterprises. All rights reserved.
3 % This software is provided AS-IS with no warranty, either express or
6 % This software is distributed under license and may not be copied,
7 % modified or distributed except as expressly authorized under the terms
8 % of the license contained in the file LICENSE in this distribution.
10 % For more information about licensing, please refer to
11 % http://www.ghostscript.com/licensing/. For information on
12 % commercial licensing, go to http://www.artifex.com/licensing/ or
13 % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
14 % San Rafael, CA 94903, U.S.A., +1(415)492-9861.
16 % $Id: gs_ccfnt.ps,v 1.8 2003/04/12 18:08:18 ray Exp $
17 % Find and register all the precompiled font operators in systemdict.
19 /registerfont % <fontname> <fontdict> registerfont <font>
20 { CCFONTDEBUG { (Registering ) print 1 index = } if
22 Encoding type /nametype eq
23 { Encoding .findencoding /Encoding exch def
27 { PrefEnc type /nametype eq
28 { PrefEnc .findencoding /PrefEnc exch def
34 { /FDepVector [ FDepVector
35 { .FontDirectory 1 index .knownget
37 { ccfonts 1 index .knownget
40 { Fontmap 1 index known
53 % Use the value of definefont appropriate at run-time, not bind-time
56 % Bind recursive call (bind descends into oparrays: feature!)
57 /registerfont dup load bind def
60 //.loadinitialfonts exec
63 0 1 null .getccfont 1 sub { .getccfont dup /FontName get exch } for
65 % Make sure these fonts are registered as "resources".
68 .FontDirectory 2 index known { pop pop } { registerfont pop } ifelse
71 currentdict /ccfonts .undef
75 currentdict /registerfont .undef