-/* iswdigit( wint_t )\r
-\r
- This file is part of the Public Domain C Library (PDCLib).\r
- Permission is granted to use, modify, and / or redistribute at will.\r
-*/\r
-\r
-#include <wctype.h>\r
-#ifndef REGTEST\r
-#include "_PDCLIB_locale.h"\r
-\r
-int iswdigit( wint_t wc )\r
-{\r
- return iswctype( wc, _PDCLIB_CTYPE_DIGIT );\r
-}\r
-\r
-#endif\r
-\r
-#ifdef TEST\r
-#include "_PDCLIB_test.h"\r
-\r
-int main( void )\r
-{\r
- TESTCASE(iswdigit(L'0'));\r
- TESTCASE(iswdigit(L'1'));\r
- TESTCASE(iswdigit(L'2'));\r
- TESTCASE(iswdigit(L'3'));\r
- TESTCASE(iswdigit(L'4'));\r
- TESTCASE(iswdigit(L'5'));\r
- TESTCASE(iswdigit(L'6'));\r
- TESTCASE(iswdigit(L'7'));\r
- TESTCASE(iswdigit(L'8'));\r
- TESTCASE(iswdigit(L'9'));\r
- TESTCASE(!iswdigit(L'a'));\r
- TESTCASE(!iswdigit(L'b'));\r
- TESTCASE(!iswdigit(L'c'));\r
- TESTCASE(!iswdigit(L'd'));\r
- TESTCASE(!iswdigit(L'e'));\r
- TESTCASE(!iswdigit(L'f'));\r
- TESTCASE(!iswdigit(L'A'));\r
- TESTCASE(!iswdigit(L'B'));\r
- TESTCASE(!iswdigit(L'C'));\r
- TESTCASE(!iswdigit(L'D'));\r
- TESTCASE(!iswdigit(L'E'));\r
- TESTCASE(!iswdigit(L'F'));\r
- TESTCASE(!iswdigit(L'g'));\r
- TESTCASE(!iswdigit(L'G'));\r
- TESTCASE(!iswdigit(L'x'));\r
- TESTCASE(!iswdigit(L'X'));\r
- TESTCASE(!iswdigit(L' '));\r
- return TEST_RESULTS;\r
-}\r
-#endif\r
+/* iswdigit( wint_t )
+
+ This file is part of the Public Domain C Library (PDCLib).
+ Permission is granted to use, modify, and / or redistribute at will.
+*/
+
+#include <wctype.h>
+#ifndef REGTEST
+#include "_PDCLIB_locale.h"
+
+int iswdigit( wint_t wc )
+{
+ return iswctype( wc, _PDCLIB_CTYPE_DIGIT );
+}
+
+#endif
+
+#ifdef TEST
+#include "_PDCLIB_test.h"
+
+int main( void )
+{
+ TESTCASE(iswdigit(L'0'));
+ TESTCASE(iswdigit(L'1'));
+ TESTCASE(iswdigit(L'2'));
+ TESTCASE(iswdigit(L'3'));
+ TESTCASE(iswdigit(L'4'));
+ TESTCASE(iswdigit(L'5'));
+ TESTCASE(iswdigit(L'6'));
+ TESTCASE(iswdigit(L'7'));
+ TESTCASE(iswdigit(L'8'));
+ TESTCASE(iswdigit(L'9'));
+ TESTCASE(!iswdigit(L'a'));
+ TESTCASE(!iswdigit(L'b'));
+ TESTCASE(!iswdigit(L'c'));
+ TESTCASE(!iswdigit(L'd'));
+ TESTCASE(!iswdigit(L'e'));
+ TESTCASE(!iswdigit(L'f'));
+ TESTCASE(!iswdigit(L'A'));
+ TESTCASE(!iswdigit(L'B'));
+ TESTCASE(!iswdigit(L'C'));
+ TESTCASE(!iswdigit(L'D'));
+ TESTCASE(!iswdigit(L'E'));
+ TESTCASE(!iswdigit(L'F'));
+ TESTCASE(!iswdigit(L'g'));
+ TESTCASE(!iswdigit(L'G'));
+ TESTCASE(!iswdigit(L'x'));
+ TESTCASE(!iswdigit(L'X'));
+ TESTCASE(!iswdigit(L' '));
+ return TEST_RESULTS;
+}
+#endif