Last change
on this file since 444 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
|
Rev | Line | |
---|
[444] | 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.