aboutsummaryrefslogtreecommitdiffstats
path: root/libwc/map/mk_gb_ucs_map.pl
diff options
context:
space:
mode:
authorFumitoshi UKAI <ukai@debian.or.jp>2003-09-22 21:02:15 +0000
committerFumitoshi UKAI <ukai@debian.or.jp>2003-09-22 21:02:15 +0000
commit604c11affe988bab23c87598c02248fff1d73f43 (patch)
tree6252cbbfd3cf703691a8ddbf1fdee5c1246b5faa /libwc/map/mk_gb_ucs_map.pl
parent* version.c.in: cvs version (diff)
downloadw3m-604c11affe988bab23c87598c02248fff1d73f43.tar.gz
w3m-604c11affe988bab23c87598c02248fff1d73f43.zip
merge m17n patch
add libwc
Diffstat (limited to '')
-rw-r--r--libwc/map/mk_gb_ucs_map.pl92
1 files changed, 92 insertions, 0 deletions
diff --git a/libwc/map/mk_gb_ucs_map.pl b/libwc/map/mk_gb_ucs_map.pl
new file mode 100644
index 0000000..9a63c5a
--- /dev/null
+++ b/libwc/map/mk_gb_ucs_map.pl
@@ -0,0 +1,92 @@
+
+@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");
+open(OUT, "> ${name}_ucs.map");
+while(<MAP>) {
+ /^#/ && next;
+ s/#.*//;
+ (($i, $u) = split(" ")) || next;
+ $i = hex($i);
+ $u = hex($u);
+ $to_ucs[$i] = $u;
+ if ($u > 0) {
+ $from_ucs{$u} = $i;
+ }
+}
+
+# compatibility with GBK(CP936), GB18030
+delete $from_ucs{$to_ucs[0x2124]};
+delete $from_ucs{$to_ucs[0x212A]};
+$from_ucs{0x00B7} = 0x2124;
+$from_ucs{0x2014} = 0x212A;
+$to_ucs[0x2124] = 0x00B7;
+$to_ucs[0x212A] = 0x2014;
+
+# print OUT <<EOF;
+# /*
+# These conversion tables between $code and
+# Unicode were made from
+#
+# ftp://ftp.unicode.org/Public/MAPPINGS/$map.
+# */
+print OUT <<EOF;
+/* $code */
+
+static wc_uint16 ${name}_ucs_map[ 0x5E * 0x5E ] = {
+EOF
+
+for $i (0x21 .. 0x7E) {
+for $j (0x21 .. 0x7E) {
+ $_ = $i * 0x100 + $j;
+ $u = $to_ucs[$_];
+ if ($u) {
+ printf OUT " 0x%.4X,", $u;
+ } else {
+ print OUT " 0,\t";
+ }
+ printf OUT "\t/* 0x%.4X */\n", $_;
+}
+}
+
+@ucs = sort { $a <=> $b } keys %from_ucs;
+$nucs = @ucs + 0;
+
+print OUT <<EOF;
+};
+
+#define N_ucs_${name}_map $nucs
+
+static wc_map ucs_${name}_map[ N_ucs_${name}_map ] = {
+EOF
+for(@ucs) {
+ printf OUT " { 0x%.4X, 0x%.4X },\n", $_, $from_ucs{$_};
+}
+
+print OUT <<EOF;
+};
+EOF
+
+close(MAP);
+}
+
+__END__
+gb2312 EASTASIA/GB/GB2312.TXT GB 2312 (Chinese)
+gb12345 EASTASIA/GB/GB12345.TXT GB 12345 (Chinese)