% 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