1 ; -*- coding: iso-2022-7bit -*-
2 ;;; ujisx0201.el --- tables between UCS and JIS X 0201
4 ;; Copyright (C) 1997 Miyashita Hisashi
6 ;; Keywords: CCL, mule, multilingual,
7 ;; character set, coding-system, ISO10646, Unicode, ISO8859
9 ;; This file is part of Mule-UCS
11 ;; Mule-UCS is free software; you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation; either version 2, or (at your option)
16 ;; Mule-UCS is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with this program; see the file COPYING. If not, write to the
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA.
26 ;;; This file is converted from JIX0201.TXT of Unicode consortium
27 ;;; by Miyashita Hisashi <himi@bird.scphys.kyoto-u.ac.jp>.
29 (put 'latin-jisx0201 'unicode-assoc
30 'jis-x-0201-latin-vs-unicode-assoc)
31 (put 'katakana-jisx0201 'unicode-assoc
32 'jis-x-0201-katakana-vs-unicode-assoc)
35 jis-x-0201-latin-vs-unicode-assoc
38 '(char-1 . ucs-generic)
39 (transformate-list-structure
40 ((lambda (x) (make-char 'latin-jisx0201 x)) .
41 c-notated-string-to-number)
42 ((33 . "0x0021") ;; EXCLAMATION MARK
43 (34 . "0x0022") ;; QUOTATION MARK
44 (35 . "0x0023") ;; NUMBER SIGN
45 (36 . "0x0024") ;; DOLLAR SIGN
46 (37 . "0x0025") ;; PERCENT SIGN
47 (38 . "0x0026") ;; AMPERSAND
48 (39 . "0x0027") ;; APOSTROPHE
49 (40 . "0x0028") ;; LEFT PARENTHESIS
50 (41 . "0x0029") ;; RIGHT PARENTHESIS
51 (42 . "0x002A") ;; ASTERISK
52 (43 . "0x002B") ;; PLUS SIGN
53 (44 . "0x002C") ;; COMMA
54 (45 . "0x002D") ;; HYPHEN-MINUS
55 (46 . "0x002E") ;; FULL STOP
56 (47 . "0x002F") ;; SOLIDUS
57 (48 . "0x0030") ;; DIGIT ZERO
58 (49 . "0x0031") ;; DIGIT ONE
59 (50 . "0x0032") ;; DIGIT TWO
60 (51 . "0x0033") ;; DIGIT THREE
61 (52 . "0x0034") ;; DIGIT FOUR
62 (53 . "0x0035") ;; DIGIT FIVE
63 (54 . "0x0036") ;; DIGIT SIX
64 (55 . "0x0037") ;; DIGIT SEVEN
65 (56 . "0x0038") ;; DIGIT EIGHT
66 (57 . "0x0039") ;; DIGIT NINE
67 (58 . "0x003A") ;; COLON
68 (59 . "0x003B") ;; SEMICOLON
69 (60 . "0x003C") ;; LESS-THAN SIGN
70 (61 . "0x003D") ;; EQUALS SIGN
71 (62 . "0x003E") ;; GREATER-THAN SIGN
72 (63 . "0x003F") ;; QUESTION MARK
73 (64 . "0x0040") ;; COMMERCIAL AT
74 (65 . "0x0041") ;; LATIN CAPITAL LETTER A
75 (66 . "0x0042") ;; LATIN CAPITAL LETTER B
76 (67 . "0x0043") ;; LATIN CAPITAL LETTER C
77 (68 . "0x0044") ;; LATIN CAPITAL LETTER D
78 (69 . "0x0045") ;; LATIN CAPITAL LETTER E
79 (70 . "0x0046") ;; LATIN CAPITAL LETTER F
80 (71 . "0x0047") ;; LATIN CAPITAL LETTER G
81 (72 . "0x0048") ;; LATIN CAPITAL LETTER H
82 (73 . "0x0049") ;; LATIN CAPITAL LETTER I
83 (74 . "0x004A") ;; LATIN CAPITAL LETTER J
84 (75 . "0x004B") ;; LATIN CAPITAL LETTER K
85 (76 . "0x004C") ;; LATIN CAPITAL LETTER L
86 (77 . "0x004D") ;; LATIN CAPITAL LETTER M
87 (78 . "0x004E") ;; LATIN CAPITAL LETTER N
88 (79 . "0x004F") ;; LATIN CAPITAL LETTER O
89 (80 . "0x0050") ;; LATIN CAPITAL LETTER P
90 (81 . "0x0051") ;; LATIN CAPITAL LETTER Q
91 (82 . "0x0052") ;; LATIN CAPITAL LETTER R
92 (83 . "0x0053") ;; LATIN CAPITAL LETTER S
93 (84 . "0x0054") ;; LATIN CAPITAL LETTER T
94 (85 . "0x0055") ;; LATIN CAPITAL LETTER U
95 (86 . "0x0056") ;; LATIN CAPITAL LETTER V
96 (87 . "0x0057") ;; LATIN CAPITAL LETTER W
97 (88 . "0x0058") ;; LATIN CAPITAL LETTER X
98 (89 . "0x0059") ;; LATIN CAPITAL LETTER Y
99 (90 . "0x005A") ;; LATIN CAPITAL LETTER Z
100 (91 . "0x005B") ;; LEFT SQUARE BRACKET
101 (92 . "0x00A5") ;; YEN SIGN
102 (93 . "0x005D") ;; RIGHT SQUARE BRACKET
103 (94 . "0x005E") ;; CIRCUMFLEX ACCENT
104 (95 . "0x005F") ;; LOW LINE
105 (96 . "0x0060") ;; GRAVE ACCENT
106 (97 . "0x0061") ;; LATIN SMALL LETTER A
107 (98 . "0x0062") ;; LATIN SMALL LETTER B
108 (99 . "0x0063") ;; LATIN SMALL LETTER C
109 (100 . "0x0064") ;; LATIN SMALL LETTER D
110 (101 . "0x0065") ;; LATIN SMALL LETTER E
111 (102 . "0x0066") ;; LATIN SMALL LETTER F
112 (103 . "0x0067") ;; LATIN SMALL LETTER G
113 (104 . "0x0068") ;; LATIN SMALL LETTER H
114 (105 . "0x0069") ;; LATIN SMALL LETTER I
115 (106 . "0x006A") ;; LATIN SMALL LETTER J
116 (107 . "0x006B") ;; LATIN SMALL LETTER K
117 (108 . "0x006C") ;; LATIN SMALL LETTER L
118 (109 . "0x006D") ;; LATIN SMALL LETTER M
119 (110 . "0x006E") ;; LATIN SMALL LETTER N
120 (111 . "0x006F") ;; LATIN SMALL LETTER O
121 (112 . "0x0070") ;; LATIN SMALL LETTER P
122 (113 . "0x0071") ;; LATIN SMALL LETTER Q
123 (114 . "0x0072") ;; LATIN SMALL LETTER R
124 (115 . "0x0073") ;; LATIN SMALL LETTER S
125 (116 . "0x0074") ;; LATIN SMALL LETTER T
126 (117 . "0x0075") ;; LATIN SMALL LETTER U
127 (118 . "0x0076") ;; LATIN SMALL LETTER V
128 (119 . "0x0077") ;; LATIN SMALL LETTER W
129 (120 . "0x0078") ;; LATIN SMALL LETTER X
130 (121 . "0x0079") ;; LATIN SMALL LETTER Y
131 (122 . "0x007A") ;; LATIN SMALL LETTER Z
132 (123 . "0x007B") ;; LEFT CURLY BRACKET
133 (124 . "0x007C") ;; VERTICAL LINE
134 (125 . "0x007D") ;; RIGHT CURLY BRACKET
135 (126 . "0x203E") ;; OVERLINE
139 jis-x-0201-katakana-vs-unicode-assoc
141 (char-1 . ucs-generic)
142 ,(transformate-list-structure
143 (identity . c-notated-string-to-number)
144 ((?
\e(I!
\e(B . "0xFF61") ;; HALFWIDTH IDEOGRAPHIC FULL STOP
145 (?
\e(I"
\e(B . "0xFF62") ;; HALFWIDTH LEFT CORNER BRACKET
146 (?
\e(I#
\e(B . "0xFF63") ;; HALFWIDTH RIGHT CORNER BRACKET
147 (?
\e(I$
\e(B . "0xFF64") ;; HALFWIDTH IDEOGRAPHIC COMMA
148 (?
\e(I%
\e(B . "0xFF65") ;; HALFWIDTH KATAKANA MIDDLE DOT
149 (?
\e(I&
\e(B . "0xFF66") ;; HALFWIDTH KATAKANA LETTER WO
150 (?
\e(I'
\e(B . "0xFF67") ;; HALFWIDTH KATAKANA LETTER SMALL A
151 (?
\e(I(
\e(B . "0xFF68") ;; HALFWIDTH KATAKANA LETTER SMALL I
152 (?
\e(I)
\e(B . "0xFF69") ;; HALFWIDTH KATAKANA LETTER SMALL U
153 (?
\e(I*
\e(B . "0xFF6A") ;; HALFWIDTH KATAKANA LETTER SMALL E
154 (?
\e(I+
\e(B . "0xFF6B") ;; HALFWIDTH KATAKANA LETTER SMALL O
155 (?
\e(I,
\e(B . "0xFF6C") ;; HALFWIDTH KATAKANA LETTER SMALL YA
156 (?
\e(I-
\e(B . "0xFF6D") ;; HALFWIDTH KATAKANA LETTER SMALL YU
157 (?
\e(I.
\e(B . "0xFF6E") ;; HALFWIDTH KATAKANA LETTER SMALL YO
158 (?
\e(I/
\e(B . "0xFF6F") ;; HALFWIDTH KATAKANA LETTER SMALL TU
159 (?
\e(I0
\e(B . "0xFF70") ;; HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK
160 (?
\e(I1
\e(B . "0xFF71") ;; HALFWIDTH KATAKANA LETTER A
161 (?
\e(I2
\e(B . "0xFF72") ;; HALFWIDTH KATAKANA LETTER I
162 (?
\e(I3
\e(B . "0xFF73") ;; HALFWIDTH KATAKANA LETTER U
163 (?
\e(I4
\e(B . "0xFF74") ;; HALFWIDTH KATAKANA LETTER E
164 (?
\e(I5
\e(B . "0xFF75") ;; HALFWIDTH KATAKANA LETTER O
165 (?
\e(I6
\e(B . "0xFF76") ;; HALFWIDTH KATAKANA LETTER KA
166 (?
\e(I7
\e(B . "0xFF77") ;; HALFWIDTH KATAKANA LETTER KI
167 (?
\e(I8
\e(B . "0xFF78") ;; HALFWIDTH KATAKANA LETTER KU
168 (?
\e(I9
\e(B . "0xFF79") ;; HALFWIDTH KATAKANA LETTER KE
169 (?
\e(I:
\e(B . "0xFF7A") ;; HALFWIDTH KATAKANA LETTER KO
170 (?
\e(I;
\e(B . "0xFF7B") ;; HALFWIDTH KATAKANA LETTER SA
171 (?
\e(I<
\e(B . "0xFF7C") ;; HALFWIDTH KATAKANA LETTER SI
172 (?
\e(I=
\e(B . "0xFF7D") ;; HALFWIDTH KATAKANA LETTER SU
173 (?
\e(I>
\e(B . "0xFF7E") ;; HALFWIDTH KATAKANA LETTER SE
174 (?
\e(I?
\e(B . "0xFF7F") ;; HALFWIDTH KATAKANA LETTER SO
175 (?
\e(I@
\e(B . "0xFF80") ;; HALFWIDTH KATAKANA LETTER TA
176 (?
\e(IA
\e(B . "0xFF81") ;; HALFWIDTH KATAKANA LETTER TI
177 (?
\e(IB
\e(B . "0xFF82") ;; HALFWIDTH KATAKANA LETTER TU
178 (?
\e(IC
\e(B . "0xFF83") ;; HALFWIDTH KATAKANA LETTER TE
179 (?
\e(ID
\e(B . "0xFF84") ;; HALFWIDTH KATAKANA LETTER TO
180 (?
\e(IE
\e(B . "0xFF85") ;; HALFWIDTH KATAKANA LETTER NA
181 (?
\e(IF
\e(B . "0xFF86") ;; HALFWIDTH KATAKANA LETTER NI
182 (?
\e(IG
\e(B . "0xFF87") ;; HALFWIDTH KATAKANA LETTER NU
183 (?
\e(IH
\e(B . "0xFF88") ;; HALFWIDTH KATAKANA LETTER NE
184 (?
\e(II
\e(B . "0xFF89") ;; HALFWIDTH KATAKANA LETTER NO
185 (?
\e(IJ
\e(B . "0xFF8A") ;; HALFWIDTH KATAKANA LETTER HA
186 (?
\e(IK
\e(B . "0xFF8B") ;; HALFWIDTH KATAKANA LETTER HI
187 (?
\e(IL
\e(B . "0xFF8C") ;; HALFWIDTH KATAKANA LETTER HU
188 (?
\e(IM
\e(B . "0xFF8D") ;; HALFWIDTH KATAKANA LETTER HE
189 (?
\e(IN
\e(B . "0xFF8E") ;; HALFWIDTH KATAKANA LETTER HO
190 (?
\e(IO
\e(B . "0xFF8F") ;; HALFWIDTH KATAKANA LETTER MA
191 (?
\e(IP
\e(B . "0xFF90") ;; HALFWIDTH KATAKANA LETTER MI
192 (?
\e(IQ
\e(B . "0xFF91") ;; HALFWIDTH KATAKANA LETTER MU
193 (?
\e(IR
\e(B . "0xFF92") ;; HALFWIDTH KATAKANA LETTER ME
194 (?
\e(IS
\e(B . "0xFF93") ;; HALFWIDTH KATAKANA LETTER MO
195 (?
\e(IT
\e(B . "0xFF94") ;; HALFWIDTH KATAKANA LETTER YA
196 (?
\e(IU
\e(B . "0xFF95") ;; HALFWIDTH KATAKANA LETTER YU
197 (?
\e(IV
\e(B . "0xFF96") ;; HALFWIDTH KATAKANA LETTER YO
198 (?
\e(IW
\e(B . "0xFF97") ;; HALFWIDTH KATAKANA LETTER RA
199 (?
\e(IX
\e(B . "0xFF98") ;; HALFWIDTH KATAKANA LETTER RI
200 (?
\e(IY
\e(B . "0xFF99") ;; HALFWIDTH KATAKANA LETTER RU
201 (?
\e(IZ
\e(B . "0xFF9A") ;; HALFWIDTH KATAKANA LETTER RE
202 (?
\e(I[
\e(B . "0xFF9B") ;; HALFWIDTH KATAKANA LETTER RO
203 (?
\e(I\
\e(B . "0xFF9C") ;; HALFWIDTH KATAKANA LETTER WA
204 (?
\e(I]
\e(B . "0xFF9D") ;; HALFWIDTH KATAKANA LETTER N
205 (?
\e(I^
\e(B . "0xFF9E") ;; HALFWIDTH KATAKANA VOICED SOUND MARK
206 (?
\e(I_
\e(B . "0xFF9F") ;; HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK