% Copyright (C) 2004 artofcode LLC. 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: mkcidfm.ps,v 1.1 2004/11/18 06:48:41 ghostgum Exp $

% Generate a cidfmap file for substituting CID fonts with TrueType 
% fonts, based on fonts found in the directory FONTDIR.
% 
% The directory FONTDIR is searched for fonts whose filename
% matches a Path in the cidsubs dictionary.
% Any matches are written out as a CID font substitution.
%
% For each fontname and alias in the fontaliases dictionary,
% write out each alias that matches a substituted font.
% Where multiple aliases are possible, use the first match.
%
% Note that the substitutions and aliases in this file were created 
% by someone who doesn't understand Chinese, Japanese or Korean.  
% The initial list contains only font files found in Windows XP.
% Please submit corrections and additions.
%
% Font filenames must match case.  
% All font filenames are currently lower case.
%
% Usage: gswin32c -q -dBATCH -sFONTDIR=c:/windows/fonts
%                -sCIDFMAP=c:/gs/cidfmap mkcidfm.ps


systemdict /FONTDIR known not { /FONTDIR (c:/windows/fonts) def } if

systemdict /CIDFMAP known { CIDFMAP } { (%stdout) } ifelse
/cidfmap exch (w) file def

% Directory separator as used by filenameforall
/dirsep (/) def

% This dictionary contains a list of font substitutions.
% The first matching substitution in the array will be used.
/fontaliases
<<
  % Traditional Chinese
  /MSung-Light [ /MingLiU ]
  /MSung-Medium [ /MingLiU ]
  /MHei-Medium [ /MingLiU ]
  /MKai-Medium [ /Arial-Unicode-MS /MingLiU ]

  % Simplified Chinese
  /STSong-Light [ /SimSun ]
  /STFangsong-Light [ /SimSun ]
  /STHeiti-Regular [ /SimHei ]
  /STKaiti-Regular [ /SimHei ]

  % Japanese
  /Ryumin-Light [ /MS-Mincho ]
  /Ryumin-Medium [ /MS-Mincho ]
  /GothicBBB-Medium [ /MS-Gothic ]
  /HeiseiMin-W3 [ /MS-Mincho ]
  /HeiseiKakuGo-W5 [ /MS-Gothic ]

  % Korean
  /HYSMyeongJo-Medium [ /Batang ]
  /HYRGoThic-Medium [ /Gulim ]
  /HYGoThic-Medium [ /Dotum ]
>>
def


% This dictionary contains a list of CID substitutions
/cidsubs 
<<
  % Simplified Chinese
  /SimHei
  <<
   /FileType /TrueType
   /Path (simhei.ttf)
   /SubfontID 0
   /CSI [(GB1) 2]
  >>

  /SimSun
  <<
   /FileType /TrueType
   /Path (simsun.ttc)
   /SubfontID 0
   /CSI [(GB1) 2]
  >>

  /NSimSun
  <<
   /FileType /TrueType
   /Path (simsun.ttc)
   /SubfontID 1
   /CSI [(GB1) 2]
  >>

  % Traditional Chinese
  /MingLiU
  <<
   /FileType /TrueType
   /Path (mingliu.ttc)
   /SubfontID 0
   /CSI [(CNS1) 2]
  >>

  /PMingLiU
  <<
   /FileType /TrueType
   /Path (mingliu.ttc)
   /SubfontID 1
   /CSI [(CNS1) 2]
  >>

  /Arial-Unicode-MS
  <<
   /FileType /TrueType
   /Path (arialuni.ttc)
   /SubfontID 0
   /CSI [(CNS1) 2]
  >>

  % Japanese
  /MS-Gothic
  <<
   /FileType /TrueType
   /Path (msgothic.ttc)
   /SubfontID 0
   /CSI [(Japan1) 3]
  >>

  /MS-PGothic
  <<
   /FileType /TrueType
   /Path (msgothic.ttc)
   /SubfontID 1
   /CSI [(Japan1) 3]
  >>

  /MS-UI-Gothic
  <<
   /FileType /TrueType
   /Path (msgothic.ttc)
   /SubfontID 2
   /CSI [(Japan1) 3]
  >>

  /MS-Mincho
  <<
   /FileType /TrueType
   /Path (msmincho.ttc)
   /SubfontID 0
   /CSI [(Japan1) 3]
  >>

  /MS-PMincho
  <<
   /FileType /TrueType
   /Path (msmincho.ttc)
   /SubfontID 1
   /CSI [(Japan1) 3]
  >>

  % Korean
  /Batang
  <<
   /FileType /TrueType
   /Path (batang.ttc)
   /SubfontID 0
   /CSI [(Korea1) 3]
  >>

  /BatangChe
  <<
   /FileType /TrueType
   /Path (batang.ttc)
   /SubfontID 1
   /CSI [(Korea1) 3]
  >>

  /Gungsuh
  <<
   /FileType /TrueType
   /Path (batang.ttc)
   /SubfontID 2
   /CSI [(Korea1) 3]
  >>

  /GungsuhChe
  <<
   /FileType /TrueType
   /Path (batang.ttc)
   /SubfontID 3
   /CSI [(Korea1) 3]
  >>

  /Gulim
  <<
   /FileType /TrueType
   /Path (gulim.ttc)
   /SubfontID 0
   /CSI [(Korea1) 3]
  >>

  /GulimChe
  <<
   /FileType /TrueType
   /Path (gulim.ttc)
   /SubfontID 1
   /CSI [(Korea1) 3]
  >>

  /Dotum
  <<
   /FileType /TrueType
   /Path (gulim.ttc)
   /SubfontID 2
   /CSI [(Korea1) 3]
  >>

  /DotumChe
  <<
   /FileType /TrueType
   /Path (gulim.ttc)
   /SubfontID 3
   /CSI [(Korea1) 3]
  >>

