Last change
on this file since 586 was
444,
checked in by satin@…, 6 years ago
|
add newlib,libalmos-mkh, restructure shared_syscalls.h and mini-libc
|
File size:
1.6 KB
|
Line | |
---|
1 | #include <wctype.h> |
---|
2 | #include <ctype.h> |
---|
3 | #include <stdio.h> |
---|
4 | #include <string.h> |
---|
5 | #include <newlib.h> |
---|
6 | #include <locale.h> |
---|
7 | #include "check.h" |
---|
8 | |
---|
9 | int main() |
---|
10 | { |
---|
11 | #if !defined(_ELIX_LEVEL) || _ELIX_LEVEL > 1 |
---|
12 | if (_MB_LEN_MAX == 1) |
---|
13 | { |
---|
14 | CHECK (iswalpha(L'a')); |
---|
15 | CHECK (!iswalpha(L'3')); |
---|
16 | CHECK (iswalnum(L'9')); |
---|
17 | CHECK (!iswalnum(L'$')); |
---|
18 | CHECK (iswcntrl(L'\n')); |
---|
19 | CHECK (!iswcntrl(L'#')); |
---|
20 | CHECK (iswdigit(L'2')); |
---|
21 | CHECK (!iswdigit(L'a')); |
---|
22 | CHECK (iswgraph(L'2')); |
---|
23 | CHECK (!iswgraph(L' ')); |
---|
24 | CHECK (iswlower(L'g')); |
---|
25 | CHECK (!iswlower(L'G')); |
---|
26 | CHECK (iswprint(L'*')); |
---|
27 | CHECK (!iswprint(L'\n')); |
---|
28 | CHECK (iswpunct(L',')); |
---|
29 | CHECK (!iswpunct(L'\n')); |
---|
30 | CHECK (iswspace(L'\t')); |
---|
31 | CHECK (!iswspace(L':')); |
---|
32 | CHECK (iswupper(L'G')); |
---|
33 | CHECK (!iswupper(L'g')); |
---|
34 | CHECK (iswxdigit(L'A')); |
---|
35 | CHECK (!iswxdigit(L'g')); |
---|
36 | } |
---|
37 | else |
---|
38 | { |
---|
39 | setlocale (LC_CTYPE, "C-UTF-8"); |
---|
40 | CHECK (iswalpha(0x0967)); |
---|
41 | CHECK (!iswalpha(0x128e)); |
---|
42 | CHECK (iswalnum(0x1d7ce)); |
---|
43 | CHECK (!iswalnum(0x1d800)); |
---|
44 | CHECK (iswcntrl(0x007f)); |
---|
45 | CHECK (!iswcntrl(0x2027)); |
---|
46 | CHECK (iswdigit(L'2')); |
---|
47 | CHECK (!iswdigit(0x0009)); |
---|
48 | CHECK (iswlower(0x03b3)); |
---|
49 | CHECK (!iswlower(0x04aa)); |
---|
50 | CHECK (iswprint(0x0b13)); |
---|
51 | CHECK (!iswprint(0x0ce4)); |
---|
52 | CHECK (iswpunct(0x002d)); |
---|
53 | CHECK (!iswpunct(0x0a84)); |
---|
54 | CHECK (iswspace(0x000a)); |
---|
55 | CHECK (!iswspace(0x2060)); |
---|
56 | CHECK (iswupper(0x01a4)); |
---|
57 | CHECK (!iswupper(0x1e6d)); |
---|
58 | CHECK (iswxdigit(L'A')); |
---|
59 | CHECK (!iswxdigit(0x1f48)); |
---|
60 | } |
---|
61 | #endif |
---|
62 | |
---|
63 | exit (0); |
---|
64 | } |
---|
Note: See
TracBrowser
for help on using the repository browser.