diff options
Diffstat (limited to 'gs/Resource/Init/gs_fntem.ps')
| -rw-r--r-- | gs/Resource/Init/gs_fntem.ps | 432 |
1 files changed, 432 insertions, 0 deletions
diff --git a/gs/Resource/Init/gs_fntem.ps b/gs/Resource/Init/gs_fntem.ps new file mode 100644 index 000000000..991697679 --- /dev/null +++ b/gs/Resource/Init/gs_fntem.ps @@ -0,0 +1,432 @@ +% Copyright (C) 2000 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. +% +% For more information about licensing, please refer to +% http://www.ghostscript.com/licensing/. For information on +% commercial licensing, go to http://www.artifex.com/licensing/ or +% contact Artifex Software, Inc., 101 Lucas Valley Road #110, +% San Rafael, CA 94903, U.S.A., +1(415)492-9861. + +% $Id$ +% A procset for Postscript font emulation + +% The procedures must not depend on the presence of the +% procset dictionary on the dictionary stack. + +languagelevel 2 .setlanguagelevel + +%========================= Process xlatmap ==================== +mark +%% Replace 1 (xlatmap) +(xlatmap) .runlibfile +.dicttomark dup systemdict exch /.xlatmap_dict exch put + +% Convert it into a plain text to simplify the processing in C : +% *(fontkind\0\0\ *(charmap\0decoding\0) ) \0 + +() exch { + 3 1 roll =string cvs concatstrings (\0\0) concatstrings + exch + { =string cvs concatstrings (\0) concatstrings + } forall +} forall +(\0) concatstrings +systemdict exch /.xlatmap exch put + +/FontEmulationProcs 10 dict begin + +%-------------------------------Font-------------------------------- + + +/FontCommon % - font_common - +{ currentdict /PaintType known not { + /PaintType 0 def + } if + currentdict /Encoding .knownget not { + //StandardEncoding + } if + dup type /nametype eq { + /Encoding findresource + } if + /Encoding exch def +} bind def + +/FontOptions 5 dict begin + /make_procs currentdict def + /NameKey /FontName def + /TypeKey /FontType def + + 1 + { /FontMatrix [0.001 0 0 0.001 0 0] def + /FontBBox [-128 -128 1024 1024] def % zfapi.ps refines it. + /Private 0 dict def + /CharStrings << /.notdef () >> def + //FontCommon exec + } bind def + + 42 + { /FontMatrix [1 0 0 1 0 0] def + /FontBBox [0 0 1 1] def % zfapi.ps refines it. + /CharStrings <<>> def + /sfnts [<00010000 0000 0000 0000 0000 0000>] def + /GlyphDirectory [] def + //FontCommon exec + } bind def + + %fixme : more font types. + +currentdict end def + +%---------------------------CIDFont--------------------------- + +/TranslateCSI % <record> TranslateCSI <CSI> +{ RESMPDEBUG { (fntem TranslateCSI beg ) = } if + begin + CSI length 2 eq { + << /Registry (Adobe) + /Ordering CSI aload pop + /Supplement exch + >> + } { + << /Registry CSI 0 get + /Ordering CSI 1 get + /Supplement CSI 2 get + >> + } ifelse + end + RESMPDEBUG { (fntem TranslateCSI end ) = } if +} bind def + +/CIDFontCommon +{ /CIDSystemInfo currentdict //TranslateCSI exec def + currentdict /CSI undef + /FontBBox [-128 -128 1024 1024] def % zfapi.ps refines it. + /CIDCount 1 def % ChooseDecoding will set a reasonable value. +} bind def + +% GFlyph substitution table for narrow, wide, proportional glyphs - +% used with TrueTypes. + +currentpacking false setpacking +/SubstNWP << + + % Array format : orig_type, beg_CID, end_CID, subst_beg_CID, subst_type + % type = (n==narrow, w==wide, p==proportional). + + /Japan1 + { p 1 94 231 n + + p 17 26 780 w + p 34 59 790 w + p 66 91 816 w + w 842 842 7918 w % fixme: These substitutions require to shift the glyph origin. + w 844 844 7919 w + w 846 846 7920 w + w 848 848 7921 w + w 850 850 7922 w + w 876 876 7923 w + w 908 908 7924 w + w 910 910 7925 w + w 912 912 7926 w + w 914 914 7927 w + w 925 925 7928 w + w 927 927 7929 w + w 929 929 7930 w + w 931 931 7931 w + w 933 933 7932 w + w 959 959 7933 w + w 991 991 7934 w + w 993 993 7935 w + w 995 995 7936 w + w 1002 1002 7937 w + w 1009 1009 7938 w + w 1010 1010 7939 w + } cvlit + + /Japan2 1 index + + /CNS1 + { p 1 94 13648 n + + p 17 26 333 w + p 34 59 365 w + p 66 91 391 w + } cvlit + + /GB1 + { p 2 94 814 n + + p 2 94 262 w + + p 1 1 7716 n + } cvlit + + /Korea1 + { p 1 60 8094 n + p 62 94 8155 n + + p 2 59 264 w + p 63 94 325 w + } cvlit + + /Identity [] + + /Unicode [] + +>> def +setpacking + +/CIDFontOptions 5 dict begin + /make_procs currentdict def + /NameKey /CIDFontName def + /TypeKey /CIDFontType def + + 0 + { //CIDFontCommon exec + /FDArray [ + 14 dict begin + /FontName CIDFontName =string cvs (%) concatstrings cvn def + /FontType 1 def + /FontMatrix [0.001 0 0 0.001 0 0 ] def + /PaintType 0 def + /Private 0 dict def + currentdict + end + ] def + /GlyphDirectory [] def + /GDBytes 1 def + /FDBytes 0 def + } bind def + + 1 + { //CIDFontCommon exec + /FontMatrix [1 0 0 1 0 0] def + /BuildGlyph {} def + } bind def + + 2 + { //CIDFontCommon exec + /FontMatrix [1 0 0 1 0 0] def + /GDBytes 2 def + /CIDMap <0000> def + /sfnts [<00010000 0000 0000 0000 0000 0000>] def + /Encoding [] def + /CharStrings << /.notdef 0 >> def + } bind def + +currentdict end def + +/complete_instance % <font_name> <FontDict> <Options> complete_FAPI_Font <font_name> <FontDict> +{ begin + dup length dict copy + begin + dup type /nametype ne { cvn } if + dup NameKey exch def + currentglobal true setglobal + make_procs TypeKey load .knownget { + exec + } { setglobal + /complete_instance cvx /invalidfont signalerror + } ifelse + setglobal + currentdict end + end +} bind def + +/GetFilePath % <scratch> <Name> <record> GetFilePath <filepath> +{ exch pop % (scratch) <record> + /Path get % (scratch) (path) + exch copy + % What we make here it is not a complete PS resource. + % Unable to provide full conformity : + % the attempt to run this file may fail. +} bind def + +/GetSize % <Name> <record> GetSize <size> +{ pop pop -1 % Unknown size. + % fixme: probably we could provide an estimation size for some fonts. +} bind def + +/RecordVirtualMethodsStub 3 dict begin + /GetFilePath //GetFilePath def + /GetSize //GetSize def +currentdict end def + +% ---------------------- Decoding helpers ---------------------------- + +/encodingnames mark + StandardEncoding /StandardEncoding + ISOLatin1Encoding /ISOLatin1Encoding + SymbolEncoding /SymbolEncoding + DingbatsEncoding /DingbatsEncoding + /resourceforall where { + pop (*) { dup cvn + EncodingDirectory exch .knownget not { + % A work around bug 688710 on Linux : + % findencoding can't load resource files until gs_init.ps executes .fixresources . + % It will happen after gs_init.ps runs INITFILES, + % from which the current file runs. + % Windows build has no such problem. + (.svn) anchorsearch { + % HACK : skip .svn or */* names, which are subdirectories. + pop pop + } { + (/) search { + pop pop pop + } { + cvn dup /Encoding findresource + } ifelse + } ifelse + } { + exch cvn exch + } ifelse + exch + } 1024 string /Encoding resourceforall + } if +.dicttomark def + +/ChooseDecoding % <font> ChooseDecoding <font> +{ { % A loop for 'exit' context. + dup /Decoding .knownget { + dup type /nametype eq { + 1 index /CIDFontType known { /CIDDecoding } { /Decoding } ifelse + findresource 1 index exch /Decoding exch put + } { + pop + } ifelse + dup /CIDFontType known { + dup dup /Decoding get /CIDCount get /CIDCount exch put + } if + exit + } if + dup /CIDFontType known { + % This is a hooked CID font, no need for Decoding. + exit + } if + % This works when the renderer can't choose character by name, + % and we cannot determine the charset. + % Probably this branch is to be removed after UFST problem is fixed. + dup /Encoding get % <<font>> encoding + dup type /nametype eq { + /Decoding findresource 1 index exch /Decoding exch put + } { + dup //encodingnames + exch .knownget { + exch pop + /Decoding findresource 1 index exch /Decoding exch put + } { + % unknown encoding, convert it to decoding : + dup length dict begin + /.notdef 0 def + 0 1 currentdict length 1 sub + { dup 2 index exch get + dup /.notdef ne { + exch def + } { + pop pop + } ifelse + } for + pop + currentdict end + 1 index exch /Decoding exch put + } ifelse + } ifelse + exit + } loop + dup /CIDFontType known { + dup /SubstNWP .knownget not { + dup /CIDSystemInfo get /Ordering get cvn + } if + dup type /nametype eq { + //SubstNWP exch .knownget not { + [] + } if % <<font>> [SubstNWP] + } if + 1 index exch /SubstNWP exch put + } if +} bind def + +/PrintFontRef % <string|name> <font> PrintFontRef <string|name> <font> +{ dup /FontName known { (Font ) } { (CIDFont ) } ifelse print + 1 index =string cvs print + dup /FontName .knownget not { + dup /CIDFontName get + } if % <string|name> <font> <fontname> + dup 3 index ne { + ( \( aliased from ) print + =string cvs print ( \)) print + } { + pop + } ifelse +} bind def + +/GetFontType % <font> GetFontType int +{ dup /CIDFontType .knownget { + exch pop 9 add + } { + /FontType get + } ifelse +} bind def + +/FindInArray % <array> <elem> .array_find <bool> +{ false 3 1 roll + exch { % false elem elem_i + 1 index eq { % false elem + pop true exch + } if + } forall + pop +} bind def + +/ProvideUnicodeDecoding % <font> ProvideUnicodeDecoding <font> +{ + % If the font is maintained by FAPI, or if it is TT-emulated CID font, + % it already has /Decoding. But its value isn't guaranteeed to + % be an Unicode decoding. Since we can't determine whether + % it is an Unicode decoding, we unconditionally load an appropriate Unicode decoding + % and attach it with /GlyphNames2Unicode entry. + % + % Another interesting case is when the font already has /GlyphNames2Unicode. + % The latter to be used instead. Note that /GlyphNames2Unicode + % appears only when type 32 fonts are disable (see .pdf_hook_DSC_Creator), + % but an automatic disabling is not implemented yet. + + currentglobal true setglobal exch + dup /FontInfo known not { + dup /FontInfo 1 dict put + } if + { % A loop just for 'exit' context. + dup /FontInfo get /GlyphNames2Unicode known { + exit + } if + dup /CIDFontType known { + dup mark exch % bool <font> [ <font> + dup /CIDSystemInfo get /Ordering get (.Unicode) % bool <font> [ <font> () () + concatstrings cvn % bool <font> [ <font> /Name + /CIDDecoding { findresource } stopped { + % Can't provide a decoding, giving up without creating /GlyphNames2Unicode. + cleartomark exit + } if % bool <font> [ <font> <D> + exch /FontInfo get exch % bool <font> [ <FI> <D> + /GlyphNames2Unicode exch + .forceput % FontInfo can be read-only. + pop % bool <font> + exit + } if + dup /FontInfo get % bool <font> <FI> + /GlyphNames2Unicode /Unicode /Decoding findresource + .forceput % FontInfo can be read-only. + exit + } loop + exch setglobal +} bind def + +currentdict end /ProcSet defineresource pop + +.setlanguagelevel |