From 8d9c48f56456289def97bd955a0af136b379756a Mon Sep 17 00:00:00 2001
From: Owen Shepherd <owen.shepherd@e43.eu>
Date: Sat, 16 Mar 2013 18:17:35 +0000
Subject: [PATCH] PDCLIB-3 Add wctype(3)

---
 functions/wctype/wctype.c | 110 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 110 insertions(+)
 create mode 100644 functions/wctype/wctype.c

diff --git a/functions/wctype/wctype.c b/functions/wctype/wctype.c
new file mode 100644
index 0000000..faca09e
--- /dev/null
+++ b/functions/wctype/wctype.c
@@ -0,0 +1,110 @@
+/* wctype( const char * )
+
+   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 <string.h>
+#include <_PDCLIB_locale.h>
+
+wctype_t wctype( const char * property )
+{
+    if(property) switch(property[0])
+    {
+        case 'a':
+            if(strcmp(property, "alpha") == 0) {
+                return _PDCLIB_CTYPE_ALPHA;
+            } else if(strcmp(property, "alnum") == 0) {
+                return _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_DIGIT;
+            } else return 0;
+
+        case 'b':
+            if(strcmp(property, "blank") == 0) {
+                return _PDCLIB_CTYPE_BLANK;
+            } else return 0;
+
+        case 'c':
+            if(strcmp(property, "cntrl") == 0) {
+                return _PDCLIB_CTYPE_CNTRL;
+            } else return 0;
+
+        case 'd':
+            if(strcmp(property, "digit") == 0) {
+                return _PDCLIB_CTYPE_DIGIT;
+            } else return 0;
+
+        case 'g':
+            if(strcmp(property, "graph") == 0) {
+                return _PDCLIB_CTYPE_GRAPH;
+            } else return 0;
+
+        case 'l':
+            if(strcmp(property, "lower") == 0) {
+                return _PDCLIB_CTYPE_LOWER;
+            } else return 0;
+
+        case 'p':
+            if(strcmp(property, "print") == 0) {
+                return _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_SPACE;
+            } else if(strcmp(property, "punct") == 0) {
+                return _PDCLIB_CTYPE_PUNCT;
+            } else return 0;
+
+        case 's':
+            if(strcmp(property, "space") == 0) {
+                return _PDCLIB_CTYPE_SPACE;
+            } else return 0;
+
+        case 'u':
+            if(strcmp(property, "upper") == 0) {
+                return _PDCLIB_CTYPE_UPPER;
+            } else return 0;
+
+        case 'x':
+            if(strcmp(property, "xdigit") == 0) {
+                return _PDCLIB_CTYPE_XDIGT;
+            } else return 0;
+    }
+    return 0;
+}
+
+#endif
+
+#ifdef TEST
+#include <_PDCLIB_test.h>
+
+int main( void )
+{
+    TESTCASE(wctype("")   == 0);
+    TESTCASE_NOREG(wctype(NULL) == 0); // mingw libc crashes on this
+
+    TESTCASE(wctype("alpha")  != 0);
+    TESTCASE(wctype("alnum")  != 0);
+    TESTCASE(wctype("blank")  != 0);
+    TESTCASE(wctype("cntrl")  != 0);
+    TESTCASE(wctype("digit")  != 0);
+    TESTCASE(wctype("graph")  != 0);
+    TESTCASE(wctype("lower")  != 0);
+    TESTCASE(wctype("print")  != 0);
+    TESTCASE(wctype("punct")  != 0);
+    TESTCASE(wctype("space")  != 0);
+    TESTCASE(wctype("upper")  != 0);
+    TESTCASE(wctype("xdigit") != 0);
+
+    TESTCASE_NOREG(wctype("alpha")  == _PDCLIB_CTYPE_ALPHA);
+    TESTCASE_NOREG(wctype("alnum")  == _PDCLIB_CTYPE_ALPHA | _PDCLIB_CTYPE_DIGIT);
+    TESTCASE_NOREG(wctype("blank")  == _PDCLIB_CTYPE_BLANK);
+    TESTCASE_NOREG(wctype("cntrl")  == _PDCLIB_CTYPE_CNTRL);
+    TESTCASE_NOREG(wctype("digit")  == _PDCLIB_CTYPE_DIGIT);
+    TESTCASE_NOREG(wctype("graph")  == _PDCLIB_CTYPE_GRAPH);
+    TESTCASE_NOREG(wctype("lower")  == _PDCLIB_CTYPE_LOWER);
+    TESTCASE_NOREG(wctype("print")  == _PDCLIB_CTYPE_GRAPH | _PDCLIB_CTYPE_SPACE);
+    TESTCASE_NOREG(wctype("punct")  == _PDCLIB_CTYPE_PUNCT);
+    TESTCASE_NOREG(wctype("space")  == _PDCLIB_CTYPE_SPACE);
+    TESTCASE_NOREG(wctype("upper")  == _PDCLIB_CTYPE_UPPER);
+    TESTCASE_NOREG(wctype("xdigit") == _PDCLIB_CTYPE_XDIGT);
+    return TEST_RESULTS;
+}
+#endif
-- 
2.40.0