diff options
Diffstat (limited to 'language/chinese/CJK/cjk-4.8.4/doc/pdfhowto/examples/gen-map.pl')
-rw-r--r-- | language/chinese/CJK/cjk-4.8.4/doc/pdfhowto/examples/gen-map.pl | 120 |
1 files changed, 0 insertions, 120 deletions
diff --git a/language/chinese/CJK/cjk-4.8.4/doc/pdfhowto/examples/gen-map.pl b/language/chinese/CJK/cjk-4.8.4/doc/pdfhowto/examples/gen-map.pl deleted file mode 100644 index 737304da36..0000000000 --- a/language/chinese/CJK/cjk-4.8.4/doc/pdfhowto/examples/gen-map.pl +++ /dev/null @@ -1,120 +0,0 @@ -#!/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); - |