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