diff options
Diffstat (limited to 'Master/tlpkg/tlgs/Resource/Init/gs_fonts.ps')
-rw-r--r-- | Master/tlpkg/tlgs/Resource/Init/gs_fonts.ps | 25 |
1 files changed, 3 insertions, 22 deletions
diff --git a/Master/tlpkg/tlgs/Resource/Init/gs_fonts.ps b/Master/tlpkg/tlgs/Resource/Init/gs_fonts.ps index 1f4c9eda288..38f0f6ca26f 100644 --- a/Master/tlpkg/tlgs/Resource/Init/gs_fonts.ps +++ b/Master/tlpkg/tlgs/Resource/Init/gs_fonts.ps @@ -1,4 +1,4 @@ -% Copyright (C) 2001-2012 Artifex Software, Inc. +% Copyright (C) 2001-2018 Artifex Software, Inc. % All Rights Reserved. % % This software is provided AS-IS with no warranty, either express or @@ -9,8 +9,8 @@ % of the license contained in the file LICENSE in this distribution. % % Refer to licensing information at http://www.artifex.com or contact -% Artifex Software, Inc., 7 Mt. Lassen Drive - Suite A-134, San Rafael, -% CA 94903, U.S.A., +1(415)492-9861, for further information. +% Artifex Software, Inc., 1305 Grant Avenue - Suite 200, Novato, +% CA 94945, U.S.A., +1(415)492-9861, for further information. % % Font initialization and management code. @@ -47,12 +47,6 @@ end def { /FontDirectory .systemvar } .bind odef -% If DISKFONTS is true, we load individual CharStrings as they are needed. -% (This is intended primarily for machines with very small memories.) -% In this case, we define another dictionary, parallel to FontDirectory, -% that retains an open file for every font loaded. -/FontFileDirectory 10 dict def - % Define a temporary string for local use, since using =string % interferes with some PostScript programs. /.fonttempstring 8192 string def @@ -497,12 +491,6 @@ buildfontdict 3 /.buildfont3 cvx put exec { - - DISKFONTS { - FontFileDirectory 2 index known { - dup /FontFile FontFileDirectory 4 index get .growput - } if - } if systemdict /ProvideUnicode .knownget not { //false } if { /FontEmulationProcs /ProcSet findresource /ProvideUnicodeDecoding get exec @@ -1071,13 +1059,6 @@ $error /SubstituteFont { } put if pop //false exit } if % Stack: fontname fontfilename fontfile - DISKFONTS - { .currentglobal //true .setglobal - 2 index (r) file - FontFileDirectory exch 5 index exch .growput - .setglobal - } - if QUIET not { (Loading ) print 2 index =only ( font from ) print 1 index print (... ) print flush |