1 files changed, 105 insertions, 0 deletions
diff --git a/newlib/libc/ctype/iswblank.c b/newlib/libc/ctype/iswblank.c
new file mode 100644
index 000000000..069b73703
--- /dev/null
+++ b/newlib/libc/ctype/iswblank.c
@@ -0,0 +1,105 @@
+/* Copyright (c) 2002 Red Hat Incorporated.
+   All rights reserved.
+
+   Redistribution and use in source and binary forms, with or without
+   modification, are permitted provided that the following conditions are met:
+
+     Redistributions of source code must retain the above copyright
+     notice, this list of conditions and the following disclaimer.
+
+     Redistributions in binary form must reproduce the above copyright
+     notice, this list of conditions and the following disclaimer in the
+     documentation and/or other materials provided with the distribution.
+
+     The name of Red Hat Incorporated may not be used to endorse
+     or promote products derived from this software without specific
+     prior written permission.
+
+   THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+   AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+   IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+   ARE DISCLAIMED.  IN NO EVENT SHALL RED HAT INCORPORATED BE LIABLE FOR ANY
+   DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+   (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+   LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+   ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+   (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS   
+   SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+*/
+
+/*
+FUNCTION
+	<<iswblank>>---wide-character blank test
+
+INDEX
+	iswblank
+
+ANSI_SYNOPSIS
+	#include <wctype.h>
+	int iswblank(wint_t <[c]>);
+
+TRAD_SYNOPSIS
+	#include <wctype.h>
+	int iswblank(<[c]>)
+	wint_t <[c]>;
+
+DESCRIPTION
+<<iswblank>> is a function which classifies wide-character values that
+are categorized as blank.
+
+RETURNS
+<<iswblank>> returns non-zero if <[c]> is a blank wide-character.
+
+PORTABILITY
+<<iswblank>> is C99.
+
+No supporting OS subroutines are required.
+*/
+#include <_ansi.h>
+#include <wctype.h>
+#include <ctype.h>
+#include <string.h>
+#include "local.h"
+
+int
+_DEFUN(iswblank,(c), wint_t c)
+{
+  int unicode = 0;
+  if (__lc_ctype[0] == 'C' && __lc_ctype[1] == '\0')
+    {
+      unicode = 0;
+      /* fall-through */ 
+    }
+#ifdef MB_CAPABLE
+  else if (!strcmp (__lc_ctype, "C-JIS"))
+    {
+      c = __jp2uc (c, JP_JIS);
+      unicode = 1;
+    }
+  else if (!strcmp (__lc_ctype, "C-SJIS"))
+    {
+      c = __jp2uc (c, JP_JIS);
+      unicode = 1;
+    }
+  else if (!strcmp (__lc_ctype, "C-EUCJP"))
+    {
+      c = __jp2uc (c, JP_JIS);
+      unicode = 1;
+    }
+  else if (!strcmp (__lc_ctype, "C-UTF-8"))
+    {
+      unicode = 1;
+    }
+
+  if (unicode)
+    {
+      return (c == 0x0009 || c == 0x0020 || c == 0x1680 ||
+              (c >= 0x2000 && c <= 0x2006) ||
+              (c >= 0x2008 && c <= 0x200b) ||
+              c == 0x205f || c == 0x3000);
+    }
+#endif /* MB_CAPABLE */
+
+  return (c < 0x100 ? isblank (c) : 0);
+}
+