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

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