annotate admin/charsets/big5.awk @ 97178:179290bc0896

* minibuffer.el (read-file-name-completion-ignore-case): Add cygwin to the list. * files.el (abbreviate-file-name): When replacing $HOME with ~, turn off case-fold-search.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 31 Jul 2008 21:06:55 +0000
parents eb2d9dfc8486
children ce88a631c161
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
91411
ebb1b38229bc Add copyright and license notice.
Glenn Morris <rgm@gnu.org>
parents: 89916
diff changeset
1 # Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008
ebb1b38229bc Add copyright and license notice.
Glenn Morris <rgm@gnu.org>
parents: 89916
diff changeset
2 # National Institute of Advanced Industrial Science and Technology (AIST)
ebb1b38229bc Add copyright and license notice.
Glenn Morris <rgm@gnu.org>
parents: 89916
diff changeset
3 # Registration Number H13PRO009
94832
eb2d9dfc8486 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91411
diff changeset
4
91411
ebb1b38229bc Add copyright and license notice.
Glenn Morris <rgm@gnu.org>
parents: 89916
diff changeset
5 # This file is part of GNU Emacs.
94832
eb2d9dfc8486 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91411
diff changeset
6
eb2d9dfc8486 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91411
diff changeset
7 # GNU Emacs is free software: you can redistribute it and/or modify
91411
ebb1b38229bc Add copyright and license notice.
Glenn Morris <rgm@gnu.org>
parents: 89916
diff changeset
8 # it under the terms of the GNU General Public License as published by
94832
eb2d9dfc8486 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91411
diff changeset
9 # the Free Software Foundation, either version 3 of the License, or
eb2d9dfc8486 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91411
diff changeset
10 # (at your option) any later version.
eb2d9dfc8486 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91411
diff changeset
11
91411
ebb1b38229bc Add copyright and license notice.
Glenn Morris <rgm@gnu.org>
parents: 89916
diff changeset
12 # GNU Emacs is distributed in the hope that it will be useful,
ebb1b38229bc Add copyright and license notice.
Glenn Morris <rgm@gnu.org>
parents: 89916
diff changeset
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
ebb1b38229bc Add copyright and license notice.
Glenn Morris <rgm@gnu.org>
parents: 89916
diff changeset
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
ebb1b38229bc Add copyright and license notice.
Glenn Morris <rgm@gnu.org>
parents: 89916
diff changeset
15 # GNU General Public License for more details.
94832
eb2d9dfc8486 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91411
diff changeset
16
91411
ebb1b38229bc Add copyright and license notice.
Glenn Morris <rgm@gnu.org>
parents: 89916
diff changeset
17 # You should have received a copy of the GNU General Public License
94832
eb2d9dfc8486 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91411
diff changeset
18 # along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
91411
ebb1b38229bc Add copyright and license notice.
Glenn Morris <rgm@gnu.org>
parents: 89916
diff changeset
19
88123
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
20 BEGIN {
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
21 tohex["A"] = 10;
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
22 tohex["B"] = 11;
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
23 tohex["C"] = 12;
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
24 tohex["D"] = 13;
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
25 tohex["E"] = 14;
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
26 tohex["F"] = 15;
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
27 tohex["a"] = 10;
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
28 tohex["b"] = 11;
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
29 tohex["c"] = 12;
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
30 tohex["d"] = 13;
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
31 tohex["e"] = 14;
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
32 tohex["f"] = 15;
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
33 }
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
34
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
35 function decode_hex(str) {
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
36 n = 0;
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
37 len = length(str);
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
38 for (i = 1; i <= len; i++)
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
39 {
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
40 c = substr (str, i, 1);
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
41 if (c >= "0" && c <= "9")
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
42 n = n * 16 + (c - "0");
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
43 else
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
44 n = n * 16 + tohex[c];
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
45 }
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
46 return n;
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
47 }
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
48
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
49 function decode_big5(big5) {
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
50 b0 = int(big5 / 256);
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
51 b1 = big5 % 256;
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
52 # (0xFF - 0xA1 + 0x7F - 0x40) = 157
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
53 # (0xA1 - (0x7F - 0x40)) = 98
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
54 # (0xC9 - 0xA1) * (0xFF - 0xA1 + 0x7F - 0x40) = 6280
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
55 if (b1 < 127)
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
56 idx = (b0 - 161) * 157 + (b1 - 64);
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
57 else
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
58 idx = (b0 - 161) * 157 + (b1 - 98);
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
59 if (b0 >= 201)
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
60 idx -= 6280;
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
61 b0 = int(idx / 94) + 33;
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
62 b1 = (idx % 94) + 33;
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
63 return (b0 * 256 + b1)
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
64 }
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
65
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
66 {
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
67 big5 = decode_hex($1);
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
68 code = decode_big5(big5);
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
69 printf "0x%04X %s\n", code, $2;
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
70 }
375f2633d815 New directory
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
71
91411
ebb1b38229bc Add copyright and license notice.
Glenn Morris <rgm@gnu.org>
parents: 89916
diff changeset
72
89916
e0e4e6a0599f Changes from arch/CVS synchronization
Miles Bader <miles@gnu.org>
parents: 88123
diff changeset
73 # arch-tag: 36f08d21-0d24-4b67-852d-a9a51299586d