diff options
author | Reinhard Kotucha <reinhard.kotucha@web.de> | 2010-05-12 19:25:45 +0000 |
---|---|---|
committer | Reinhard Kotucha <reinhard.kotucha@web.de> | 2010-05-12 19:25:45 +0000 |
commit | dc55d4f5cde421a3704c183bc6ceb3fcdb6b0653 (patch) | |
tree | db0890c2f5f2714d527a42ad3fb7955ac5b1f545 /Master/tlpkg/tlgs/lib/mkcidfm.ps | |
parent | 053ead4487e776b05721ec15b941fe0bc1b7d513 (diff) |
tlgs: 8.70 => 8.71
git-svn-id: svn://tug.org/texlive/trunk@18215 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlgs/lib/mkcidfm.ps')
-rw-r--r--[-rwxr-xr-x] | Master/tlpkg/tlgs/lib/mkcidfm.ps | 718 |
1 files changed, 359 insertions, 359 deletions
diff --git a/Master/tlpkg/tlgs/lib/mkcidfm.ps b/Master/tlpkg/tlgs/lib/mkcidfm.ps index 6bf34d8e537..718d8c4ea44 100755..100644 --- a/Master/tlpkg/tlgs/lib/mkcidfm.ps +++ b/Master/tlpkg/tlgs/lib/mkcidfm.ps @@ -1,359 +1,359 @@ -% 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
+% 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 |