13 /* MS's CRT header defines all that, and we actually implement that */
33 #define upalpha ('A' - 'a')
36 const unsigned short _ctype
[] = {
37 0, /* <EOF>, 0xFFFF */
38 _CONTROL
, /* CTRL+@, 0x00 */
39 _CONTROL
, /* CTRL+A, 0x01 */
40 _CONTROL
, /* CTRL+B, 0x02 */
41 _CONTROL
, /* CTRL+C, 0x03 */
42 _CONTROL
, /* CTRL+D, 0x04 */
43 _CONTROL
, /* CTRL+E, 0x05 */
44 _CONTROL
, /* CTRL+F, 0x06 */
45 _CONTROL
, /* CTRL+G, 0x07 */
46 _CONTROL
, /* CTRL+H, 0x08 */
47 _CONTROL
| _SPACE
, /* CTRL+I, 0x09 */
48 _CONTROL
| _SPACE
, /* CTRL+J, 0x0a */
49 _CONTROL
| _SPACE
, /* CTRL+K, 0x0b */
50 _CONTROL
| _SPACE
, /* CTRL+L, 0x0c */
51 _CONTROL
| _SPACE
, /* CTRL+M, 0x0d */
52 _CONTROL
, /* CTRL+N, 0x0e */
53 _CONTROL
, /* CTRL+O, 0x0f */
54 _CONTROL
, /* CTRL+P, 0x10 */
55 _CONTROL
, /* CTRL+Q, 0x11 */
56 _CONTROL
, /* CTRL+R, 0x12 */
57 _CONTROL
, /* CTRL+S, 0x13 */
58 _CONTROL
, /* CTRL+T, 0x14 */
59 _CONTROL
, /* CTRL+U, 0x15 */
60 _CONTROL
, /* CTRL+V, 0x16 */
61 _CONTROL
, /* CTRL+W, 0x17 */
62 _CONTROL
, /* CTRL+X, 0x18 */
63 _CONTROL
, /* CTRL+Y, 0x19 */
64 _CONTROL
, /* CTRL+Z, 0x1a */
65 _CONTROL
, /* CTRL+[, 0x1b */
66 _CONTROL
, /* CTRL+\, 0x1c */
67 _CONTROL
, /* CTRL+], 0x1d */
68 _CONTROL
, /* CTRL+^, 0x1e */
69 _CONTROL
, /* CTRL+_, 0x1f */
70 _SPACE
| _BLANK
, /* ` ', 0x20 */
71 _PUNCT
, /* `!', 0x21 */
73 _PUNCT
, /* `#', 0x23 */
74 _PUNCT
, /* `$', 0x24 */
75 _PUNCT
, /* `%', 0x25 */
76 _PUNCT
, /* `&', 0x26 */
78 _PUNCT
, /* `(', 0x28 */
79 _PUNCT
, /* `)', 0x29 */
80 _PUNCT
, /* `*', 0x2a */
81 _PUNCT
, /* `+', 0x2b */
82 _PUNCT
, /* `,', 0x2c */
83 _PUNCT
, /* `-', 0x2d */
84 _PUNCT
, /* `.', 0x2e */
85 _PUNCT
, /* `/', 0x2f */
86 _DIGIT
| _HEX
, /* `0', 0x30 */
87 _DIGIT
| _HEX
, /* `1', 0x31 */
88 _DIGIT
| _HEX
, /* `2', 0x32 */
89 _DIGIT
| _HEX
, /* `3', 0x33 */
90 _DIGIT
| _HEX
, /* `4', 0x34 */
91 _DIGIT
| _HEX
, /* `5', 0x35 */
92 _DIGIT
| _HEX
, /* `6', 0x36 */
93 _DIGIT
| _HEX
, /* `7', 0x37 */
94 _DIGIT
| _HEX
, /* `8', 0x38 */
95 _DIGIT
| _HEX
, /* `9', 0x39 */
96 _PUNCT
, /* `:', 0x3a */
97 _PUNCT
, /* `;', 0x3b */
98 _PUNCT
, /* `<', 0x3c */
99 _PUNCT
, /* `=', 0x3d */
100 _PUNCT
, /* `>', 0x3e */
101 _PUNCT
, /* `?', 0x3f */
102 _PUNCT
, /* `@', 0x40 */
103 _UPPER
| _HEX
, /* `A', 0x41 */
104 _UPPER
| _HEX
, /* `B', 0x42 */
105 _UPPER
| _HEX
, /* `C', 0x43 */
106 _UPPER
| _HEX
, /* `D', 0x44 */
107 _UPPER
| _HEX
, /* `E', 0x45 */
108 _UPPER
| _HEX
, /* `F', 0x46 */
109 _UPPER
, /* `G', 0x47 */
110 _UPPER
, /* `H', 0x48 */
111 _UPPER
, /* `I', 0x49 */
112 _UPPER
, /* `J', 0x4a */
113 _UPPER
, /* `K', 0x4b */
114 _UPPER
, /* `L', 0x4c */
115 _UPPER
, /* `M', 0x4d */
116 _UPPER
, /* `N', 0x4e */
117 _UPPER
, /* `O', 0x4f */
118 _UPPER
, /* `P', 0x50 */
119 _UPPER
, /* `Q', 0x51 */
120 _UPPER
, /* `R', 0x52 */
121 _UPPER
, /* `S', 0x53 */
122 _UPPER
, /* `T', 0x54 */
123 _UPPER
, /* `U', 0x55 */
124 _UPPER
, /* `V', 0x56 */
125 _UPPER
, /* `W', 0x57 */
126 _UPPER
, /* `X', 0x58 */
127 _UPPER
, /* `Y', 0x59 */
128 _UPPER
, /* `Z', 0x5a */
129 _PUNCT
, /* `[', 0x5b */
131 _PUNCT
, /* `]', 0x5d */
132 _PUNCT
, /* `^', 0x5e */
133 _PUNCT
, /* `_', 0x5f */
135 _LOWER
| _HEX
, /* `a', 0x61 */
136 _LOWER
| _HEX
, /* `b', 0x62 */
137 _LOWER
| _HEX
, /* `c', 0x63 */
138 _LOWER
| _HEX
, /* `d', 0x64 */
139 _LOWER
| _HEX
, /* `e', 0x65 */
140 _LOWER
| _HEX
, /* `f', 0x66 */
141 _LOWER
, /* `g', 0x67 */
142 _LOWER
, /* `h', 0x68 */
143 _LOWER
, /* `i', 0x69 */
144 _LOWER
, /* `j', 0x6a */
145 _LOWER
, /* `k', 0x6b */
146 _LOWER
, /* `l', 0x6c */
147 _LOWER
, /* `m', 0x6d */
148 _LOWER
, /* `n', 0x6e */
149 _LOWER
, /* `o', 0x6f */
150 _LOWER
, /* `p', 0x70 */
151 _LOWER
, /* `q', 0x71 */
152 _LOWER
, /* `r', 0x72 */
153 _LOWER
, /* `s', 0x73 */
154 _LOWER
, /* `t', 0x74 */
155 _LOWER
, /* `u', 0x75 */
156 _LOWER
, /* `v', 0x76 */
157 _LOWER
, /* `w', 0x77 */
158 _LOWER
, /* `x', 0x78 */
159 _LOWER
, /* `y', 0x79 */
160 _LOWER
, /* `z', 0x7a */
161 _PUNCT
, /* `{', 0x7b */
162 _PUNCT
, /* `|', 0x7c */
163 _PUNCT
, /* `}', 0x7d */
164 _PUNCT
, /* `~', 0x7e */
296 const unsigned short _wctype
[] = {
297 0, /* <EOF>, 0xFFFF */
298 _CONTROL
, /* CTRL+@, 0x00 */
299 _CONTROL
, /* CTRL+A, 0x01 */
300 _CONTROL
, /* CTRL+B, 0x02 */
301 _CONTROL
, /* CTRL+C, 0x03 */
302 _CONTROL
, /* CTRL+D, 0x04 */
303 _CONTROL
, /* CTRL+E, 0x05 */
304 _CONTROL
, /* CTRL+F, 0x06 */
305 _CONTROL
, /* CTRL+G, 0x07 */
306 _CONTROL
, /* CTRL+H, 0x08 */
307 _BLANK
| _CONTROL
| _SPACE
, /* CTRL+I, 0x09 */
308 _CONTROL
| _SPACE
, /* CTRL+J, 0x0a */
309 _CONTROL
| _SPACE
, /* CTRL+K, 0x0b */
310 _CONTROL
| _SPACE
, /* CTRL+L, 0x0c */
311 _CONTROL
| _SPACE
, /* CTRL+M, 0x0d */
312 _CONTROL
, /* CTRL+N, 0x0e */
313 _CONTROL
, /* CTRL+O, 0x0f */
314 _CONTROL
, /* CTRL+P, 0x10 */
315 _CONTROL
, /* CTRL+Q, 0x11 */
316 _CONTROL
, /* CTRL+R, 0x12 */
317 _CONTROL
, /* CTRL+S, 0x13 */
318 _CONTROL
, /* CTRL+T, 0x14 */
319 _CONTROL
, /* CTRL+U, 0x15 */
320 _CONTROL
, /* CTRL+V, 0x16 */
321 _CONTROL
, /* CTRL+W, 0x17 */
322 _CONTROL
, /* CTRL+X, 0x18 */
323 _CONTROL
, /* CTRL+Y, 0x19 */
324 _CONTROL
, /* CTRL+Z, 0x1a */
325 _CONTROL
, /* CTRL+[, 0x1b */
326 _CONTROL
, /* CTRL+\, 0x1c */
327 _CONTROL
, /* CTRL+], 0x1d */
328 _CONTROL
, /* CTRL+^, 0x1e */
329 _CONTROL
, /* CTRL+_, 0x1f */
330 _SPACE
| _BLANK
, /* ` ', 0x20 */
331 _PUNCT
, /* `!', 0x21 */
333 _PUNCT
, /* `#', 0x23 */
334 _PUNCT
, /* `$', 0x24 */
335 _PUNCT
, /* `%', 0x25 */
336 _PUNCT
, /* `&', 0x26 */
338 _PUNCT
, /* `(', 0x28 */
339 _PUNCT
, /* `)', 0x29 */
340 _PUNCT
, /* `*', 0x2a */
341 _PUNCT
, /* `+', 0x2b */
342 _PUNCT
, /* `,', 0x2c */
343 _PUNCT
, /* `-', 0x2d */
344 _PUNCT
, /* `.', 0x2e */
345 _PUNCT
, /* `/', 0x2f */
346 _DIGIT
| _HEX
, /* `0', 0x30 */
347 _DIGIT
| _HEX
, /* `1', 0x31 */
348 _DIGIT
| _HEX
, /* `2', 0x32 */
349 _DIGIT
| _HEX
, /* `3', 0x33 */
350 _DIGIT
| _HEX
, /* `4', 0x34 */
351 _DIGIT
| _HEX
, /* `5', 0x35 */
352 _DIGIT
| _HEX
, /* `6', 0x36 */
353 _DIGIT
| _HEX
, /* `7', 0x37 */
354 _DIGIT
| _HEX
, /* `8', 0x38 */
355 _DIGIT
| _HEX
, /* `9', 0x39 */
356 _PUNCT
, /* `:', 0x3a */
357 _PUNCT
, /* `;', 0x3b */
358 _PUNCT
, /* `<', 0x3c */
359 _PUNCT
, /* `=', 0x3d */
360 _PUNCT
, /* `>', 0x3e */
361 _PUNCT
, /* `?', 0x3f */
362 _PUNCT
, /* `@', 0x40 */
363 0x0100 | _UPPER
| _HEX
, /* `A', 0x41 */
364 0x0100 | _UPPER
| _HEX
, /* `B', 0x42 */
365 0x0100 | _UPPER
| _HEX
, /* `C', 0x43 */
366 0x0100 | _UPPER
| _HEX
, /* `D', 0x44 */
367 0x0100 | _UPPER
| _HEX
, /* `E', 0x45 */
368 0x0100 | _UPPER
| _HEX
, /* `F', 0x46 */
369 0x0100 | _UPPER
, /* `G', 0x47 */
370 0x0100 | _UPPER
, /* `H', 0x48 */
371 0x0100 | _UPPER
, /* `I', 0x49 */
372 0x0100 | _UPPER
, /* `J', 0x4a */
373 0x0100 | _UPPER
, /* `K', 0x4b */
374 0x0100 | _UPPER
, /* `L', 0x4c */
375 0x0100 | _UPPER
, /* `M', 0x4d */
376 0x0100 | _UPPER
, /* `N', 0x4e */
377 0x0100 | _UPPER
, /* `O', 0x4f */
378 0x0100 | _UPPER
, /* `P', 0x50 */
379 0x0100 | _UPPER
, /* `Q', 0x51 */
380 0x0100 | _UPPER
, /* `R', 0x52 */
381 0x0100 | _UPPER
, /* `S', 0x53 */
382 0x0100 | _UPPER
, /* `T', 0x54 */
383 0x0100 | _UPPER
, /* `U', 0x55 */
384 0x0100 | _UPPER
, /* `V', 0x56 */
385 0x0100 | _UPPER
, /* `W', 0x57 */
386 0x0100 | _UPPER
, /* `X', 0x58 */
387 0x0100 | _UPPER
, /* `Y', 0x59 */
388 0x0100 | _UPPER
, /* `Z', 0x5a */
389 _PUNCT
, /* `[', 0x5b */
391 _PUNCT
, /* `]', 0x5d */
392 _PUNCT
, /* `^', 0x5e */
393 _PUNCT
, /* `_', 0x5f */
395 0x0100 | _LOWER
| _HEX
, /* `a', 0x61 */
396 0x0100 | _LOWER
| _HEX
, /* `b', 0x62 */
397 0x0100 | _LOWER
| _HEX
, /* `c', 0x63 */
398 0x0100 | _LOWER
| _HEX
, /* `d', 0x64 */
399 0x0100 | _LOWER
| _HEX
, /* `e', 0x65 */
400 0x0100 | _LOWER
| _HEX
, /* `f', 0x66 */
401 0x0100 | _LOWER
, /* `g', 0x67 */
402 0x0100 | _LOWER
, /* `h', 0x68 */
403 0x0100 | _LOWER
, /* `i', 0x69 */
404 0x0100 | _LOWER
, /* `j', 0x6a */
405 0x0100 | _LOWER
, /* `k', 0x6b */
406 0x0100 | _LOWER
, /* `l', 0x6c */
407 0x0100 | _LOWER
, /* `m', 0x6d */
408 0x0100 | _LOWER
, /* `n', 0x6e */
409 0x0100 | _LOWER
, /* `o', 0x6f */
410 0x0100 | _LOWER
, /* `p', 0x70 */
411 0x0100 | _LOWER
, /* `q', 0x71 */
412 0x0100 | _LOWER
, /* `r', 0x72 */
413 0x0100 | _LOWER
, /* `s', 0x73 */
414 0x0100 | _LOWER
, /* `t', 0x74 */
415 0x0100 | _LOWER
, /* `u', 0x75 */
416 0x0100 | _LOWER
, /* `v', 0x76 */
417 0x0100 | _LOWER
, /* `w', 0x77 */
418 0x0100 | _LOWER
, /* `x', 0x78 */
419 0x0100 | _LOWER
, /* `y', 0x79 */
420 0x0100 | _LOWER
, /* `z', 0x7a */
421 _PUNCT
, /* `{', 0x7b */
422 _PUNCT
, /* `|', 0x7c */
423 _PUNCT
, /* `}', 0x7d */
424 _PUNCT
, /* `~', 0x7e */
458 _BLANK
| _SPACE
, /* 0xa0 */
476 _PUNCT
| _DIGIT
, /* 0xb2 */
477 _PUNCT
| _DIGIT
, /* 0xb3 */
483 _PUNCT
| _DIGIT
, /* 0xb9 */
490 0x0100 | _UPPER
, /* 0xc0 */
491 0x0100 | _UPPER
, /* 0xc1 */
492 0x0100 | _UPPER
, /* 0xc2 */
493 0x0100 | _UPPER
, /* 0xc3 */
494 0x0100 | _UPPER
, /* 0xc4 */
495 0x0100 | _UPPER
, /* 0xc5 */
496 0x0100 | _UPPER
, /* 0xc6 */
497 0x0100 | _UPPER
, /* 0xc7 */
498 0x0100 | _UPPER
, /* 0xc8 */
499 0x0100 | _UPPER
, /* 0xc9 */
500 0x0100 | _UPPER
, /* 0xca */
501 0x0100 | _UPPER
, /* 0xcb */
502 0x0100 | _UPPER
, /* 0xcc */
503 0x0100 | _UPPER
, /* 0xcd */
504 0x0100 | _UPPER
, /* 0xce */
505 0x0100 | _UPPER
, /* 0xcf */
506 0x0100 | _UPPER
, /* 0xd0 */
507 0x0100 | _UPPER
, /* 0xd1 */
508 0x0100 | _UPPER
, /* 0xd2 */
509 0x0100 | _UPPER
, /* 0xd3 */
510 0x0100 | _UPPER
, /* 0xd4 */
511 0x0100 | _UPPER
, /* 0xd5 */
512 0x0100 | _UPPER
, /* 0xd6 */
514 0x0100 | _UPPER
, /* 0xd8 */
515 0x0100 | _UPPER
, /* 0xd9 */
516 0x0100 | _UPPER
, /* 0xda */
517 0x0100 | _UPPER
, /* 0xdb */
518 0x0100 | _UPPER
, /* 0xdc */
519 0x0100 | _UPPER
, /* 0xdd */
520 0x0100 | _UPPER
, /* 0xde */
521 0x0100 | _LOWER
, /* 0xdf */
522 0x0100 | _LOWER
, /* 0xe0 */
523 0x0100 | _LOWER
, /* 0xe1 */
524 0x0100 | _LOWER
, /* 0xe2 */
525 0x0100 | _LOWER
, /* 0xe3 */
526 0x0100 | _LOWER
, /* 0xe4 */
527 0x0100 | _LOWER
, /* 0xe5 */
528 0x0100 | _LOWER
, /* 0xe6 */
529 0x0100 | _LOWER
, /* 0xe7 */
530 0x0100 | _LOWER
, /* 0xe8 */
531 0x0100 | _LOWER
, /* 0xe9 */
532 0x0100 | _LOWER
, /* 0xea */
533 0x0100 | _LOWER
, /* 0xeb */
534 0x0100 | _LOWER
, /* 0xec */
535 0x0100 | _LOWER
, /* 0xed */
536 0x0100 | _LOWER
, /* 0xee */
537 0x0100 | _LOWER
, /* 0xef */
538 0x0100 | _LOWER
, /* 0xf0 */
539 0x0100 | _LOWER
, /* 0xf1 */
540 0x0100 | _LOWER
, /* 0xf2 */
541 0x0100 | _LOWER
, /* 0xf3 */
542 0x0100 | _LOWER
, /* 0xf4 */
543 0x0100 | _LOWER
, /* 0xf5 */
544 0x0100 | _LOWER
, /* 0xf6 */
546 0x0100 | _LOWER
, /* 0xf8 */
547 0x0100 | _LOWER
, /* 0xf9 */
548 0x0100 | _LOWER
, /* 0xfa */
549 0x0100 | _LOWER
, /* 0xfb */
550 0x0100 | _LOWER
, /* 0xfc */
551 0x0100 | _LOWER
, /* 0xfd */
552 0x0100 | _LOWER
, /* 0xfe */
553 0x0100 | _LOWER
/* 0xff */
556 const unsigned short *_pctype
= _ctype
+ 1;
557 const unsigned short *_pwctype
= _wctype
+ 1;
559 extern const unsigned short wine_wctype_table
[];
564 const unsigned short **__p__pwctype(void)
569 const unsigned short* __cdecl
__pwctype_func(void)
575 int __cdecl
_isctype (int c
, int ctypeFlags
)
577 return (_pctype
[(unsigned char)(c
& 0xFF)] & ctypeFlags
);
580 /*********************************************************************
581 * _isctype_l (MSVCRT.@)
583 int __cdecl
_isctype_l(int c
, int type
, _locale_t locale
)
585 MSVCRT_pthreadlocinfo locinfo
;
588 locinfo
= get_locinfo();
590 locinfo
= ((MSVCRT__locale_t
)locale
)->locinfo
;
592 if (c
>= -1 && c
<= 255)
593 return locinfo
->pctype
[c
] & type
;
595 if (locinfo
->mb_cur_max
!= 1 && c
> 0)
597 /* FIXME: Is there a faster way to do this? */
599 char convert
[3], *pconv
= convert
;
601 if (locinfo
->pctype
[(UINT
)c
>> 8] & _LEADBYTE
)
602 *pconv
++ = (UINT
)c
>> 8;
606 if (GetStringTypeExA(locinfo
->lc_handle
[LC_CTYPE
],
607 CT_CTYPE1
, convert
, convert
[1] ? 2 : 1, &typeInfo
))
608 return typeInfo
& type
;
613 int __cdecl
_isctype (int c
, int ctypeFlags
)
615 return _isctype_l(c
, ctypeFlags
, NULL
);
617 #endif /* _LIBCNT_ */
624 return(_isctype(c
, _ALPHA
));
632 return(_isctype(c
, _ALPHA
| _DIGIT
));
638 int iswalnum(wint_t c
)
640 return iswctype(c
, _ALPHA
| _DIGIT
);
648 return ((unsigned char)c
<= 0x7f);
654 int iswascii(wint_t c
)
664 return(_isctype(c
, _CONTROL
));
672 return (c
< 127 && (isalnum(c
) || (c
== '_')));
680 return (c
< 127 && (isalpha(c
) || (c
== '_')));
688 return(_isctype(c
, _DIGIT
));
696 return (_isctype (c
, _PUNCT
| _ALPHA
| _DIGIT
));
704 return (_isctype (c
, _LOWER
));
712 return (_isctype (c
, _BLANK
| _PUNCT
| _ALPHA
| _DIGIT
));
720 return (_isctype (c
, _PUNCT
));
728 return (_isctype (c
, _SPACE
));
736 return (_isctype (c
, _UPPER
));
744 return (_isctype (c
, _HEX
));
751 int iswalpha(wint_t c
)
753 return (iswctype (c
, _ALPHA
));
759 int iswcntrl(wint_t c
)
761 return iswctype(c
, _CONTROL
);
767 int iswdigit(wint_t c
)
769 return (iswctype (c
, _DIGIT
));
775 int iswgraph(wint_t c
)
777 return iswctype(c
,_PUNCT
| _ALPHA
| _DIGIT
);
783 int iswprint(wint_t c
)
785 return iswctype((unsigned short)c
,_BLANK
| _PUNCT
| _ALPHA
| _DIGIT
);
792 int iswpunct(wint_t c
)
794 return iswctype(c
, _PUNCT
);
800 int iswlower(wint_t c
)
802 return (iswctype (c
, _LOWER
));
808 int iswupper(wint_t c
)
810 return iswctype(c
, _UPPER
);
817 int iswspace(wint_t c
)
819 return (iswctype (c
, _SPACE
));
825 int iswxdigit(wint_t c
)
827 return (iswctype (c
, _HEX
));
836 return((unsigned int)(c
) & 0x7f);
844 if (_isctype (c
, _UPPER
))
845 return (c
- upalpha
);
854 if (_isctype (c
, _LOWER
))
855 return (c
+ upalpha
);
864 if (_isctype (c
, _UPPER
))
865 return (c
- upalpha
);
874 if (_isctype (c
, _LOWER
))
875 return (c
+ upalpha
);
882 wint_t towlower(wint_t c
)
884 if (iswctype (c
, _UPPER
))
885 return (c
- upalpha
);
892 wint_t towupper(wint_t c
)
894 if (iswctype (c
, _LOWER
))
895 return (c
+ upalpha
);