summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/Resource/Init/gs_cidfm.ps
diff options
context:
space:
mode:
authorReinhard Kotucha <reinhard.kotucha@web.de>2019-10-16 20:19:46 +0000
committerReinhard Kotucha <reinhard.kotucha@web.de>2019-10-16 20:19:46 +0000
commit5495dccfe2922c9db6a88df19c1ae41f9c3f363d (patch)
tree0ec95929b4ae75a0642253c266a77da5a9e3c0c5 /Master/tlpkg/tlgs/Resource/Init/gs_cidfm.ps
parent147afe376edb627c38fd6f76cb1fcd6d1e444ee9 (diff)
Upgrade gs-9.27 -> gs-9.50
git-svn-id: svn://tug.org/texlive/trunk@52405 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlgs/Resource/Init/gs_cidfm.ps')
-rw-r--r--Master/tlpkg/tlgs/Resource/Init/gs_cidfm.ps53
1 files changed, 38 insertions, 15 deletions
diff --git a/Master/tlpkg/tlgs/Resource/Init/gs_cidfm.ps b/Master/tlpkg/tlgs/Resource/Init/gs_cidfm.ps
index c0237283cd8..5eb25f0042f 100644
--- a/Master/tlpkg/tlgs/Resource/Init/gs_cidfm.ps
+++ b/Master/tlpkg/tlgs/Resource/Init/gs_cidfm.ps
@@ -133,9 +133,39 @@ currentdict end def
} if
>> def
+% <dir.../base.extn> .basename <dir>
+/.splitdirname {
+ (/) rsearch { //true } { (\\) rsearch } ifelse
+ {3 -2 roll pop pop //true}{//false} ifelse
+} bind def
+
+% <file> .addcidfmappath -
+/.addcidfmpermitpath
+{
+ .filename
+ {
+ //.splitdirname exec
+ {dup def} if
+ } if
+} bind def
+
/VerifyMap % <raw_map> VerifyMap -
{
+ % This is where we insert the default fallback into the map
+ % checking first to see if there is a user specified alternative
+ dup /CIDFallBack known not{
+ //DefaultCIDFallBack dup /Path get status
+ {
+ pop pop pop pop
+ /CIDFallBack exch 2 index 3 1 roll put
+ }
+ {
+ pop
+ }ifelse
+ } if
+
% Remove any mappings for which we cannot find the font file
+ dup length dict begin
dup
{
% if we have a name1->name2 mapping, follow the "trail",
@@ -163,11 +193,12 @@ currentdict end def
/Path .knownget
{
.libfile
- {closefile pop}
+ {
+ dup //.addcidfmpermitpath exec closefile pop}
{
{(r) file} //.internalstopped exec
{pop pop 2 index exch .undef}
- {closefile pop} ifelse
+ {dup //.addcidfmpermitpath exec closefile pop} ifelse
} ifelse
}
{2 index exch .undef}
@@ -177,19 +208,8 @@ currentdict end def
} ifelse
} loop
} forall
-
- % This is where we insert the default fallback into the map
- % checking first to see if there is a user specified alternative
- dup /CIDFallBack known not{
- //DefaultCIDFallBack dup /Path get status
- {
- pop pop pop pop
- /CIDFallBack exch 2 index 3 1 roll put
- }
- {
- pop
- }ifelse
- } if
+ currentdict end
+ {exch pop (/) concatstrings /PermitFileReading exch .addcontrolpath} forall
% Checks for vicious substitution cycles.
dup length dict copy % <<map>>
@@ -233,6 +253,9 @@ currentdict end def
pop pop
} bind def
+currentdict /.splitdirname undef
+currentdict /.addcidfmpermitpath undef
+
/PreprocessRecord % <map> <Name> <raw_record> PreprocessRecord <map> <Name> <record> <bool>
{
//IsMyRecord exec {