/usr/share/ghostscript/Resource/Init
Edit: /usr/share/ghostscript/Resource/Init/gs_cidtt.ps (5847B)
% Copyright (C) 2001-2021 Artifex Software, Inc.
% All Rights Reserved.
%
% This software is provided AS-IS with no warranty, either express or
% implied.
%
% This software is distributed under license and may not be copied,
% modified or distributed except as expressly authorized under the terms
% 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., 1305 Grant Avenue - Suite 200, Novato,
% CA 94945, U.S.A., +1(415)492-9861, for further information.
%
% Redefine CIDFont category with an emulation with True Type fonts.
languagelevel 2 .setlanguagelevel
15 dict begin % a temporary dictionary for local binding.
%------------------Copy the FontEmulationProcs here : -------------------
/FontEmulationProcs /ProcSet findresource {
def
} forall
currentdict /super.complete_instance currentdict /complete_instance get put
%-------Auxiliary procedures for building CIDFontType 2 from TT file -----------
/GenerateCIDMap %
GenerateCIDMap
{ begin
% Obtain the maximal CID :
% This implementation doesn't check whether glyphs really present.
Decoding /CIDCount get /CIDCount exch def
% Prepare the CIDMap structure :
/CIDMap [
CIDCount 22000 le {
CIDCount 2 mul string
} {
44000 string
CIDCount 44000 gt {
% need three strings
44000 string % 22000 2 mul string
CIDCount 44000 sub 2 mul string
} {
CIDCount 22000 sub 2 mul string
} ifelse
} ifelse
] def
% Now fill it :
Decoding TT_cmap SubstNWP GDBytes CIDMap .fillCIDMap
currentdict end
} bind def
/GenerateIdentityCIDMap % GenerateCIDMap
{ begin
/CIDMap [ 44000 string 44000 string 44000 string] def
CIDMap .fillIdentityCIDMap
currentdict end
} bind def
/load_sfnts % load_sfnts
{ % Read the True Type file from the path /Path, and buld /sfnts,
% skipping glyf and loca.
dup /Path get % (path)
QUIET not {
(Loading a TT font from ) print dup print
( to emulate a CID font ) print 1 index /CIDFontName get =only ( ... ) print
} if
(r) file dup % file file
3 1 roll % file file
1 index /SubfontID .knownget not { 0 } if % file file SubfontID
2 index /FileType .knownget
{/WOFF eq}
{//false} ifelse
% It's not (currently) viable to load WOFF fonts "stripped", so we don't try
{.load_woff_for_cid exch copy exch pop}
{
.load_tt_font_stripped exch
copy % file
QUIET not {
(Done.) =
} if
dup 3 1 roll % file
exch /File exch put %
} ifelse
dup dup /CIDSystemInfo get /Ordering get (.) % () ()
2 index /Decoding get =string cvs % () () ()
concatstrings concatstrings cvn /Decoding exch put %
dup dup /CIDSystemInfo get /Ordering get (-WMode) % () ()
concatstrings cvn /SubstCID
2 copy resourcestatus {
pop pop
findresource /subst_CID_on_WMode exch put %
} {
pop pop pop
} ifelse
dup /Decoding get /Identity.Unicode eq {
//ChooseDecoding exec %
//GenerateIdentityCIDMap exec %
} {
//ChooseDecoding exec %
//GenerateCIDMap exec %
} ifelse
} bind def
%-----------TrueType-specific methods for category redefinition : -----------
/RefinePath % RefinePath
{ dup begin
Path .libfile {
dup .filename {
currentdict exch /Path exch put
} if
closefile
} {
(r) { file } //.internalstopped exec
{
(Can't find the font file ) print =
/findfont cvx /undefinedfilename signalerror
}
{
dup .filename {
currentdict exch /Path exch put
} if
closefile
} ifelse
} ifelse
end
} bind def
/complete_instance % complete_FAPI_Font
{ 1 index /CIDFontType 2 put % Other types are not emulated yet.
//super.complete_instance exec
//RefinePath exec
//load_sfnts exec
} bind def
/ValidFileTypes
<<
/TrueType 0
/WOFF 0
>> def
/IsMyRecord % -> bool
{
dup type /dicttype eq { dup /FileType .knownget { //ValidFileTypes exch known } { //false } ifelse } { //false } ifelse
} bind def
currentdict /ValidFileTypes undef
/IsActive % IsActive
{ pop //true
} bind def
/CIDFontRecordVirtualMethods //RecordVirtualMethodsStub dup length 3 add dict copy begin
/GetCSI //TranslateCSI def
/IsActive //IsActive def
/MakeInstance % MakeInstance
{ currentglobal 3 1 roll //true setglobal
//CIDFontOptions //complete_instance exec
2 copy //GetSize exec
4 3 roll setglobal
} bind def
currentdict end def
% Redefine the /CIDFont category :
4 dict begin
/CategoryName /CIDFont def
/IsMapFileOptional //true def
/VerifyMap { pop } bind def
/PreprocessRecord %