path: root/Master/tlpkg/tlgs/lib/gs_fntem.ps

%    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