diff options
Diffstat (limited to 'Master/tlpkg/tlgs/lib/gs_fntem.ps')
| -rw-r--r-- | Master/tlpkg/tlgs/lib/gs_fntem.ps | 432 |
1 files changed, 0 insertions, 432 deletions
diff --git a/Master/tlpkg/tlgs/lib/gs_fntem.ps b/Master/tlpkg/tlgs/lib/gs_fntem.ps deleted file mode 100644 index 8472d9c4afa..00000000000 --- a/Master/tlpkg/tlgs/lib/gs_fntem.ps +++ /dev/null @@ -1,432 +0,0 @@ -% 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: gs_fntem.ps 8274 2007-10-09 00:06:24Z leonardo $
-% 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
|