newlib: wide char support

git-svn-id: svn://kolibrios.org@6607 a494cfbc-eb01-0410-851d-a64ba20cac60

contrib/sdk/sources/newlib/libc/stdlib/wcstombs_r.c

@@ -0,0 +1,48 @@
+#include <stdlib.h>
+#include <wchar.h>
+#include "local.h"
+
+size_t
+_DEFUN (_wcstombs_r, (reent, s, pwcs, n, state),
+        struct _reent *r    _AND         
+        char          *__restrict s    _AND
+        const wchar_t *__restrict pwcs _AND
+        size_t         n    _AND
+        mbstate_t     *state)
+{
+  char *ptr = s;
+  size_t max = n;
+  char buff[8];
+  int i, bytes, num_to_copy;
+
+  if (s == NULL)
+    {
+      size_t num_bytes = 0;
+      while (*pwcs != 0)
+	{
+	  bytes = __wctomb (r, buff, *pwcs++, __locale_charset (), state);
+	  if (bytes == -1)
+	    return -1;
+	  num_bytes += bytes;
+	}
+      return num_bytes;
+    }
+  else
+    {
+      while (n > 0)
+        {
+          bytes = __wctomb (r, buff, *pwcs, __locale_charset (), state);
+          if (bytes == -1)
+            return -1;
+          num_to_copy = (n > bytes ? bytes : (int)n);
+          for (i = 0; i < num_to_copy; ++i)
+            *ptr++ = buff[i];
+          
+          if (*pwcs == 0x00)
+            return ptr - s - (n >= bytes);
+          ++pwcs;
+          n -= num_to_copy;
+        }
+      return max;
+    }
+}