summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/Resource/Init/gs_typ42.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlgs/Resource/Init/gs_typ42.ps')
-rw-r--r--Master/tlpkg/tlgs/Resource/Init/gs_typ42.ps16
1 files changed, 9 insertions, 7 deletions
diff --git a/Master/tlpkg/tlgs/Resource/Init/gs_typ42.ps b/Master/tlpkg/tlgs/Resource/Init/gs_typ42.ps
index 0374a3c3372..ba5074ce1a5 100644
--- a/Master/tlpkg/tlgs/Resource/Init/gs_typ42.ps
+++ b/Master/tlpkg/tlgs/Resource/Init/gs_typ42.ps
@@ -1,4 +1,4 @@
-% Copyright (C) 2001-2018 Artifex Software, Inc.
+% Copyright (C) 2001-2019 Artifex Software, Inc.
% All Rights Reserved.
%
% This software is provided AS-IS with no warranty, either express or
@@ -20,12 +20,6 @@
% interpreter. The real work is done in an operator:
% <font> <code|name> <name> <glyphindex> .type42execchar -
-(%Type42BuildChar) cvn % <font> <code> %Type42BuildChar -
- { 1 index /Encoding get 1 index get .type42build
- } bind def
-(%Type42BuildGlyph) cvn % <font> <name> %Type42BuildGlyph -
- { dup .type42build
- } bind def
/.type42build % <font> <code|name> <name> .type42build -
{ 2 index begin
dup CharStrings exch .knownget not
@@ -41,6 +35,14 @@
} if
end .type42execchar
} bind def
+(%Type42BuildChar) cvn % <font> <code> %Type42BuildChar -
+ { 1 index /Encoding get 1 index get //.type42build exec
+ } bind executeonly def
+(%Type42BuildGlyph) cvn % <font> <name> %Type42BuildGlyph -
+ { dup //.type42build exec
+ } bind executeonly def
+
+currentdict /.type42build .undef
% Register the font type for definefont.
buildfontdict 42