summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/Resource/Init/gs_fonts.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlgs/Resource/Init/gs_fonts.ps')
-rw-r--r--Master/tlpkg/tlgs/Resource/Init/gs_fonts.ps25
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