/usr/share/doc/latex-cjk-common/pdfhowto/examples/gen-map.pl is in latex-cjk-common 4.8.3+git20120914-2ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 | #!/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);
|