Mercurial > projects > ldc

comparison dmd2/unialpha.c @ 758:f04dde6e882c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added initial D2 support, D2 frontend and changes to codegen to make things compile.
author Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
date Tue, 11 Nov 2008 01:38:48 +0100
parents
children
comparison
equal deleted inserted replaced
757:2c730d530c98 758:f04dde6e882c
1
2 // Copyright (c) 2003 by Digital Mars
3 // All Rights Reserved
4 // written by Walter Bright
5 // http://www.digitalmars.com
6 // License for redistribution is by either the Artistic License
7 // in artistic.txt, or the GNU General Public License in gnu.txt.
8 // See the included readme.txt for details.
9
10 #include <assert.h>
11
12 /*******************************
13 * Return !=0 if unicode alpha.
14 * Use table from C99 Appendix D.
15 */
16
17 int isUniAlpha(unsigned u)
18 {
19 static unsigned short table[][2] =
20 {
21 { 0x00AA, 0x00AA },
22 { 0x00B5, 0x00B5 },
23 { 0x00B7, 0x00B7 },
24 { 0x00BA, 0x00BA },
25 { 0x00C0, 0x00D6 },
26 { 0x00D8, 0x00F6 },
27 { 0x00F8, 0x01F5 },
28 { 0x01FA, 0x0217 },
29 { 0x0250, 0x02A8 },
30 { 0x02B0, 0x02B8 },
31 { 0x02BB, 0x02BB },
32 { 0x02BD, 0x02C1 },
33 { 0x02D0, 0x02D1 },
34 { 0x02E0, 0x02E4 },
35 { 0x037A, 0x037A },
36 { 0x0386, 0x0386 },
37 { 0x0388, 0x038A },
38 { 0x038C, 0x038C },
39 { 0x038E, 0x03A1 },
40 { 0x03A3, 0x03CE },
41 { 0x03D0, 0x03D6 },
42 { 0x03DA, 0x03DA },
43 { 0x03DC, 0x03DC },
44 { 0x03DE, 0x03DE },
45 { 0x03E0, 0x03E0 },
46 { 0x03E2, 0x03F3 },
47 { 0x0401, 0x040C },
48 { 0x040E, 0x044F },
49 { 0x0451, 0x045C },
50 { 0x045E, 0x0481 },
51 { 0x0490, 0x04C4 },
52 { 0x04C7, 0x04C8 },
53 { 0x04CB, 0x04CC },
54 { 0x04D0, 0x04EB },
55 { 0x04EE, 0x04F5 },
56 { 0x04F8, 0x04F9 },
57 { 0x0531, 0x0556 },
58 { 0x0559, 0x0559 },
59 { 0x0561, 0x0587 },
60 { 0x05B0, 0x05B9 },
61 { 0x05BB, 0x05BD },
62 { 0x05BF, 0x05BF },
63 { 0x05C1, 0x05C2 },
64 { 0x05D0, 0x05EA },
65 { 0x05F0, 0x05F2 },
66 { 0x0621, 0x063A },
67 { 0x0640, 0x0652 },
68 { 0x0660, 0x0669 },
69 { 0x0670, 0x06B7 },
70 { 0x06BA, 0x06BE },
71 { 0x06C0, 0x06CE },
72 { 0x06D0, 0x06DC },
73 { 0x06E5, 0x06E8 },
74 { 0x06EA, 0x06ED },
75 { 0x06F0, 0x06F9 },
76 { 0x0901, 0x0903 },
77 { 0x0905, 0x0939 },
78 { 0x093D, 0x093D },
79 { 0x093E, 0x094D },
80 { 0x0950, 0x0952 },
81 { 0x0958, 0x0963 },
82 { 0x0966, 0x096F },
83 { 0x0981, 0x0983 },
84 { 0x0985, 0x098C },
85 { 0x098F, 0x0990 },
86 { 0x0993, 0x09A8 },
87 { 0x09AA, 0x09B0 },
88 { 0x09B2, 0x09B2 },
89 { 0x09B6, 0x09B9 },
90 { 0x09BE, 0x09C4 },
91 { 0x09C7, 0x09C8 },
92 { 0x09CB, 0x09CD },
93 { 0x09DC, 0x09DD },
94 { 0x09DF, 0x09E3 },
95 { 0x09E6, 0x09EF },
96 { 0x09F0, 0x09F1 },
97 { 0x0A02, 0x0A02 },
98 { 0x0A05, 0x0A0A },
99 { 0x0A0F, 0x0A10 },
100 { 0x0A13, 0x0A28 },
101 { 0x0A2A, 0x0A30 },
102 { 0x0A32, 0x0A33 },
103 { 0x0A35, 0x0A36 },
104 { 0x0A38, 0x0A39 },
105 { 0x0A3E, 0x0A42 },
106 { 0x0A47, 0x0A48 },
107 { 0x0A4B, 0x0A4D },
108 { 0x0A59, 0x0A5C },
109 { 0x0A5E, 0x0A5E },
110 { 0x0A66, 0x0A6F },
111 { 0x0A74, 0x0A74 },
112 { 0x0A81, 0x0A83 },
113 { 0x0A85, 0x0A8B },
114 { 0x0A8D, 0x0A8D },
115 { 0x0A8F, 0x0A91 },
116 { 0x0A93, 0x0AA8 },
117 { 0x0AAA, 0x0AB0 },
118 { 0x0AB2, 0x0AB3 },
119 { 0x0AB5, 0x0AB9 },
120 { 0x0ABD, 0x0AC5 },
121 { 0x0AC7, 0x0AC9 },
122 { 0x0ACB, 0x0ACD },
123 { 0x0AD0, 0x0AD0 },
124 { 0x0AE0, 0x0AE0 },
125 { 0x0AE6, 0x0AEF },
126 { 0x0B01, 0x0B03 },
127 { 0x0B05, 0x0B0C },
128 { 0x0B0F, 0x0B10 },
129 { 0x0B13, 0x0B28 },
130 { 0x0B2A, 0x0B30 },
131 { 0x0B32, 0x0B33 },
132 { 0x0B36, 0x0B39 },
133 { 0x0B3D, 0x0B3D },
134 { 0x0B3E, 0x0B43 },
135 { 0x0B47, 0x0B48 },
136 { 0x0B4B, 0x0B4D },
137 { 0x0B5C, 0x0B5D },
138 { 0x0B5F, 0x0B61 },
139 { 0x0B66, 0x0B6F },
140 { 0x0B82, 0x0B83 },
141 { 0x0B85, 0x0B8A },
142 { 0x0B8E, 0x0B90 },
143 { 0x0B92, 0x0B95 },
144 { 0x0B99, 0x0B9A },
145 { 0x0B9C, 0x0B9C },
146 { 0x0B9E, 0x0B9F },
147 { 0x0BA3, 0x0BA4 },
148 { 0x0BA8, 0x0BAA },
149 { 0x0BAE, 0x0BB5 },
150 { 0x0BB7, 0x0BB9 },
151 { 0x0BBE, 0x0BC2 },
152 { 0x0BC6, 0x0BC8 },
153 { 0x0BCA, 0x0BCD },
154 { 0x0BE7, 0x0BEF },
155 { 0x0C01, 0x0C03 },
156 { 0x0C05, 0x0C0C },
157 { 0x0C0E, 0x0C10 },
158 { 0x0C12, 0x0C28 },
159 { 0x0C2A, 0x0C33 },
160 { 0x0C35, 0x0C39 },
161 { 0x0C3E, 0x0C44 },
162 { 0x0C46, 0x0C48 },
163 { 0x0C4A, 0x0C4D },
164 { 0x0C60, 0x0C61 },
165 { 0x0C66, 0x0C6F },
166 { 0x0C82, 0x0C83 },
167 { 0x0C85, 0x0C8C },
168 { 0x0C8E, 0x0C90 },
169 { 0x0C92, 0x0CA8 },
170 { 0x0CAA, 0x0CB3 },
171 { 0x0CB5, 0x0CB9 },
172 { 0x0CBE, 0x0CC4 },
173 { 0x0CC6, 0x0CC8 },
174 { 0x0CCA, 0x0CCD },
175 { 0x0CDE, 0x0CDE },
176 { 0x0CE0, 0x0CE1 },
177 { 0x0CE6, 0x0CEF },
178 { 0x0D02, 0x0D03 },
179 { 0x0D05, 0x0D0C },
180 { 0x0D0E, 0x0D10 },
181 { 0x0D12, 0x0D28 },
182 { 0x0D2A, 0x0D39 },
183 { 0x0D3E, 0x0D43 },
184 { 0x0D46, 0x0D48 },
185 { 0x0D4A, 0x0D4D },
186 { 0x0D60, 0x0D61 },
187 { 0x0D66, 0x0D6F },
188 { 0x0E01, 0x0E3A },
189 { 0x0E40, 0x0E5B },
190 // { 0x0E50, 0x0E59 },
191 { 0x0E81, 0x0E82 },
192 { 0x0E84, 0x0E84 },
193 { 0x0E87, 0x0E88 },
194 { 0x0E8A, 0x0E8A },
195 { 0x0E8D, 0x0E8D },
196 { 0x0E94, 0x0E97 },
197 { 0x0E99, 0x0E9F },
198 { 0x0EA1, 0x0EA3 },
199 { 0x0EA5, 0x0EA5 },
200 { 0x0EA7, 0x0EA7 },
201 { 0x0EAA, 0x0EAB },
202 { 0x0EAD, 0x0EAE },
203 { 0x0EB0, 0x0EB9 },
204 { 0x0EBB, 0x0EBD },
205 { 0x0EC0, 0x0EC4 },
206 { 0x0EC6, 0x0EC6 },
207 { 0x0EC8, 0x0ECD },
208 { 0x0ED0, 0x0ED9 },
209 { 0x0EDC, 0x0EDD },
210 { 0x0F00, 0x0F00 },
211 { 0x0F18, 0x0F19 },
212 { 0x0F20, 0x0F33 },
213 { 0x0F35, 0x0F35 },
214 { 0x0F37, 0x0F37 },
215 { 0x0F39, 0x0F39 },
216 { 0x0F3E, 0x0F47 },
217 { 0x0F49, 0x0F69 },
218 { 0x0F71, 0x0F84 },
219 { 0x0F86, 0x0F8B },
220 { 0x0F90, 0x0F95 },
221 { 0x0F97, 0x0F97 },
222 { 0x0F99, 0x0FAD },
223 { 0x0FB1, 0x0FB7 },
224 { 0x0FB9, 0x0FB9 },
225 { 0x10A0, 0x10C5 },
226 { 0x10D0, 0x10F6 },
227 { 0x1E00, 0x1E9B },
228 { 0x1EA0, 0x1EF9 },
229 { 0x1F00, 0x1F15 },
230 { 0x1F18, 0x1F1D },
231 { 0x1F20, 0x1F45 },
232 { 0x1F48, 0x1F4D },
233 { 0x1F50, 0x1F57 },
234 { 0x1F59, 0x1F59 },
235 { 0x1F5B, 0x1F5B },
236 { 0x1F5D, 0x1F5D },
237 { 0x1F5F, 0x1F7D },
238 { 0x1F80, 0x1FB4 },
239 { 0x1FB6, 0x1FBC },
240 { 0x1FBE, 0x1FBE },
241 { 0x1FC2, 0x1FC4 },
242 { 0x1FC6, 0x1FCC },
243 { 0x1FD0, 0x1FD3 },
244 { 0x1FD6, 0x1FDB },
245 { 0x1FE0, 0x1FEC },
246 { 0x1FF2, 0x1FF4 },
247 { 0x1FF6, 0x1FFC },
248 { 0x203F, 0x2040 },
249 { 0x207F, 0x207F },
250 { 0x2102, 0x2102 },
251 { 0x2107, 0x2107 },
252 { 0x210A, 0x2113 },
253 { 0x2115, 0x2115 },
254 { 0x2118, 0x211D },
255 { 0x2124, 0x2124 },
256 { 0x2126, 0x2126 },
257 { 0x2128, 0x2128 },
258 { 0x212A, 0x2131 },
259 { 0x2133, 0x2138 },
260 { 0x2160, 0x2182 },
261 { 0x3005, 0x3007 },
262 { 0x3021, 0x3029 },
263 { 0x3041, 0x3093 },
264 { 0x309B, 0x309C },
265 { 0x30A1, 0x30F6 },
266 { 0x30FB, 0x30FC },
267 { 0x3105, 0x312C },
268 { 0x4E00, 0x9FA5 },
269 { 0xAC00, 0xD7A3 },
270 };
271
272 #ifdef DEBUG
273 for (int i = 0; i < sizeof(table) / sizeof(table[0]); i++)
274 {
275 //printf("%x\n", table[i][0]);
276 assert(table[i][0] <= table[i][1]);
277 if (i < sizeof(table) / sizeof(table[0]) - 1)
278 assert(table[i][1] < table[i + 1][0]);
279 }
280 #endif
281
282 if (u > 0xD7A3)
283 goto Lisnot;
284
285 // Binary search
286 int mid;
287 int low;
288 int high;
289
290 low = 0;
291 high = sizeof(table) / sizeof(table[0]) - 1;
292 while (low <= high)
293 {
294 mid = (low + high) >> 1;
295 if (u < table[mid][0])
296 high = mid - 1;
297 else if (u > table[mid][1])
298 low = mid + 1;
299 else
300 goto Lis;
301 }
302
303 Lisnot:
304 #ifdef DEBUG
305 for (int i = 0; i < sizeof(table) / sizeof(table[0]); i++)
306 {
307 assert(u < table[i][0] || u > table[i][1]);
308 }
309 #endif
310 return 0;
311
312 Lis:
313 #ifdef DEBUG
314 for (int i = 0; i < sizeof(table) / sizeof(table[0]); i++)
315 {
316 if (u >= table[i][0] && u <= table[i][1])
317 return 1;
318 }
319 assert(0); // should have been in table
320 #endif
321 return 1;
322 }
323