author | Claus Gittinger <cg@exept.de> |
Tue, 09 Mar 2004 00:05:08 +0100 | |
changeset 8118 | efc99c0f68bc |
parent 8114 | 05274a80fcc4 |
child 8148 | dbf64e3142d9 |
permissions | -rw-r--r-- |
8081 | 1 |
"{ Package: 'stx:libbasic' }" |
2 |
||
3 |
"{ NameSpace: CharacterEncoderImplementations }" |
|
4 |
||
5 |
SingleByteEncoder subclass:#JIS0201 |
|
6 |
instanceVariableNames:'' |
|
7 |
classVariableNames:'' |
|
8 |
poolDictionaries:'' |
|
9 |
category:'Collections-Text-Encodings' |
|
10 |
! |
|
11 |
||
12 |
||
13 |
!JIS0201 class methodsFor:'mapping'! |
|
14 |
||
15 |
mapFileURL1_relativePathName |
|
16 |
^ 'OBSOLETE/EASTASIA/JIS/JIS0201.TXT' |
|
17 |
! |
|
18 |
||
19 |
mapping |
|
20 |
" |
|
21 |
# From: http://www.unicode.org/Public/MAPPINGS/OBSOLETE/EASTASIA/JIS/JIS0201.TXT |
|
22 |
||
23 |
# |
|
24 |
# Name: JIS X 0201 (1976) to Unicode 1.1 Table |
|
25 |
# Unicode version: 1.1 |
|
26 |
# Table version: 0.9 |
|
27 |
# Table format: Format A |
|
28 |
# Date: 8 March 1994 |
|
29 |
# |
|
30 |
# Copyright (c) 1991-1994 Unicode, Inc. All Rights reserved. |
|
31 |
# |
|
32 |
# This file is provided as-is by Unicode, Inc. (The Unicode Consortium). |
|
33 |
# No claims are made as to fitness for any particular purpose. No |
|
34 |
# warranties of any kind are expressed or implied. The recipient |
|
35 |
# agrees to determine applicability of information provided. If this |
|
36 |
# file has been provided on magnetic media by Unicode, Inc., the sole |
|
37 |
# remedy for any claim will be exchange of defective media within 90 |
|
38 |
# days of receipt. |
|
39 |
# |
|
40 |
# Recipient is granted the right to make copies in any form for |
|
41 |
# internal distribution and to freely use the information supplied |
|
42 |
# in the creation of products supporting Unicode. Unicode, Inc. |
|
43 |
# specifically excludes the right to re-distribute this file directly |
|
44 |
# to third parties or other organizations whether for profit or not. |
|
45 |
# |
|
46 |
# General notes: |
|
47 |
# |
|
48 |
# |
|
49 |
# This table contains one set of mappings from JIS X 0201 into Unicode. |
|
50 |
# Note that these data are *possible* mappings only and may not be the |
|
51 |
# same as those used by actual products, nor may they be the best suited |
|
52 |
# for all uses. For more information on the mappings between various code |
|
53 |
# pages incorporating the repertoire of JIS X 0201 and Unicode, consult the |
|
54 |
# VENDORS mapping data. Normative information on the mapping between |
|
55 |
# JIS X 0201 and Unicode may be found in the Unihan.txt file in the |
|
56 |
# latest Unicode Character Database. |
|
57 |
# |
|
58 |
# If you have carefully considered the fact that the mappings in |
|
59 |
# this table are only one possible set of mappings between JIS X 0201 and |
|
60 |
# Unicode and have no normative status, but still feel that you |
|
61 |
# have located an error in the table that requires fixing, you may |
|
62 |
# report any such error to errata@unicode.org. |
|
63 |
# |
|
64 |
# |
|
65 |
# Format: Three tab-separated columns |
|
66 |
# Column #1 is the shift JIS code (in hex as 0xXX) |
|
67 |
# Column #2 is the Unicode (in hex as 0xXXXX) |
|
68 |
# Column #3 the Unicode (ISO 10646) name (follows a comment sign) |
|
69 |
# |
|
70 |
# The entries are in JIS order |
|
71 |
# |
|
72 |
# |
|
73 |
0x20 0x0020 # SPACE |
|
74 |
0x21 0x0021 # EXCLAMATION MARK |
|
75 |
0x22 0x0022 # QUOTATION MARK |
|
76 |
0x23 0x0023 # NUMBER SIGN |
|
77 |
0x24 0x0024 # DOLLAR SIGN |
|
78 |
0x25 0x0025 # PERCENT SIGN |
|
79 |
0x26 0x0026 # AMPERSAND |
|
80 |
0x27 0x0027 # APOSTROPHE |
|
81 |
0x28 0x0028 # LEFT PARENTHESIS |
|
82 |
0x29 0x0029 # RIGHT PARENTHESIS |
|
83 |
0x2A 0x002A # ASTERISK |
|
84 |
0x2B 0x002B # PLUS SIGN |
|
85 |
0x2C 0x002C # COMMA |
|
86 |
0x2D 0x002D # HYPHEN-MINUS |
|
87 |
0x2E 0x002E # FULL STOP |
|
88 |
0x2F 0x002F # SOLIDUS |
|
89 |
0x30 0x0030 # DIGIT ZERO |
|
90 |
0x31 0x0031 # DIGIT ONE |
|
91 |
0x32 0x0032 # DIGIT TWO |
|
92 |
0x33 0x0033 # DIGIT THREE |
|
93 |
0x34 0x0034 # DIGIT FOUR |
|
94 |
0x35 0x0035 # DIGIT FIVE |
|
95 |
0x36 0x0036 # DIGIT SIX |
|
96 |
0x37 0x0037 # DIGIT SEVEN |
|
97 |
0x38 0x0038 # DIGIT EIGHT |
|
98 |
0x39 0x0039 # DIGIT NINE |
|
99 |
0x3A 0x003A # COLON |
|
100 |
0x3B 0x003B # SEMICOLON |
|
101 |
0x3C 0x003C # LESS-THAN SIGN |
|
102 |
0x3D 0x003D # EQUALS SIGN |
|
103 |
0x3E 0x003E # GREATER-THAN SIGN |
|
104 |
0x3F 0x003F # QUESTION MARK |
|
105 |
0x40 0x0040 # COMMERCIAL AT |
|
106 |
0x41 0x0041 # LATIN CAPITAL LETTER A |
|
107 |
0x42 0x0042 # LATIN CAPITAL LETTER B |
|
108 |
0x43 0x0043 # LATIN CAPITAL LETTER C |
|
109 |
0x44 0x0044 # LATIN CAPITAL LETTER D |
|
110 |
0x45 0x0045 # LATIN CAPITAL LETTER E |
|
111 |
0x46 0x0046 # LATIN CAPITAL LETTER F |
|
112 |
0x47 0x0047 # LATIN CAPITAL LETTER G |
|
113 |
0x48 0x0048 # LATIN CAPITAL LETTER H |
|
114 |
0x49 0x0049 # LATIN CAPITAL LETTER I |
|
115 |
0x4A 0x004A # LATIN CAPITAL LETTER J |
|
116 |
0x4B 0x004B # LATIN CAPITAL LETTER K |
|
117 |
0x4C 0x004C # LATIN CAPITAL LETTER L |
|
118 |
0x4D 0x004D # LATIN CAPITAL LETTER M |
|
119 |
0x4E 0x004E # LATIN CAPITAL LETTER N |
|
120 |
0x4F 0x004F # LATIN CAPITAL LETTER O |
|
121 |
0x50 0x0050 # LATIN CAPITAL LETTER P |
|
122 |
0x51 0x0051 # LATIN CAPITAL LETTER Q |
|
123 |
0x52 0x0052 # LATIN CAPITAL LETTER R |
|
124 |
0x53 0x0053 # LATIN CAPITAL LETTER S |
|
125 |
0x54 0x0054 # LATIN CAPITAL LETTER T |
|
126 |
0x55 0x0055 # LATIN CAPITAL LETTER U |
|
127 |
0x56 0x0056 # LATIN CAPITAL LETTER V |
|
128 |
0x57 0x0057 # LATIN CAPITAL LETTER W |
|
129 |
0x58 0x0058 # LATIN CAPITAL LETTER X |
|
130 |
0x59 0x0059 # LATIN CAPITAL LETTER Y |
|
131 |
0x5A 0x005A # LATIN CAPITAL LETTER Z |
|
132 |
0x5B 0x005B # LEFT SQUARE BRACKET |
|
133 |
0x5C 0x00A5 # YEN SIGN |
|
134 |
0x5D 0x005D # RIGHT SQUARE BRACKET |
|
135 |
0x5E 0x005E # CIRCUMFLEX ACCENT |
|
136 |
0x5F 0x005F # LOW LINE |
|
137 |
0x60 0x0060 # GRAVE ACCENT |
|
138 |
0x61 0x0061 # LATIN SMALL LETTER A |
|
139 |
0x62 0x0062 # LATIN SMALL LETTER B |
|
140 |
0x63 0x0063 # LATIN SMALL LETTER C |
|
141 |
0x64 0x0064 # LATIN SMALL LETTER D |
|
142 |
0x65 0x0065 # LATIN SMALL LETTER E |
|
143 |
0x66 0x0066 # LATIN SMALL LETTER F |
|
144 |
0x67 0x0067 # LATIN SMALL LETTER G |
|
145 |
0x68 0x0068 # LATIN SMALL LETTER H |
|
146 |
0x69 0x0069 # LATIN SMALL LETTER I |
|
147 |
0x6A 0x006A # LATIN SMALL LETTER J |
|
148 |
0x6B 0x006B # LATIN SMALL LETTER K |
|
149 |
0x6C 0x006C # LATIN SMALL LETTER L |
|
150 |
0x6D 0x006D # LATIN SMALL LETTER M |
|
151 |
0x6E 0x006E # LATIN SMALL LETTER N |
|
152 |
0x6F 0x006F # LATIN SMALL LETTER O |
|
153 |
0x70 0x0070 # LATIN SMALL LETTER P |
|
154 |
0x71 0x0071 # LATIN SMALL LETTER Q |
|
155 |
0x72 0x0072 # LATIN SMALL LETTER R |
|
156 |
0x73 0x0073 # LATIN SMALL LETTER S |
|
157 |
0x74 0x0074 # LATIN SMALL LETTER T |
|
158 |
0x75 0x0075 # LATIN SMALL LETTER U |
|
159 |
0x76 0x0076 # LATIN SMALL LETTER V |
|
160 |
0x77 0x0077 # LATIN SMALL LETTER W |
|
161 |
0x78 0x0078 # LATIN SMALL LETTER X |
|
162 |
0x79 0x0079 # LATIN SMALL LETTER Y |
|
163 |
0x7A 0x007A # LATIN SMALL LETTER Z |
|
164 |
0x7B 0x007B # LEFT CURLY BRACKET |
|
165 |
0x7C 0x007C # VERTICAL LINE |
|
166 |
0x7D 0x007D # RIGHT CURLY BRACKET |
|
167 |
0x7E 0x203E # OVERLINE |
|
168 |
0xA1 0xFF61 # HALFWIDTH IDEOGRAPHIC FULL STOP |
|
169 |
0xA2 0xFF62 # HALFWIDTH LEFT CORNER BRACKET |
|
170 |
0xA3 0xFF63 # HALFWIDTH RIGHT CORNER BRACKET |
|
171 |
0xA4 0xFF64 # HALFWIDTH IDEOGRAPHIC COMMA |
|
172 |
0xA5 0xFF65 # HALFWIDTH KATAKANA MIDDLE DOT |
|
173 |
0xA6 0xFF66 # HALFWIDTH KATAKANA LETTER WO |
|
174 |
0xA7 0xFF67 # HALFWIDTH KATAKANA LETTER SMALL A |
|
175 |
0xA8 0xFF68 # HALFWIDTH KATAKANA LETTER SMALL I |
|
176 |
0xA9 0xFF69 # HALFWIDTH KATAKANA LETTER SMALL U |
|
177 |
0xAA 0xFF6A # HALFWIDTH KATAKANA LETTER SMALL E |
|
178 |
0xAB 0xFF6B # HALFWIDTH KATAKANA LETTER SMALL O |
|
179 |
0xAC 0xFF6C # HALFWIDTH KATAKANA LETTER SMALL YA |
|
180 |
0xAD 0xFF6D # HALFWIDTH KATAKANA LETTER SMALL YU |
|
181 |
0xAE 0xFF6E # HALFWIDTH KATAKANA LETTER SMALL YO |
|
182 |
0xAF 0xFF6F # HALFWIDTH KATAKANA LETTER SMALL TU |
|
183 |
0xB0 0xFF70 # HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK |
|
184 |
0xB1 0xFF71 # HALFWIDTH KATAKANA LETTER A |
|
185 |
0xB2 0xFF72 # HALFWIDTH KATAKANA LETTER I |
|
186 |
0xB3 0xFF73 # HALFWIDTH KATAKANA LETTER U |
|
187 |
0xB4 0xFF74 # HALFWIDTH KATAKANA LETTER E |
|
188 |
0xB5 0xFF75 # HALFWIDTH KATAKANA LETTER O |
|
189 |
0xB6 0xFF76 # HALFWIDTH KATAKANA LETTER KA |
|
190 |
0xB7 0xFF77 # HALFWIDTH KATAKANA LETTER KI |
|
191 |
0xB8 0xFF78 # HALFWIDTH KATAKANA LETTER KU |
|
192 |
0xB9 0xFF79 # HALFWIDTH KATAKANA LETTER KE |
|
193 |
0xBA 0xFF7A # HALFWIDTH KATAKANA LETTER KO |
|
194 |
0xBB 0xFF7B # HALFWIDTH KATAKANA LETTER SA |
|
195 |
0xBC 0xFF7C # HALFWIDTH KATAKANA LETTER SI |
|
196 |
0xBD 0xFF7D # HALFWIDTH KATAKANA LETTER SU |
|
197 |
0xBE 0xFF7E # HALFWIDTH KATAKANA LETTER SE |
|
198 |
0xBF 0xFF7F # HALFWIDTH KATAKANA LETTER SO |
|
199 |
0xC0 0xFF80 # HALFWIDTH KATAKANA LETTER TA |
|
200 |
0xC1 0xFF81 # HALFWIDTH KATAKANA LETTER TI |
|
201 |
0xC2 0xFF82 # HALFWIDTH KATAKANA LETTER TU |
|
202 |
0xC3 0xFF83 # HALFWIDTH KATAKANA LETTER TE |
|
203 |
0xC4 0xFF84 # HALFWIDTH KATAKANA LETTER TO |
|
204 |
0xC5 0xFF85 # HALFWIDTH KATAKANA LETTER NA |
|
205 |
0xC6 0xFF86 # HALFWIDTH KATAKANA LETTER NI |
|
206 |
0xC7 0xFF87 # HALFWIDTH KATAKANA LETTER NU |
|
207 |
0xC8 0xFF88 # HALFWIDTH KATAKANA LETTER NE |
|
208 |
0xC9 0xFF89 # HALFWIDTH KATAKANA LETTER NO |
|
209 |
0xCA 0xFF8A # HALFWIDTH KATAKANA LETTER HA |
|
210 |
0xCB 0xFF8B # HALFWIDTH KATAKANA LETTER HI |
|
211 |
0xCC 0xFF8C # HALFWIDTH KATAKANA LETTER HU |
|
212 |
0xCD 0xFF8D # HALFWIDTH KATAKANA LETTER HE |
|
213 |
0xCE 0xFF8E # HALFWIDTH KATAKANA LETTER HO |
|
214 |
0xCF 0xFF8F # HALFWIDTH KATAKANA LETTER MA |
|
215 |
0xD0 0xFF90 # HALFWIDTH KATAKANA LETTER MI |
|
216 |
0xD1 0xFF91 # HALFWIDTH KATAKANA LETTER MU |
|
217 |
0xD2 0xFF92 # HALFWIDTH KATAKANA LETTER ME |
|
218 |
0xD3 0xFF93 # HALFWIDTH KATAKANA LETTER MO |
|
219 |
0xD4 0xFF94 # HALFWIDTH KATAKANA LETTER YA |
|
220 |
0xD5 0xFF95 # HALFWIDTH KATAKANA LETTER YU |
|
221 |
0xD6 0xFF96 # HALFWIDTH KATAKANA LETTER YO |
|
222 |
0xD7 0xFF97 # HALFWIDTH KATAKANA LETTER RA |
|
223 |
0xD8 0xFF98 # HALFWIDTH KATAKANA LETTER RI |
|
224 |
0xD9 0xFF99 # HALFWIDTH KATAKANA LETTER RU |
|
225 |
0xDA 0xFF9A # HALFWIDTH KATAKANA LETTER RE |
|
226 |
0xDB 0xFF9B # HALFWIDTH KATAKANA LETTER RO |
|
227 |
0xDC 0xFF9C # HALFWIDTH KATAKANA LETTER WA |
|
228 |
0xDD 0xFF9D # HALFWIDTH KATAKANA LETTER N |
|
229 |
0xDE 0xFF9E # HALFWIDTH KATAKANA VOICED SOUND MARK |
|
230 |
0xDF 0xFF9F # HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK |
|
231 |
||
232 |
" |
|
233 |
! ! |
|
234 |
||
235 |
!JIS0201 methodsFor:'encoding & decoding'! |
|
236 |
||
237 |
decode:codeArg |
|
238 |
"Automagically generated by generateCode - do not modify. |
|
239 |
Decode from my encoding into unicode." |
|
240 |
||
241 |
|code "{ Class: SmallInteger }"| |
|
242 |
||
243 |
code := codeArg. |
|
244 |
code <= 16r1F ifTrue:[ |
|
245 |
^ self decodingError. |
|
246 |
]. |
|
247 |
code <= 16r5B ifTrue:[ ^ code ]. |
|
248 |
code > 16rDF ifTrue:[ |
|
249 |
^ self decodingError. |
|
250 |
]. |
|
251 |
[ |
|
252 |
|t| |
|
253 |
t := #( |
|
254 |
"16r005C" 16r00A5 " YEN SIGN " |
|
255 |
"16r005D" 16r005D " RIGHT SQUARE BRACKET " |
|
256 |
"16r005E" 16r005E " CIRCUMFLEX ACCENT " |
|
257 |
"16r005F" 16r005F " LOW LINE " |
|
258 |
"16r0060" 16r0060 " GRAVE ACCENT " |
|
259 |
"16r0061" 16r0061 " LATIN SMALL LETTER A " |
|
260 |
"16r0062" 16r0062 " LATIN SMALL LETTER B " |
|
261 |
"16r0063" 16r0063 " LATIN SMALL LETTER C " |
|
262 |
"16r0064" 16r0064 " LATIN SMALL LETTER D " |
|
263 |
"16r0065" 16r0065 " LATIN SMALL LETTER E " |
|
264 |
"16r0066" 16r0066 " LATIN SMALL LETTER F " |
|
265 |
"16r0067" 16r0067 " LATIN SMALL LETTER G " |
|
266 |
"16r0068" 16r0068 " LATIN SMALL LETTER H " |
|
267 |
"16r0069" 16r0069 " LATIN SMALL LETTER I " |
|
268 |
"16r006A" 16r006A " LATIN SMALL LETTER J " |
|
269 |
"16r006B" 16r006B " LATIN SMALL LETTER K " |
|
270 |
"16r006C" 16r006C " LATIN SMALL LETTER L " |
|
271 |
"16r006D" 16r006D " LATIN SMALL LETTER M " |
|
272 |
"16r006E" 16r006E " LATIN SMALL LETTER N " |
|
273 |
"16r006F" 16r006F " LATIN SMALL LETTER O " |
|
274 |
"16r0070" 16r0070 " LATIN SMALL LETTER P " |
|
275 |
"16r0071" 16r0071 " LATIN SMALL LETTER Q " |
|
276 |
"16r0072" 16r0072 " LATIN SMALL LETTER R " |
|
277 |
"16r0073" 16r0073 " LATIN SMALL LETTER S " |
|
278 |
"16r0074" 16r0074 " LATIN SMALL LETTER T " |
|
279 |
"16r0075" 16r0075 " LATIN SMALL LETTER U " |
|
280 |
"16r0076" 16r0076 " LATIN SMALL LETTER V " |
|
281 |
"16r0077" 16r0077 " LATIN SMALL LETTER W " |
|
282 |
"16r0078" 16r0078 " LATIN SMALL LETTER X " |
|
283 |
"16r0079" 16r0079 " LATIN SMALL LETTER Y " |
|
284 |
"16r007A" 16r007A " LATIN SMALL LETTER Z " |
|
285 |
"16r007B" 16r007B " LEFT CURLY BRACKET " |
|
286 |
"16r007C" 16r007C " VERTICAL LINE " |
|
287 |
"16r007D" 16r007D " RIGHT CURLY BRACKET " |
|
288 |
"16r007E" 16r203E " OVERLINE " |
|
289 |
"16r007F" 16r0000 " invalid " |
|
290 |
"16r0080" 16r0000 " invalid " |
|
291 |
"16r0081" 16r0000 " invalid " |
|
292 |
"16r0082" 16r0000 " invalid " |
|
293 |
"16r0083" 16r0000 " invalid " |
|
294 |
"16r0084" 16r0000 " invalid " |
|
295 |
"16r0085" 16r0000 " invalid " |
|
296 |
"16r0086" 16r0000 " invalid " |
|
297 |
"16r0087" 16r0000 " invalid " |
|
298 |
"16r0088" 16r0000 " invalid " |
|
299 |
"16r0089" 16r0000 " invalid " |
|
300 |
"16r008A" 16r0000 " invalid " |
|
301 |
"16r008B" 16r0000 " invalid " |
|
302 |
"16r008C" 16r0000 " invalid " |
|
303 |
"16r008D" 16r0000 " invalid " |
|
304 |
"16r008E" 16r0000 " invalid " |
|
305 |
"16r008F" 16r0000 " invalid " |
|
306 |
"16r0090" 16r0000 " invalid " |
|
307 |
"16r0091" 16r0000 " invalid " |
|
308 |
"16r0092" 16r0000 " invalid " |
|
309 |
"16r0093" 16r0000 " invalid " |
|
310 |
"16r0094" 16r0000 " invalid " |
|
311 |
"16r0095" 16r0000 " invalid " |
|
312 |
"16r0096" 16r0000 " invalid " |
|
313 |
"16r0097" 16r0000 " invalid " |
|
314 |
"16r0098" 16r0000 " invalid " |
|
315 |
"16r0099" 16r0000 " invalid " |
|
316 |
"16r009A" 16r0000 " invalid " |
|
317 |
"16r009B" 16r0000 " invalid " |
|
318 |
"16r009C" 16r0000 " invalid " |
|
319 |
"16r009D" 16r0000 " invalid " |
|
320 |
"16r009E" 16r0000 " invalid " |
|
321 |
"16r009F" 16r0000 " invalid " |
|
322 |
"16r00A0" 16r0000 " invalid " |
|
323 |
"16r00A1" 16rFF61 " HALFWIDTH IDEOGRAPHIC FULL STOP " |
|
324 |
"16r00A2" 16rFF62 " HALFWIDTH LEFT CORNER BRACKET " |
|
325 |
"16r00A3" 16rFF63 " HALFWIDTH RIGHT CORNER BRACKET " |
|
326 |
"16r00A4" 16rFF64 " HALFWIDTH IDEOGRAPHIC COMMA " |
|
327 |
"16r00A5" 16rFF65 " HALFWIDTH KATAKANA MIDDLE DOT " |
|
328 |
"16r00A6" 16rFF66 " HALFWIDTH KATAKANA LETTER WO " |
|
329 |
"16r00A7" 16rFF67 " HALFWIDTH KATAKANA LETTER SMALL A " |
|
330 |
"16r00A8" 16rFF68 " HALFWIDTH KATAKANA LETTER SMALL I " |
|
331 |
"16r00A9" 16rFF69 " HALFWIDTH KATAKANA LETTER SMALL U " |
|
332 |
"16r00AA" 16rFF6A " HALFWIDTH KATAKANA LETTER SMALL E " |
|
333 |
"16r00AB" 16rFF6B " HALFWIDTH KATAKANA LETTER SMALL O " |
|
334 |
"16r00AC" 16rFF6C " HALFWIDTH KATAKANA LETTER SMALL YA " |
|
335 |
"16r00AD" 16rFF6D " HALFWIDTH KATAKANA LETTER SMALL YU " |
|
336 |
"16r00AE" 16rFF6E " HALFWIDTH KATAKANA LETTER SMALL YO " |
|
337 |
"16r00AF" 16rFF6F " HALFWIDTH KATAKANA LETTER SMALL TU " |
|
338 |
"16r00B0" 16rFF70 " HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK " |
|
339 |
"16r00B1" 16rFF71 " HALFWIDTH KATAKANA LETTER A " |
|
340 |
"16r00B2" 16rFF72 " HALFWIDTH KATAKANA LETTER I " |
|
341 |
"16r00B3" 16rFF73 " HALFWIDTH KATAKANA LETTER U " |
|
342 |
"16r00B4" 16rFF74 " HALFWIDTH KATAKANA LETTER E " |
|
343 |
"16r00B5" 16rFF75 " HALFWIDTH KATAKANA LETTER O " |
|
344 |
"16r00B6" 16rFF76 " HALFWIDTH KATAKANA LETTER KA " |
|
345 |
"16r00B7" 16rFF77 " HALFWIDTH KATAKANA LETTER KI " |
|
346 |
"16r00B8" 16rFF78 " HALFWIDTH KATAKANA LETTER KU " |
|
347 |
"16r00B9" 16rFF79 " HALFWIDTH KATAKANA LETTER KE " |
|
348 |
"16r00BA" 16rFF7A " HALFWIDTH KATAKANA LETTER KO " |
|
349 |
"16r00BB" 16rFF7B " HALFWIDTH KATAKANA LETTER SA " |
|
350 |
"16r00BC" 16rFF7C " HALFWIDTH KATAKANA LETTER SI " |
|
351 |
"16r00BD" 16rFF7D " HALFWIDTH KATAKANA LETTER SU " |
|
352 |
"16r00BE" 16rFF7E " HALFWIDTH KATAKANA LETTER SE " |
|
353 |
"16r00BF" 16rFF7F " HALFWIDTH KATAKANA LETTER SO " |
|
354 |
"16r00C0" 16rFF80 " HALFWIDTH KATAKANA LETTER TA " |
|
355 |
"16r00C1" 16rFF81 " HALFWIDTH KATAKANA LETTER TI " |
|
356 |
"16r00C2" 16rFF82 " HALFWIDTH KATAKANA LETTER TU " |
|
357 |
"16r00C3" 16rFF83 " HALFWIDTH KATAKANA LETTER TE " |
|
358 |
"16r00C4" 16rFF84 " HALFWIDTH KATAKANA LETTER TO " |
|
359 |
"16r00C5" 16rFF85 " HALFWIDTH KATAKANA LETTER NA " |
|
360 |
"16r00C6" 16rFF86 " HALFWIDTH KATAKANA LETTER NI " |
|
361 |
"16r00C7" 16rFF87 " HALFWIDTH KATAKANA LETTER NU " |
|
362 |
"16r00C8" 16rFF88 " HALFWIDTH KATAKANA LETTER NE " |
|
363 |
"16r00C9" 16rFF89 " HALFWIDTH KATAKANA LETTER NO " |
|
364 |
"16r00CA" 16rFF8A " HALFWIDTH KATAKANA LETTER HA " |
|
365 |
"16r00CB" 16rFF8B " HALFWIDTH KATAKANA LETTER HI " |
|
366 |
"16r00CC" 16rFF8C " HALFWIDTH KATAKANA LETTER HU " |
|
367 |
"16r00CD" 16rFF8D " HALFWIDTH KATAKANA LETTER HE " |
|
368 |
"16r00CE" 16rFF8E " HALFWIDTH KATAKANA LETTER HO " |
|
369 |
"16r00CF" 16rFF8F " HALFWIDTH KATAKANA LETTER MA " |
|
370 |
"16r00D0" 16rFF90 " HALFWIDTH KATAKANA LETTER MI " |
|
371 |
"16r00D1" 16rFF91 " HALFWIDTH KATAKANA LETTER MU " |
|
372 |
"16r00D2" 16rFF92 " HALFWIDTH KATAKANA LETTER ME " |
|
373 |
"16r00D3" 16rFF93 " HALFWIDTH KATAKANA LETTER MO " |
|
374 |
"16r00D4" 16rFF94 " HALFWIDTH KATAKANA LETTER YA " |
|
375 |
"16r00D5" 16rFF95 " HALFWIDTH KATAKANA LETTER YU " |
|
376 |
"16r00D6" 16rFF96 " HALFWIDTH KATAKANA LETTER YO " |
|
377 |
"16r00D7" 16rFF97 " HALFWIDTH KATAKANA LETTER RA " |
|
378 |
"16r00D8" 16rFF98 " HALFWIDTH KATAKANA LETTER RI " |
|
379 |
"16r00D9" 16rFF99 " HALFWIDTH KATAKANA LETTER RU " |
|
380 |
"16r00DA" 16rFF9A " HALFWIDTH KATAKANA LETTER RE " |
|
381 |
"16r00DB" 16rFF9B " HALFWIDTH KATAKANA LETTER RO " |
|
382 |
"16r00DC" 16rFF9C " HALFWIDTH KATAKANA LETTER WA " |
|
383 |
"16r00DD" 16rFF9D " HALFWIDTH KATAKANA LETTER N " |
|
384 |
"16r00DE" 16rFF9E " HALFWIDTH KATAKANA VOICED SOUND MARK " |
|
385 |
"16r00DF" 16rFF9F " HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK " |
|
386 |
) at:(code - 16r5B). |
|
387 |
t == 0 ifFalse:[^ t]. |
|
388 |
^ self decodingError. |
|
389 |
] value. |
|
390 |
! |
|
391 |
||
392 |
encode:unicodeArg |
|
393 |
"Automagically generated by generateCode - do not modify. |
|
394 |
Encode from unicode into my encoding." |
|
395 |
||
396 |
|unicode "{ Class: SmallInteger }"| |
|
397 |
||
398 |
unicode := unicodeArg. |
|
399 |
unicode <= 16r1F ifTrue:[ |
|
400 |
^ self decodingError. |
|
401 |
]. |
|
402 |
unicode <= 16r5B ifTrue:[ ^ unicode ]. |
|
403 |
unicode > 16rFF9F ifTrue:[ |
|
404 |
^ self encodingError. |
|
405 |
]. |
|
406 |
unicode <= 16r203E ifTrue:[ |
|
407 |
unicode <= 16rA5 ifTrue:[ |
|
408 |
unicode <= 16r7D ifTrue:[ |
|
409 |
[ |
|
410 |
|t| |
|
411 |
t := #[ |
|
412 |
"16r005C" 16r00 " invalid " |
|
413 |
"16r005D" 16r5D " RIGHT SQUARE BRACKET " |
|
414 |
"16r005E" 16r5E " CIRCUMFLEX ACCENT " |
|
415 |
"16r005F" 16r5F " LOW LINE " |
|
416 |
"16r0060" 16r60 " GRAVE ACCENT " |
|
417 |
"16r0061" 16r61 " LATIN SMALL LETTER A " |
|
418 |
"16r0062" 16r62 " LATIN SMALL LETTER B " |
|
419 |
"16r0063" 16r63 " LATIN SMALL LETTER C " |
|
420 |
"16r0064" 16r64 " LATIN SMALL LETTER D " |
|
421 |
"16r0065" 16r65 " LATIN SMALL LETTER E " |
|
422 |
"16r0066" 16r66 " LATIN SMALL LETTER F " |
|
423 |
"16r0067" 16r67 " LATIN SMALL LETTER G " |
|
424 |
"16r0068" 16r68 " LATIN SMALL LETTER H " |
|
425 |
"16r0069" 16r69 " LATIN SMALL LETTER I " |
|
426 |
"16r006A" 16r6A " LATIN SMALL LETTER J " |
|
427 |
"16r006B" 16r6B " LATIN SMALL LETTER K " |
|
428 |
"16r006C" 16r6C " LATIN SMALL LETTER L " |
|
429 |
"16r006D" 16r6D " LATIN SMALL LETTER M " |
|
430 |
"16r006E" 16r6E " LATIN SMALL LETTER N " |
|
431 |
"16r006F" 16r6F " LATIN SMALL LETTER O " |
|
432 |
"16r0070" 16r70 " LATIN SMALL LETTER P " |
|
433 |
"16r0071" 16r71 " LATIN SMALL LETTER Q " |
|
434 |
"16r0072" 16r72 " LATIN SMALL LETTER R " |
|
435 |
"16r0073" 16r73 " LATIN SMALL LETTER S " |
|
436 |
"16r0074" 16r74 " LATIN SMALL LETTER T " |
|
437 |
"16r0075" 16r75 " LATIN SMALL LETTER U " |
|
438 |
"16r0076" 16r76 " LATIN SMALL LETTER V " |
|
439 |
"16r0077" 16r77 " LATIN SMALL LETTER W " |
|
440 |
"16r0078" 16r78 " LATIN SMALL LETTER X " |
|
441 |
"16r0079" 16r79 " LATIN SMALL LETTER Y " |
|
442 |
"16r007A" 16r7A " LATIN SMALL LETTER Z " |
|
443 |
"16r007B" 16r7B " LEFT CURLY BRACKET " |
|
444 |
"16r007C" 16r7C " VERTICAL LINE " |
|
445 |
"16r007D" 16r7D " RIGHT CURLY BRACKET " |
|
446 |
] at:(unicode - 16r5B). |
|
447 |
t == 0 ifFalse:[^ t]. |
|
448 |
^ self encodingError |
|
449 |
] value. |
|
450 |
]. |
|
451 |
unicode <= 16rA4 ifTrue:[ |
|
452 |
^ self encodingError. |
|
453 |
]. |
|
454 |
^ "16r00A5" 16r005C " YEN SIGN " |
|
455 |
]. |
|
456 |
unicode <= 16r203D ifTrue:[ |
|
457 |
^ self encodingError. |
|
458 |
]. |
|
459 |
^ "16r203E" 16r007E " OVERLINE " |
|
460 |
]. |
|
461 |
unicode <= 16rFF60 ifTrue:[ |
|
462 |
^ self encodingError. |
|
463 |
]. |
|
464 |
^ #[ |
|
465 |
"16rFF61" 16rA1 " HALFWIDTH IDEOGRAPHIC FULL STOP " |
|
466 |
"16rFF62" 16rA2 " HALFWIDTH LEFT CORNER BRACKET " |
|
467 |
"16rFF63" 16rA3 " HALFWIDTH RIGHT CORNER BRACKET " |
|
468 |
"16rFF64" 16rA4 " HALFWIDTH IDEOGRAPHIC COMMA " |
|
469 |
"16rFF65" 16rA5 " HALFWIDTH KATAKANA MIDDLE DOT " |
|
470 |
"16rFF66" 16rA6 " HALFWIDTH KATAKANA LETTER WO " |
|
471 |
"16rFF67" 16rA7 " HALFWIDTH KATAKANA LETTER SMALL A " |
|
472 |
"16rFF68" 16rA8 " HALFWIDTH KATAKANA LETTER SMALL I " |
|
473 |
"16rFF69" 16rA9 " HALFWIDTH KATAKANA LETTER SMALL U " |
|
474 |
"16rFF6A" 16rAA " HALFWIDTH KATAKANA LETTER SMALL E " |
|
475 |
"16rFF6B" 16rAB " HALFWIDTH KATAKANA LETTER SMALL O " |
|
476 |
"16rFF6C" 16rAC " HALFWIDTH KATAKANA LETTER SMALL YA " |
|
477 |
"16rFF6D" 16rAD " HALFWIDTH KATAKANA LETTER SMALL YU " |
|
478 |
"16rFF6E" 16rAE " HALFWIDTH KATAKANA LETTER SMALL YO " |
|
479 |
"16rFF6F" 16rAF " HALFWIDTH KATAKANA LETTER SMALL TU " |
|
480 |
"16rFF70" 16rB0 " HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK " |
|
481 |
"16rFF71" 16rB1 " HALFWIDTH KATAKANA LETTER A " |
|
482 |
"16rFF72" 16rB2 " HALFWIDTH KATAKANA LETTER I " |
|
483 |
"16rFF73" 16rB3 " HALFWIDTH KATAKANA LETTER U " |
|
484 |
"16rFF74" 16rB4 " HALFWIDTH KATAKANA LETTER E " |
|
485 |
"16rFF75" 16rB5 " HALFWIDTH KATAKANA LETTER O " |
|
486 |
"16rFF76" 16rB6 " HALFWIDTH KATAKANA LETTER KA " |
|
487 |
"16rFF77" 16rB7 " HALFWIDTH KATAKANA LETTER KI " |
|
488 |
"16rFF78" 16rB8 " HALFWIDTH KATAKANA LETTER KU " |
|
489 |
"16rFF79" 16rB9 " HALFWIDTH KATAKANA LETTER KE " |
|
490 |
"16rFF7A" 16rBA " HALFWIDTH KATAKANA LETTER KO " |
|
491 |
"16rFF7B" 16rBB " HALFWIDTH KATAKANA LETTER SA " |
|
492 |
"16rFF7C" 16rBC " HALFWIDTH KATAKANA LETTER SI " |
|
493 |
"16rFF7D" 16rBD " HALFWIDTH KATAKANA LETTER SU " |
|
494 |
"16rFF7E" 16rBE " HALFWIDTH KATAKANA LETTER SE " |
|
495 |
"16rFF7F" 16rBF " HALFWIDTH KATAKANA LETTER SO " |
|
496 |
"16rFF80" 16rC0 " HALFWIDTH KATAKANA LETTER TA " |
|
497 |
"16rFF81" 16rC1 " HALFWIDTH KATAKANA LETTER TI " |
|
498 |
"16rFF82" 16rC2 " HALFWIDTH KATAKANA LETTER TU " |
|
499 |
"16rFF83" 16rC3 " HALFWIDTH KATAKANA LETTER TE " |
|
500 |
"16rFF84" 16rC4 " HALFWIDTH KATAKANA LETTER TO " |
|
501 |
"16rFF85" 16rC5 " HALFWIDTH KATAKANA LETTER NA " |
|
502 |
"16rFF86" 16rC6 " HALFWIDTH KATAKANA LETTER NI " |
|
503 |
"16rFF87" 16rC7 " HALFWIDTH KATAKANA LETTER NU " |
|
504 |
"16rFF88" 16rC8 " HALFWIDTH KATAKANA LETTER NE " |
|
505 |
"16rFF89" 16rC9 " HALFWIDTH KATAKANA LETTER NO " |
|
506 |
"16rFF8A" 16rCA " HALFWIDTH KATAKANA LETTER HA " |
|
507 |
"16rFF8B" 16rCB " HALFWIDTH KATAKANA LETTER HI " |
|
508 |
"16rFF8C" 16rCC " HALFWIDTH KATAKANA LETTER HU " |
|
509 |
"16rFF8D" 16rCD " HALFWIDTH KATAKANA LETTER HE " |
|
510 |
"16rFF8E" 16rCE " HALFWIDTH KATAKANA LETTER HO " |
|
511 |
"16rFF8F" 16rCF " HALFWIDTH KATAKANA LETTER MA " |
|
512 |
"16rFF90" 16rD0 " HALFWIDTH KATAKANA LETTER MI " |
|
513 |
"16rFF91" 16rD1 " HALFWIDTH KATAKANA LETTER MU " |
|
514 |
"16rFF92" 16rD2 " HALFWIDTH KATAKANA LETTER ME " |
|
515 |
"16rFF93" 16rD3 " HALFWIDTH KATAKANA LETTER MO " |
|
516 |
"16rFF94" 16rD4 " HALFWIDTH KATAKANA LETTER YA " |
|
517 |
"16rFF95" 16rD5 " HALFWIDTH KATAKANA LETTER YU " |
|
518 |
"16rFF96" 16rD6 " HALFWIDTH KATAKANA LETTER YO " |
|
519 |
"16rFF97" 16rD7 " HALFWIDTH KATAKANA LETTER RA " |
|
520 |
"16rFF98" 16rD8 " HALFWIDTH KATAKANA LETTER RI " |
|
521 |
"16rFF99" 16rD9 " HALFWIDTH KATAKANA LETTER RU " |
|
522 |
"16rFF9A" 16rDA " HALFWIDTH KATAKANA LETTER RE " |
|
523 |
"16rFF9B" 16rDB " HALFWIDTH KATAKANA LETTER RO " |
|
524 |
"16rFF9C" 16rDC " HALFWIDTH KATAKANA LETTER WA " |
|
525 |
"16rFF9D" 16rDD " HALFWIDTH KATAKANA LETTER N " |
|
526 |
"16rFF9E" 16rDE " HALFWIDTH KATAKANA VOICED SOUND MARK " |
|
527 |
"16rFF9F" 16rDF " HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK " |
|
528 |
] at:(unicode - 16rFF60). |
|
529 |
! ! |
|
530 |
||
531 |
!JIS0201 class methodsFor:'documentation'! |
|
532 |
||
533 |
version |
|
8114
05274a80fcc4
separated implementation into dynamically (lazy) loaded classes
Claus Gittinger <cg@exept.de>
parents:
8081
diff
changeset
|
534 |
^ '$Header: /cvs/stx/stx/libbasic/Attic/Encoder_JIS0201.st,v 1.2 2004-03-08 17:09:08 cg Exp $' |
8081 | 535 |
! ! |