OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [newlib-1.18.0/] [newlib-1.18.0-or32-1.0rc1/] [newlib/] [testsuite/] [newlib.wctype/] [twctype.c] - Blame information for rev 345

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 207 jeremybenn
#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(0x0ce2));
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
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.