[Emacs-diffs] Changes to emacs/admin/charsets/gb180302.awk [emacs-unicode-2]

[Kenichi Handa]

Index: emacs/admin/charsets/gb180302.awk
diff -c /dev/null emacs/admin/charsets/gb180302.awk:1.1.2.1
*** /dev/null   Mon Sep  8 07:56:11 2003
--- emacs/admin/charsets/gb180302.awk   Mon Sep  8 07:56:09 2003
***************
*** 0 ****
--- 1,80 ----
+ BEGIN {
+   tohex["A"] = 10;
+   tohex["B"] = 11;
+   tohex["C"] = 12;
+   tohex["D"] = 13;
+   tohex["E"] = 14;
+   tohex["F"] = 15;
+   tohex["a"] = 10;
+   tohex["b"] = 11;
+   tohex["c"] = 12;
+   tohex["d"] = 13;
+   tohex["e"] = 14;
+   tohex["f"] = 15;
+   from_gb = 0;
+   to_gb = -1;
+   to_unicode = 0;
+   from_unicode = 0;
+ }
+ 
+ function decode_hex(str) {
+   n = 0;
+   len = length(str);
+   for (i = 1; i <= len; i++)
+     {
+       c = substr (str, i, 1);
+       if (c >= "0" && c <= "9")
+       n = n * 16 + (c - "0");
+       else
+       n = n * 16 + tohex[c];
+     }
+   return n;
+ }
+ 
+ function gb_to_index(gb) {
+   b0 = int(gb / 256);
+   b1 = gb % 256;
+   idx = (((b0 - 129)) * 191 + b1 - 64); 
+ #  if (b1 >= 128)
+ #    idx--;
+   return idx
+ }
+ 
+ function index_to_gb(idx) {
+   b0 = int(idx / 191) + 129;
+   b1 = (idx % 191) + 64;
+ #  if (b1 >= 127)
+ #    b1++;
+   return (b0 * 256 + b1);
+ }
+ 
+ /^\#/ {
+   print;
+   next;
+ }
+ 
+ {
+   gb = gb_to_index(decode_hex(substr($1, 3, 4)));
+   unicode = decode_hex(substr($2, 3, 4));
+   if ((gb == to_gb + 1) && (unicode == to_unicode + 1))
+     {
+       to_gb++;
+       to_unicode++;
+     }
+   else
+     {
+       if (from_gb == to_gb)
+       printf "0x%04X 0x%04X\n", index_to_gb(from_gb), from_unicode;
+       else if (from_gb < to_gb)
+       printf "0x%04X-0x%04X 0x%04X\n",
+         index_to_gb(from_gb), index_to_gb(to_gb), from_unicode;
+       from_gb = to_gb = gb;
+       from_unicode = to_unicode = unicode;
+     }
+ }
+ 
+ END {
+   if (from_gb <= to_gb)
+     printf "0x%04X-0x%04X 0x%04X\n",
+       index_to_gb(from_gb), index_to_gb(to_gb), from_unicode;
+ }