1 files changed, 70 insertions, 0 deletions
diff --git a/newlib/libc/ctype/iswctype.c b/newlib/libc/ctype/iswctype.c
new file mode 100644
index 000000000..fbf5da7be
--- /dev/null
+++ b/newlib/libc/ctype/iswctype.c
@@ -0,0 +1,70 @@
+/*
+FUNCTION
+	<<iswctype>>---extensible wide-character test
+
+INDEX
+	iswctype
+
+ANSI_SYNOPSIS
+	#include <wctype.h>
+	int iswctype(wint_t <[c]>, wctype_t <[desc]>);
+
+TRAD_SYNOPSIS
+	#include <wctype.h>
+	int iswctype(<[c]>, <[desc]>)
+	wint_t <[c]>;
+	wctype_t <[desc]>;
+
+DESCRIPTION
+<<iswctype>> is a function which classifies wide-character values using the
+wide-character test specified by <[desc]>.
+
+RETURNS
+<<iswctype>> returns non-zero if and only if <[c]> matches the test specified by <[desc]>.
+If <[desc]> is unknown, zero is returned.
+
+PORTABILITY
+<<iswctype>> is C99.
+
+No supporting OS subroutines are required.
+*/
+#include <_ansi.h>
+#include <wctype.h>
+#include "local.h"
+
+int
+_DEFUN(iswctype,(c, desc), wint_t c _AND wctype_t desc)
+{
+  switch (desc)
+    {
+    case WC_ALNUM:
+      return iswalnum (c);
+    case WC_ALPHA:
+      return iswalpha (c);
+    case WC_BLANK:
+      return iswblank (c);
+    case WC_CNTRL:
+      return iswcntrl (c);
+    case WC_DIGIT:
+      return iswdigit (c);
+    case WC_GRAPH:
+      return iswgraph (c);
+    case WC_LOWER:
+      return iswlower (c);
+    case WC_PRINT:
+      return iswprint (c);
+    case WC_PUNCT:
+      return iswpunct (c);
+    case WC_SPACE:
+      return iswspace (c);
+    case WC_UPPER:
+      return iswupper (c);
+    case WC_XDIGIT:
+      return iswxdigit (c);
+    default:
+    }
+
+  /* otherwise unknown */
+  return 0;
+}
+