>>
def


% A dictionary for storing the names and paths of found fonts
/foundfonts 50 dict def

% Get the basename of a path
% For example, (c:/windows/fonts/msmincho.ps) --> (msmincho.ps)
/basename { % path -- subpath
  { dirsep search
    {pop pop}
    {exit}
    ifelse
  } loop
} def


% Check if a font basename matches one of the possible cid substitutions.  
% If it does, add the font and full path to the foundfonts dictionary
/checkfont {
  dup basename
  cidsubs
  {
    /Path get
    2 index eq  % Match case only
    {
      foundfonts exch
      3 index dup length string copy put
    }
    {
      pop
    }
    ifelse
  }
  forall
  pop pop
} def

% Add all matching fonts to foundfonts dictionary
/findfonts { % path --
  dup length 2 add string dup 3 1 roll copy pop
  dup dup length 2 sub dirsep 0 get put
  dup dup length 1 sub (*) 0 get put
  /checkfont load 256 string filenameforall
} def


% Write out a cid substition, using the full font path
% name is the font name, e.g. /MS-Mincho
% path is the full path to the font file, e.g. (c:\windows\fonts\msmincho.ps)
% subs is the dictionary for CID font substition, from cidsubs
/emitsubs { % name path subs -- 
  3 -1 roll cidfmap exch write==only % name
  cidfmap ( << ) writestring
  % path subs
  {
   1 index /Path eq {pop 1 index} if % use full path, not basename
   exch cidfmap exch write==only cidfmap ( ) writestring 
   cidfmap exch write==only cidfmap ( ) writestring 
  } forall
  cidfmap (>> ;\n) writestring
  pop
} def

% Write out all known cid substitutions.
/writesubs { % ---
  cidfmap (% Substitutions\n) writestring
  foundfonts
  {
    1 index cidsubs exch known
    {
      1 index cidsubs exch get % name path subs
      emitsubs
    }
    {
      pop pop
    }
    ifelse
  }
  forall
} def

% Write out aliases for which the cid substituted font exists.
/writealiases { % --
  cidfmap (\n% Aliases\n) writestring
  fontaliases 
  {
    % name aliasarray
    {
      % name alias
      foundfonts 1 index known
      {
	1 index cidfmap exch write==only cidfmap ( ) writestring 
	cidfmap exch write==only cidfmap ( ;\n) writestring
	exit % after first match
      }
      {
	pop % didn't find this name
      }
      ifelse
    } forall
    % name
    pop
  }
  forall
} def


% Write out a new cidfmap file to stdout
/writecidfmap { % path --
  cidfmap (%!\n% cidfmap generated automatically by mkcidfm.ps from fonts found in\n) writestring
  cidfmap (%   ) writestring
  dup cidfmap exch writestring cidfmap (\n\n) writestring
  findfonts
  writesubs
  writealiases
} def


FONTDIR writecidfmap