summaryrefslogtreecommitdiff
path: root/language/chinese/CJK/cjk-4.8.5/doc/pdfhowto/examples/gen-map.pl
diff options
context:
space:
mode:
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.pl120
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);
+