pd.if.org Git - pdclib/blob - functions/wctype/iswdigit.c

   1 /* iswdigit( wint_t )\r
   2 \r
   3    This file is part of the Public Domain C Library (PDCLib).\r
   4    Permission is granted to use, modify, and / or redistribute at will.\r
   5 */\r
   6 \r
   7 #include <wctype.h>\r
   8 #ifndef REGTEST\r
   9 #include "_PDCLIB_locale.h"\r
  10 \r
  11 int iswdigit( wint_t wc )\r
  12 {\r
  13     return iswctype( wc, _PDCLIB_CTYPE_DIGIT );\r
  14 }\r
  15 \r
  16 #endif\r
  17 \r
  18 #ifdef TEST\r
  19 #include "_PDCLIB_test.h"\r
  20 \r
  21 int main( void )\r
  22 {\r
  23     TESTCASE(iswdigit(L'0'));\r
  24     TESTCASE(iswdigit(L'1'));\r
  25     TESTCASE(iswdigit(L'2'));\r
  26     TESTCASE(iswdigit(L'3'));\r
  27     TESTCASE(iswdigit(L'4'));\r
  28     TESTCASE(iswdigit(L'5'));\r
  29     TESTCASE(iswdigit(L'6'));\r
  30     TESTCASE(iswdigit(L'7'));\r
  31     TESTCASE(iswdigit(L'8'));\r
  32     TESTCASE(iswdigit(L'9'));\r
  33     TESTCASE(!iswdigit(L'a'));\r
  34     TESTCASE(!iswdigit(L'b'));\r
  35     TESTCASE(!iswdigit(L'c'));\r
  36     TESTCASE(!iswdigit(L'd'));\r
  37     TESTCASE(!iswdigit(L'e'));\r
  38     TESTCASE(!iswdigit(L'f'));\r
  39     TESTCASE(!iswdigit(L'A'));\r
  40     TESTCASE(!iswdigit(L'B'));\r
  41     TESTCASE(!iswdigit(L'C'));\r
  42     TESTCASE(!iswdigit(L'D'));\r
  43     TESTCASE(!iswdigit(L'E'));\r
  44     TESTCASE(!iswdigit(L'F'));\r
  45     TESTCASE(!iswdigit(L'g'));\r
  46     TESTCASE(!iswdigit(L'G'));\r
  47     TESTCASE(!iswdigit(L'x'));\r
  48     TESTCASE(!iswdigit(L'X'));\r
  49     TESTCASE(!iswdigit(L' '));\r
  50     return TEST_RESULTS;\r
  51 }\r
  52 #endif\r