diff options
Diffstat (limited to 'language/chinese/CJK/cjk-4.8.5/doc/pdfhowto/examples/gen-map.pl')
-rw-r--r-- | language/chinese/CJK/cjk-4.8.5/doc/pdfhowto/examples/gen-map.pl | 120 |
1 files changed, 120 insertions, 0 deletions
diff --git a/language/chinese/CJK/cjk-4.8.5/doc/pdfhowto/examples/gen-map.pl b/language/chinese/CJK/cjk-4.8.5/doc/pdfhowto/examples/gen-map.pl new file mode 100644 index 0000000000..737304da36 --- /dev/null +++ b/language/chinese/CJK/cjk-4.8.5/doc/pdfhowto/examples/gen-map.pl @@ -0,0 +1,120 @@ +#!/usr/bin/perl -w + +@font_list = +( + "cwtb", "bbttf.ttf", 55, + "cwtf", "fttf.ttf", 55, + "cwtk", "kttf.ttf", 55, + "cwtm", "mttf.ttf", 55, + "cwtr", "rttf.ttf", 55, +# + "mekl", "kai-linux.ttf", 58, + "mest", "edustd-15.ttf", 55, + "mesx", "edustds1.ttf", 55, + "mesy", "edustds2.ttf", 55, + "meko", "moe_kai.ttf", 58, + "meso", "moe_sung.ttf", 58, +# + "bkai", "bkai00mp.ttf", 55, + "bsmi", "bsmi00lp.ttf", 55, +# + "gbsn", "gbsn00lp.ttf", 32, + "gkai", "gkai00mp.ttf", 32, +# + "ntbr", "ntu_br.ttf", 58, + "ntfs", "ntu_fs_m.ttf", 58, + "ntka", "ntu_kai.ttf", 58, + "ntli", "ntu_li_m.ttf", 58, + "ntmb", "ntu_mb.ttf", 58, + "ntmm", "ntu_mm.ttf", 58, + "ntmr", "ntu_mr.ttf", 58, + "nttw", "ntu_tw.ttf", 58, +# + "wclj", "wcl-01.ttf", 55, + "wclk", "wcl-02.ttf", 55, + "wcll", "wcl-03.ttf", 55, + "wclm", "wcl-04.ttf", 55, + "wcln", "wcl-05.ttf", 55, + "wclp", "wcl-06.ttf", 55, + "wclq", "wcl-07.ttf", 55, + "wclr", "wcl-08.ttf", 55, + "wcls", "wcl-09.ttf", 55, + "wclt", "wcl-10.ttf", 55, +# + "zysg", "zysong.ttf", 32, +# + "wnmc", "watanabe-mincho.ttf", 35, + "wdgt", "wadalab-gothic.ttf", 35, +# + "kcgt", "kochi-gothic.ttf", 31, + "kcmc", "kochi-mincho.ttf", 31, +# + "acrj", "kochi-mincho.ttf", 31, + "acrg", "gbsn00lp.ttf", 32, + "acrb", "bsmi00lp.ttf", 55, +# +"ykah", "yka00hp.ttf", 57, +"gtrl", "gtr00lp.ttf", 57, +"gtrm", "gtr00mp.ttf", 57, +"leim", "lei00mp.ttf", 57, +"heim", "hei01mp.ttf", 57, +"sunm", "sun00mp.ttf", 57, +# +"gbsnl", "gbsn00l.ttf",32, +"ggtrl", "ggtr00l.ttf",32, +"gkaim", "gkai00m.ttf",32, +"gleim", "glei00m.ttf",32, +"gsinm", "gsin00m.ttf",32, +"tgtrl", "tgtr00l.ttf",32, +"tkaim", "tkai00m.ttf",32, +"tleim", "tlei00m,ttf",32, +"tooru", "toor00u.ttf",32, +"tovru", "tovr00u.ttf",32, +"tsinm", "tsin00m.ttf",32, +# +"dcaiq", "dcai5.ttc", 31, +"dcailq", "dcail5.ttc", 31, +"dcaisq", "dcais5.ttc", 31, +"dccryq", "dccry5.ttc", 31, +"dchgmq", "dchgm5.ttc", 31, +"dchleiq", "dchlei5.ttc", 31, +"dcinlq", "dcinl5.ttc", 31, +"dckgmc", "dckgmc.ttc", 31, +"dclkaiq", "dclkai5.ttc", 31, +"dcysmr", "dcysm7.ttc", 31, +"dfcrdp", "dfcrd3.ttc", 31, +"dffrsp", "dffrs3.ttc", 31, +"dfgskr", "dfgsk7.ttc", 31, +"dfkaie", "dfkaie.ttc", 31, +"dfkbtp", "dfkbt3.ttc", 31, +"dfoyjq", "dfoyj5.ttc", 31, +"dfryss", "dfrys9.ttc", 31, +"dfshtq", "dfsht5.ttc", 31, +"dfshtr", "dfsht7.ttc", 31, +"dfskair", "dfskai7.ttc", 31, +# +); + +open(LISTFILE, "> map.list"); + +$list_length = (scalar @font_list ) /3 ; +for ($i = 0; $i < $list_length ; $i++) +{ + $stem = shift @font_list; + $font = shift @font_list; + $entries = shift @font_list; + print LISTFILE "f ", $stem, ".map\n"; + open(MAPFILE, "> ${stem}.map"); + + for ($j=1; $j<= $entries ; $j++) + { + $j_pad = sprintf "%2.2d", $j; + print MAPFILE + $stem, $j_pad, " ", $stem, $j_pad, " <", + $stem, $j_pad, ".enc <", + $font, "\n"; + } + close(MAPFILE); +} +close(LISTFILE); + |