1 # cp932.awk -- Add sort keys and append user defined area to CP932-2BYTE.map.
3 # National Institute of Advanced Industrial Science and Technology (AIST)
4 # Registration Number H13PRO009
6 # This file is part of GNU Emacs.
8 # GNU Emacs is free software; you can redistribute it and/or modify
9 # it under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 2, or (at your option)
13 # GNU Emacs is distributed in the hope that it will be useful,
14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 # GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License
19 # along with GNU Emacs; see the file COPYING. If not, write to the
20 # Free Software Foundation, Inc., 59 Temple Place - Suite 330,
21 # Boston, MA 02111-1307, USA.
24 # Add a sort key 0, 1, 2, or 3 at the tail of each line as a comment
25 # to realize the round trip mapping to Unicode works as described in
27 # http://support.microsoft.com/default.aspx?scid=kb;EN-US;170559
28 # Each sort key means as below:
29 # 0: JISX0208 characters.
30 # 1: NEC special characters.
31 # 2: IBM extension characters.
32 # 3: NEC selection of IBM extension characters.
33 # 4: user defined area
44 function decode_hex
(str
) {
47 for (i =
1; i
<= len
; i
++)
49 c =
substr(str
, i
, 1);
50 if (c
>=
"0" && c
<=
"9")
51 n = n
* 16 + (c
- "0");
53 n = n
* 16 + tohex
[c
];
58 function sjis_to_jis_ku
(code
)
62 if (s2
>=
159) # s2 >= 0x9F
64 if (s1
>=
224) # s1 >= 0xE0
65 j1 = s1
* 2 - 352; # j1 = s1 * 2 - 0x160
67 j1 = s1
* 2 - 224; # j1 = s1 * 2 - 0xE0
68 j2 = s2
- 126 # j2 = s2 - #x7E
73 j1 = s1
* 2 - 353; # j1 = s1 * 2 - 0x161
75 j1 = s1
* 2 - 225; # j1 = s1 * 2 - 0xE1
76 if (s2
>=
127) # s2 >= #x7F
85 sjis=decode_hex
(substr($
1, 3, 4))
86 ku=sjis_to_jis_ku
(sjis
);
88 printf "%s # 1 %02X%02X\n", $
0, j1
, j2
;
89 else if (ku
>=
89 && ku
<=
92)
90 printf "%s # 3 %02X%02X\n", $
0, j1
, j2
;
92 printf "%s # 0 %02X%02X\n", $
0, j1
, j2
;
97 printf "%s # 2\n", $
0;
106 code =
57344; # 0xE000
107 for (i =
240; i
< 250; i
++)
109 for (j =
64; j
<=
126; j
++)
110 printf "0x%02X%02X 0x%04X # 4\n", i
, j
, code
++;
111 for (j =
128; j
<=
158; j
++)
112 printf "0x%02X%02X 0x%04X # 4\n", i
, j
, code
++;
113 for (; j
<=
252; j
++)
114 printf "0x%02X%02X 0x%04X # 4\n", i
, j
, code
++;
118 # arch-tag: 998dc444-759d-43ef-87e3-2ab205011394