From 7e621409df5dc29ec8c64a9a172766749aa99665 Mon Sep 17 00:00:00 2001 From: Reinhard Kotucha Date: Tue, 12 May 2009 20:04:43 +0000 Subject: tlgs: rm gs8.62 git-svn-id: svn://tug.org/texlive/trunk@13058 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tlgs/lib/mkcidfm.ps | 359 --------------------------------------- 1 file changed, 359 deletions(-) delete mode 100644 Master/tlpkg/tlgs/lib/mkcidfm.ps (limited to 'Master/tlpkg/tlgs/lib/mkcidfm.ps') diff --git a/Master/tlpkg/tlgs/lib/mkcidfm.ps b/Master/tlpkg/tlgs/lib/mkcidfm.ps deleted file mode 100644 index 6bf34d8e537..00000000000 --- a/Master/tlpkg/tlgs/lib/mkcidfm.ps +++ /dev/null @@ -1,359 +0,0 @@ -% Copyright (C) 2004 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: mkcidfm.ps 8022 2007-06-05 22:23:38Z giles $ - -% 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 -- cgit v1.2.3