6 (($n, $m, $c) = split(" ", $_, 3)) >= 3 || next;
12 foreach $name (@NAME) {
17 print "$name\t$map\t$code\n";
22 open(OUT, "> ${name}_ucs.map");
26 (($i, $u) = split(" ")) || next;
37 # These conversion tables between $code and
38 # Unicode were made from
40 # ftp://ftp.unicode.org/Public/MAPPINGS/$map.
45 static wc_uint16 ${name}_ucs_map[ 0x5E * 0x5E ] = {
48 for $i (0x21 .. 0x7E) {
49 for $j (0x21 .. 0x7E) {
53 printf OUT " 0x%.4X,", $u;
57 printf OUT "\t/* 0x%.4X */\n", $_;
61 @ucs = sort { $a <=> $b } keys %from_ucs;
67 #define N_ucs_${name}_map $nucs
69 static wc_map ucs_${name}_map[ N_ucs_${name}_map ] = {
72 printf OUT " { 0x%.4X, 0x%.4X },\n", $_, $from_ucs{$_};
83 ksx1001 EASTASIA/KSC/KSX1001.TXT KS X 1001 (Korean)