open(C, "ucs_combining.map"); while(<C>) { /^\s*\{/ || next; /\{\s*(\w+),\s*(\w+)\s*\}/; ($a, $b) = ($1, $2); for $c (hex($a) .. hex($b)) { $COMB{$c} = 1; } } close(C); @NAME = (); while(<DATA>) { chop; s/\s*$//; (($n, $m, $c) = split(" ", $_, 3)) >= 3 || next; push(@NAME, $n); $MAP{$n} = $m; $CODE{$n} = $c; } foreach $name (@NAME) { $code = $CODE{$name}; $map = $MAP{$name}; print "$name\t$map\t$code\n"; @to_ucs = (); %from_ucs = (); open(MAP, "< $map"); while(<MAP>) { /^#/ && next; s/#.*//; (($i, $u) = split(" ")) || next; $i = hex($i); $u = hex($u); if ($u >= 0xa0) { $to_ucs[$i] = $u; if ($i < 0x80) { print STDERR "$map $i $u\n"; # $from_ucs{$u} = $i; } else { $from_ucs{$u} = $i; } } } close(MAP); $ok = 0; @comb = (); foreach $i (0x80 .. 0xFF) { $comb[$i] = $COMB{$to_ucs[$i]} ? 1 : 0; $comb[$i] && ($ok = 1); } $ok || next; open(OUT, "> ${name}_combining.map"); print OUT <<EOF; /* $code */ static wc_uint8 ${name}_combining_map[ 0x80 ] = { EOF foreach $i (0x8 .. 0xF) { print OUT " "; foreach $j (0 .. 0xF) { $_ = $i * 16 + $j; print OUT " $comb[$_],"; } print OUT "\n"; } print OUT <<EOF; }; EOF } __END__ jisx0201k EASTASIA/JIS/JIS0201.TXT JIS X 0201 (Japanese Kana) iso88591 ISO8859/8859-1.TXT ISO-8859-1 (Latin 1) iso88592 ISO8859/8859-2.TXT ISO-8859-2 (Latin 2) iso88593 ISO8859/8859-3.TXT ISO-8859-3 (Latin 3) iso88594 ISO8859/8859-4.TXT ISO-8859-4 (Latin 4) iso88595 ISO8859/8859-5.TXT ISO-8859-5 (Cyrillic) iso88596 ISO8859/8859-6.TXT ISO-8859-6 (Arabic) iso88597 ISO8859/8859-7.TXT ISO-8859-7 (Greek) iso88598 ISO8859/8859-8.TXT ISO-8859-8 (Hebrew) iso88599 ISO8859/8859-9.TXT ISO-8859-9 (Latin 5) iso885910 ISO8859/8859-10.TXT ISO-8859-10 (Latin 6) iso885911 VENDORS/MICSFT/WINDOWS/CP874.TXT ISO-8859-11 (Vietnamese) iso885913 ISO8859/8859-13.TXT ISO-8859-13 (Latin 7) iso885914 ISO8859/8859-14.TXT ISO-8859-14 (Latin 8) iso885915 ISO8859/8859-15.TXT ISO-8859-15 (Latin 9) cp856 VENDORS/MISC/CP856.TXT CP856 (Hebrew) cp1006 VENDORS/MISC/CP1006.TXT IBM CP1006 (Arabic) koi8r VENDORS/MISC/KOI8-R.TXT KOI8-R (Cyrillic) nextstep VENDORS/NEXT/NEXTSTEP.TXT NeXTSTEP cp437 VENDORS/MICSFT/PC/CP437.TXT CP437 (Latin) cp737 VENDORS/MICSFT/PC/CP737.TXT CP737 (Greek) cp775 VENDORS/MICSFT/PC/CP775.TXT CP775 (Baltic Rim) cp850 VENDORS/MICSFT/PC/CP850.TXT CP850 (Latin 1) cp852 VENDORS/MICSFT/PC/CP852.TXT CP852 (Latin 2) cp855 VENDORS/MICSFT/PC/CP855.TXT CP855 (Cyrillic) cp857 VENDORS/MICSFT/PC/CP857.TXT CP857 (Turkish) cp860 VENDORS/MICSFT/PC/CP860.TXT CP860 (Portuguese) cp861 VENDORS/MICSFT/PC/CP861.TXT CP861 (Icelandic) cp862 VENDORS/MICSFT/PC/CP862.TXT CP862 (Hebrew) cp863 VENDORS/MICSFT/PC/CP863.TXT CP863 (Canada French) cp864 VENDORS/MICSFT/PC/CP864.TXT CP864 (Arabic) cp865 VENDORS/MICSFT/PC/CP865.TXT CP865 (Nordic) cp866 VENDORS/MICSFT/PC/CP866.TXT CP866 (Cyrillic Russian) cp869 VENDORS/MICSFT/PC/CP869.TXT CP869 (Greek 2) cp874 VENDORS/MICSFT/PC/CP874.TXT CP874 (Thai) cp1250 VENDORS/MICSFT/WINDOWS/CP1250.TXT CP1250 (Latin 2) cp1251 VENDORS/MICSFT/WINDOWS/CP1251.TXT CP1251 (Cyrillic) cp1252 VENDORS/MICSFT/WINDOWS/CP1252.TXT CP1252 (Latin 1) cp1253 VENDORS/MICSFT/WINDOWS/CP1253.TXT CP1253 (Greek) cp1254 VENDORS/MICSFT/WINDOWS/CP1254.TXT CP1254 (Turkish) cp1255 VENDORS/MICSFT/WINDOWS/CP1255.TXT CP1255 (Hebrew) cp1256 VENDORS/MICSFT/WINDOWS/CP1256.TXT CP1256 (Arabic) cp1257 VENDORS/MICSFT/WINDOWS/CP1257.TXT CP1257 (Baltic Rim) cp1258 VENDORS/MICSFT/WINDOWS/CP1258.TXT CP1258 (Vietnamese)