summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/Resource/Init/gs_type1.ps
diff options
context:
space:
mode:
authorAkira Kakuto <kakuto@fuk.kindai.ac.jp>2024-03-08 01:38:52 +0000
committerAkira Kakuto <kakuto@fuk.kindai.ac.jp>2024-03-08 01:38:52 +0000
commit9fbffcd0921a99f641de4cf11d25fb17749cca09 (patch)
tree24856d1fe2cbae81dbc7746153104863af68cc24 /Master/tlpkg/tlgs/Resource/Init/gs_type1.ps
parentec724927af1a4cd789b6b8e4ce76ee10498ee84f (diff)
gs 10.03.0
git-svn-id: svn://tug.org/texlive/trunk@70494 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlgs/Resource/Init/gs_type1.ps')
-rw-r--r--Master/tlpkg/tlgs/Resource/Init/gs_type1.ps20
1 files changed, 10 insertions, 10 deletions
diff --git a/Master/tlpkg/tlgs/Resource/Init/gs_type1.ps b/Master/tlpkg/tlgs/Resource/Init/gs_type1.ps
index f17a3f11b6e..47a81d41d5d 100644
--- a/Master/tlpkg/tlgs/Resource/Init/gs_type1.ps
+++ b/Master/tlpkg/tlgs/Resource/Init/gs_type1.ps
@@ -149,7 +149,7 @@
{//.buildfont1} stopped
4 3 roll .setglobal
{//.buildfont1 $error /errorname get signalerror} if
- } .bind executeonly def % hide .forceput
+ } .forcebind def % hide .forceput
% container for CloseSource flag (default //true to prevent buildup of file handles)
/closesourcedict mark
@@ -178,7 +178,7 @@
cvx exec
} ifelse
} stopped
-} bind executeonly def
+} .internalbind def
% If the diskfont feature isn't included, define a dummy .loadfontdict.
/.loadfontdict where
@@ -205,7 +205,7 @@ ifelse
end
{ stop } if
cleartomark
- } bind def
+ } .internalbind def
% undefine stuff that is only used internally, and is immediately bound
currentdict /closesourcedict .undef
currentdict /.loadfont1 .undef
@@ -232,7 +232,7 @@ currentdict /.loadfont1 .undef
{ CFFCharStrings 0 get} if
} if
end
-} bind def
+} .internalbind def
% Here are the BuildChar and BuildGlyph implementation for Type 1 fonts.
% The names %Type1BuildChar and %Type1BuildGlyph are known to the interpreter.
@@ -241,10 +241,10 @@ currentdict /.loadfont1 .undef
(%Type1BuildChar) cvn { % <font> <code> %Type1BuildChar -
1 index /Encoding get 1 index get //.type1build exec .type1execchar
-} bind executeonly def
+} .internalbind def
(%Type1BuildGlyph) cvn { % <font> <name> %Type1BuildGlyph -
dup //.type1build exec .type1execchar
-} bind executeonly def
+} .internalbind def
1183615869 internaldict begin
% CCRun is an undocumented procedure provided for Type 4 and Type 0 fonts.
@@ -276,7 +276,7 @@ currentdict /.loadfont1 .undef
1 index dup type /integertype eq {
3 index /Encoding get exch get
} if exch .type1execchar
-} bind def
+} .internalbind def
% setweightvector is an undocumented procedure that force writes
% weight vector to the font. Do extra checks for safety.
@@ -293,7 +293,7 @@ currentdict /.loadfont1 .undef
} if
2 copy /WeightVector exch .forceput
.setweightvector
-} .bind executeonly odef
+} .forcebind odef
end
% Register the font types for definefont.
@@ -305,9 +305,9 @@ buildfontdict 4 /.buildfont4 cvx put
pop
(%Type2BuildChar) cvn { % <font> <code> %Type2BuildChar -
1 index /Encoding get 1 index get //.type1build exec .type2execchar
-} bind executeonly def
+} .internalbind def
(%Type2BuildGlyph) cvn { % <font> <name> %Type2BuildGlyph -
dup //.type1build exec .type2execchar
-} bind executeonly def
+} .internalbind def
buildfontdict 2 /.buildfont2 cvx put
%END2