implement additional string.h and wchar.h functions

Signed-off-by: Mattias Andrée <maandree@operamail.com>

2 files changed, 754 insertions, 0 deletions

diff --git a/src/string/new.c b/src/string/new.c
new file mode 100644
index 0000000..2434659
--- /dev/null
+++ b/src/string/new.c
@@ -0,0 +1,418 @@
+/**
+ * slibc — Yet another C library
+ * Copyright © 2015  Mattias Andrée (maandree@member.fsf.org)
+ * 
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ * 
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ * 
+ * You should have received a copy of the GNU General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ */
+#include <string.h>
+
+
+
+size_t strclen(const char* string, int stop) /* slibc: completeness */
+{
+  return (size_t)(strchrnul(string, stop) - string);
+}
+
+size_t strcnlen(const char* string, int stop, size_t maxlen) /* slibc: completeness */
+{
+  const char* end = strnchr(string, stop, maxlen);
+  return end ? (size_t)(end - string) : maxlen;
+}
+
+size_t strstrlen(const char* string, const char* stop) /* slibc: completeness */
+{
+  const char* end = strstr(string, stop);
+  return end ? (size_t)(end - string) : strlen(string);
+}
+
+size_t strstrnlen(const char* string, const char* stop, size_t maxlen) /* slibc: completeness */
+{
+  const char* end = strnstr(string, stop, maxlen);
+  return end ? (size_t)(end - string) : maxlen;
+}
+
+char* (strnchr)(const char* string, int c, size_t maxlen) /* slibc: completeness */
+{
+  for (;;)
+    if (*string == c)
+      return string;
+    else if (!*string++ || !maxlen--)
+      return NULL;
+}
+
+char* (strnchrnul)(const char* string, int c, size_t maxlen) /* slibc+gnu: completeness */
+{
+  for (;; string++)
+    if (*string == c)
+      return string;
+    else if (!*string || !maxlen--)
+      return string;
+}
+
+char* (memcchr)(const char* segment, int c, int stop, size_t size) /* slibc: completeness */
+{
+  char* s = segment;
+  for (;;)
+    if (*s == c)
+      return s;
+    else if ((*s++ == stop) || !size--)
+      return NULL;
+}
+
+char* (strcchr)(const char* string, int c, int stop) /* slibc: completeness */
+{
+  for (;;)
+    if (*string == c)
+      return string;
+    else if (!*string || (*string++ == stop))
+      return NULL;
+}
+
+char* (strcnchr)(const char* string, int c, int stop, size_t maxlen) /* slibc: completeness */
+{
+  for (;;)
+    if (*string == c)
+      return string;
+    else if (!*string || (*string++ == stop) || !maxlen--)
+      return NULL;
+}
+
+char* (strcchrnul)(const char* string, int c, int stop) /* slibc+gnu: completeness */
+{
+  for (;; string++)
+    if (*string == c)
+      return string;
+    else if (!*string || (*string == stop))
+      return string;
+}
+
+char* (strcnchrnul)(const char* string, int c, int stop, size_t maxlen) /* slibc+gnu: completeness */
+{
+  for (;; string++)
+    if (*string == c)
+      return string;
+    else if (!*string || (*string == stop) || !maxlen--)
+      return string;
+}
+
+char* (strnrchr)(const char* string, int c, size_t maxlen) /* slibc: completeness */
+{
+  char* r = NULL;
+  while (maxlen--)
+    if (*string == c)
+      r = string;
+    else if (!*string++)
+      return c ? r : (string - 1);
+}
+
+void* (memcrchr)(const void* segment, int c, int stop, size_t size) /* slibc: completeness */
+{
+  char* r = NULL;
+  for (;; size--)
+    if (*segment == c)
+      r = segment;
+    else if ((*segment == stop) || !size)
+      return r;
+}
+
+char* (strcrchr)(const char* string, int c, int stop) /* slibc: completeness */
+{
+  char* r = NULL;
+  for (;;)
+    if (*string == c)
+      r = string;
+    else if (!*string++)
+      return c ? r : (string - 1);
+    else if (*string == stop)
+      return r;
+}
+
+char* (strcnrchr)(const char* string, int c, int stop, size_t maxlen) /* slibc: completeness */
+{
+  char* r = NULL;
+  while (maxlen--)
+    if (*string == c)
+      r = string;
+    else if (!*string++)
+      return c ? r : (string - 1);
+}
+
+void* (rawmemrchr)(const void* segment, int c, size_t size) /* slibc+gnu: completeness */
+{
+  char* s = segment;
+  for (;;)
+    if (s[--size] == c)
+      return s + size;
+}
+
+void* (rawmemcasemem)(const void* haystack, const void* needle, size_t needle_length) /* slibc */
+{
+  return (memcasemem)(haystack, SIZE_MAX, needle, needle_length);
+}
+
+void* (rawmemmem)(const void* haystack, const void* needle, size_t needle_length) /* slibc */
+{
+  return (memmem)(haystack, SIZE_MAX, needle, needle_length);
+}
+
+void* (memccasemem)(const void* haystack, size_t haystack_length, const void* needle, size_t needle_length, int stop) /* slibc: completeness */
+{
+  const void* p = memchr(haystack, stop, haystack_length);
+  return (memcasemem)(haystack, p ? (size_t)(p - haystack) : haystack_length, needle, needle_length);
+}
+
+void* (memcmem)(const void* haystack, size_t haystack_length, const void* needle, size_t needle_length, int stop) /* slibc: completeness */
+{
+  const void* p = memchr(haystack, stop, haystack_length);
+  return (memmem)(haystack, p ? (size_t)(p - haystack) : haystack_length, needle, needle_length);
+}
+
+char* (strccasestr)(const char* haystack, const char* needle, int stop) /* slibc: completeness */
+{
+  return (memcasemem)(haystack, strclen(haystack, stop), needle, strlen(needle));
+}
+
+char* (strcstr)(const char* haystack, const char* needle, int stop) /* slibc: completeness */
+{
+  return (memmem)(haystack, strclen(haystack, stop), needle, strlen(needle));
+}
+
+char* (strcncasestr)(const char* haystack, const char* needle, int stop, size_t maxlen) /* slibc: completeness */
+{
+  return (memcasemem)(haystack, strcnlen(haystack, stop, maxlen), needle, strlen(needle));
+}
+
+char* (strcnstr)(const char* haystack, const char* needle, int stop, size_t maxlen) /* slibc: completeness */
+{
+  return (memmem)(haystack, strcnlen(haystack, stop, maxlen), needle, strlen(needle));
+}
+
+char* (strpcbrk)(const char* string, const char* skipset) /* slibc: completeness */
+{
+  char set[256];
+  char c;
+  const char* s = string;
+  memset(set, 0, 256 * sizeof(char));
+  while ((c = *skipset++))
+    set[(size_t)c] = 1;
+  while ((c = *s++))
+    if (set[(size_t)c])
+      break;
+  return c ? (s - 1) : NULL;
+}
+
+char* (strpbrknul)(const char* string, const char* stopset) /* slibc */
+{
+  char set[256];
+  char c;
+  const char* s = string;
+  memset(set, 0, 256 * sizeof(char));
+  while ((c = *stopset++))
+    set[(size_t)c] = 1;
+  while ((c = *s++))
+    if (!set[(size_t)c])
+      break;
+  return s - 1;
+}
+
+char* (strpcbrknul)(const char* string, const char* skipset) /* slibc: completeness */
+{
+  char set[256];
+  char c;
+  const char* s = string;
+  memset(set, 0, 256 * sizeof(char));
+  while ((c = *skipset++))
+    set[(size_t)c] = 1;
+  while ((c = *s++))
+    if (set[(size_t)c])
+      break;
+  return s - 1;
+}
+
+char* (strnpbrk)(const char* string, const char* stopset, size_t maxlen) /* slibc: completeness */
+{
+  char set[256];
+  char c;
+  const char* s = string;
+  memset(set, 0, 256 * sizeof(char));
+  while ((c = *stopset++))
+    set[(size_t)c] = 1;
+  while (maxlen-- && ((c = *s++)))
+    if (!set[(size_t)c])
+      break;
+  return c ? (s - 1) : NULL;
+}
+
+char* (strnpcbrk)(const char* string, const char* skipset, size_t maxlen) /* slibc: completeness */
+{
+  char set[256];
+  char c;
+  const char* s = string;
+  memset(set, 0, 256 * sizeof(char));
+  while ((c = *skipset++))
+    set[(size_t)c] = 1;
+  while (maxlen-- && ((c = *s++)))
+    if (set[(size_t)c])
+      break;
+  return c ? (s - 1) : NULL;
+}
+
+char* (strnpbrknul)(const char* string, const char* stopset, size_t maxlen) /* slibc: completeness */
+{
+  char set[256];
+  char c;
+  const char* s = string;
+  memset(set, 0, 256 * sizeof(char));
+  while ((c = *stopset++))
+    set[(size_t)c] = 1;
+  while (maxlen-- && ((c = *s++)))
+    if (!set[(size_t)c])
+      break;
+  return s - 1;
+}
+
+char* (strnpcbrknul)(const char* string, const char* skipset, size_t maxlen) /* slibc: completeness */
+{
+  char set[256];
+  char c;
+  const char* s = string;
+  memset(set, 0, 256 * sizeof(char));
+  while ((c = *skipset++))
+    set[(size_t)c] = 1;
+  while (maxlen-- && ((c = *s++)))
+    if (set[(size_t)c])
+      break;
+  return s - 1;
+}
+
+size_t strnspn(const char* string, const char* skipset, size_t maxlen) /* slibc: completeness */
+{
+  char set[256];
+  char c;
+  const char* s = string;
+  memset(set, 0, 256);
+  while ((c = *skipset++))
+    set[(size_t)c] = 1;
+  for (; maxlen && ((c = *s++)); maxlen--)
+    if (set[(size_t)c])
+      break;
+  return (size_t)(s - !!maxlen - string);
+}
+
+size_t strncspn(const char* string, const char* stopset, size_t maxlen) /* slibc: completeness */
+{
+  char set[256];
+  char c;
+  const char* s = string;
+  memset(set, 0, 256);
+  while ((c = *stopset++))
+    set[(size_t)c] = 1;
+  for (; maxlen && ((c = *s++)); maxlen--)
+    if (!set[(size_t)c])
+      break;
+  return (size_t)(s - !!maxlen - string);
+}
+
+char* strnsep(char** restrict string, const char* restrict delimiters,
+	      size_t* restrict maxlen) /* slibc: completeness */
+{
+  char* r = *string;
+  char* next;
+  if (r == NULL)
+    return NULL;
+  
+  next = strnpbrk(r, delimiters, *maxlen);
+  if (next != NULL)
+    *next++ = 0, *maxlen -= (size_t)(next - r);
+  *string = next;
+  
+  return r;
+}
+
+char* strntok(char* restrict string, const char* restrict delimiters,
+	      char** restrict state, size_t* restrict maxlen) /* slibc: completeness */
+{
+  char* r;
+  if (string == NULL)
+    *state = string;
+  for (;;)
+    {
+      r = strnsep(state, delimiters, maxlen);
+      if (r == NULL)
+	return NULL;
+      if (*r)
+	return r;
+    }
+}
+
+char* (strprbrk)(const char* string, const char* stopset) /* slibc: completeness */
+{
+  char set[256];
+  char c;
+  const char* s = string;
+  const char* r = NULL;
+  memset(set, 0, 256);
+  while ((c = *stopset++))
+    set[(size_t)c] = 1;
+  while ((c = *s++))
+    if (!set[(size_t)c])
+      r = s - 1;
+  return r;
+}
+
+char* (strprcbrk)(const char* string, const char* skipset) /* slibc: completeness */
+{
+  char set[256];
+  char c;
+  const char* s = string;
+  const char* r = NULL;
+  memset(set, 0, 256 * sizeof(char));
+  while ((c = *skipset++))
+    set[(size_t)c] = 1;
+  while ((c = *s++))
+    if (set[(size_t)c])
+      r = s - 1;
+  return r;
+}
+
+char* (strnprbrk)(const char* string, const char* stopset, size_t maxlen) /* slibc: completeness */
+{
+  char set[256];
+  char c;
+  const char* s = string;
+  const char* r = NULL;
+  memset(set, 0, 256 * sizeof(char));
+  while ((c = *stopset++))
+    set[(size_t)c] = 1;
+  while (maxlen-- && ((c = *s++)))
+    if (!set[(size_t)c])
+      r = s - 1;
+  return r;
+}
+
+char* (strnprcbrk)(const char* string, const char* skipset, size_t maxlen) /* slibc: completeness */
+{
+  char set[256];
+  char c;
+  const char* s = string;
+  const char* r = NULL;
+  memset(set, 0, 256 * sizeof(char));
+  while ((c = *skipset++))
+    set[(size_t)c] = 1;
+  while (maxlen-- && ((c = *s++)))
+    if (set[(size_t)c])
+      r = s - 1;
+  return r;
+}
+
diff --git a/src/wchar/new.c b/src/wchar/new.c
new file mode 100644
index 0000000..3f76087
--- /dev/null
+++ b/src/wchar/new.c
@@ -0,0 +1,336 @@
+/**
+ * slibc — Yet another C library
+ * Copyright © 2015  Mattias Andrée (maandree@member.fsf.org)
+ * 
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ * 
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ * 
+ * You should have received a copy of the GNU General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ */
+#include <wchar.h>
+
+
+
+wchar_t* (wmemrchr)(const wchar_t* segment, wchar_t c, size_t size) /* slibc+gnu: completeness */
+{
+  for (;;)
+    if (segment[--size] == c)
+      return segment + size;
+}
+
+wchar_t* (rawwmemcasemem)(const wchar_t* haystack, const wchar_t* needle, size_t needle_length) /* slibc: completeness */
+{
+  return (wmemcasemem)(haystack, SIZE_MAX, needle, needle_length);
+}
+
+wchar_t* (rawwmemmem)(const wchar_t* haystack, const wchar_t* needle, size_t needle_length) /* slibc: completeness */
+{
+  return (wmemmem)(haystack, SIZE_MAX, needle, needle_length);
+}
+
+wchar_t* (wmemccasemem)(const wchar_t* haystack, size_t haystack_length, const wchar_t* needle, size_t needle_length, wchar_t stop) /* slibc: completeness */
+{
+  const wchar_t* p = wmemchr(haystack, stop, haystack_length);
+  return (wmemcasemem)(haystack, p ? (size_t)(p - haystack) : haystack_length, needle, needle_length);
+}
+
+wchar_t* (wmemcmem)(const wchar_t* haystack, size_t haystack_length, const wchar_t* needle, size_t needle_length, wchar_t stop) /* slibc: completeness */
+{
+  const wchar_t* p = wmemchr(haystack, stop, haystack_length);
+  return (wmemmem)(haystack, p ? (size_t)(p - haystack) : haystack_length, needle, needle_length);
+}
+
+wchar_t* (wcsccasestr)(const wchar_t* haystack, const wchar_t* needle, wchar_t stop) /* slibc: completeness */
+{
+  return (wmemcasemem)(haystack, wscclen(haystack, stop), needle, wsclen(needle));
+}
+
+wchar_t* (wcscstr)(const wchar_t* haystack, const wchar_t* needle, wchar_t stop) /* slibc: completeness */
+{
+  return (wmemmem)(haystack, wscclen(haystack, stop), needle, wsclen(needle));
+}
+
+wchar_t* (wcscncasestr)(const wchar_t* haystack, const wchar_t* needle, wchar_t stop, size_t maxlen) /* slibc: completeness */
+{
+  return (wmemcasemem)(haystack, wsccnlen(haystack, stop, maxlen), needle, wsclen(needle));
+}
+
+wchar_t* (wcscnstr)(const wchar_t* haystack, const wchar_t* needle, wchar_t stop, size_t maxlen) /* slibc: completeness */
+{
+  return (wmemmem)(haystack, wsccnlen(haystack, stop, maxlen), needle, wsclen(needle));
+}
+
+size_t wscclen(const wchar_t* string, wchar_t stop) /* slibc: completeness */
+{
+  return (size_t)(wscchrnul(string, stop) - string);
+}
+
+size_t wsccnlen(const wchar_t* string, wchar_t stop, size_t maxlen) /* slibc: completeness */
+{
+  const wchar_t* end = wscnchr(string, stop, maxlen);
+  return end ? (size_t)(end - string) : maxlen;
+}
+
+size_t wscstrlen(const wchar_t* string, const wchar_t* stop) /* slibc: completeness */
+{
+  const wchar_t* end = wscstr(string, stop);
+  return end ? (size_t)(end - string) : wsclen(string);
+}
+
+size_t wscstrnlen(const wchar_t* string, const wchar_t* stop, size_t maxlen) /* slibc: completeness */
+{
+  const wchar_t* end = wscnstr(string, stop, maxlen);
+  return end ? (size_t)(end - string) : maxlen;
+}
+
+wchar_t* (wcsnchr)(const wchar_t* string, wchar_t c, size_t maxlen) /* slibc: completeness */
+{
+  for (;;)
+    if (*string == c)
+      return string;
+    else if (!*string++ || !maxlen--)
+      return NULL;
+}
+
+wchar_t* (wcsnchrnul)(const wchar_t* string, wchar_t c, size_t maxlen) /* slibc+gnu: completeness */
+{
+  for (;; string++)
+    if (*string == c)
+      return string;
+    else if (!*string || !maxlen--)
+      return string;
+}
+
+wchar_t* (wmemcchr)(const wchar_t* segment, wchar_t c, wchar_t stop, size_t size) /* slibc: completeness */
+{
+  wchar_t* s = segment;
+  for (;;)
+    if (*s == c)
+      return s;
+    else if ((*s++ == stop) || !size--)
+      return NULL;
+}
+
+wchar_t* (wcscchr)(const wchar_t* string, wchar_t c, wchar_t stop) /* slibc: completeness */
+{
+  for (;;)
+    if (*string == c)
+      return string;
+    else if (!*string || (*string++ == stop))
+      return NULL;
+}
+
+wchar_t* (wcscnchr)(const wchar_t* string, wchar_t c, wchar_t stop, size_t maxlen) /* slibc: completeness */
+{
+  for (;;)
+    if (*string == c)
+      return string;
+    else if (!*string || (*string++ == stop) || !maxlen--)
+      return NULL;
+}
+
+wchar_t* (wcscchrnul)(const wchar_t* string, wchar_t c, wchar_t stop) /* slibc+gnu: completeness */
+{
+  for (;; string++)
+    if (*string == c)
+      return string;
+    else if (!*string || (*string == stop))
+      return string;
+}
+
+wchar_t* (wcscnchrnul)(const wchar_t* string, wchar_t c, wchar_t stop, size_t maxlen) /* slibc+gnu: completeness */
+{
+  for (;; string++)
+    if (*string == c)
+      return string;
+    else if (!*string || (*string == stop) || !maxlen--)
+      return string;
+}
+
+wchar_t* (wcsnrchr)(const wchar_t* string, wchar_t c, size_t maxlen) /* slibc: completeness */
+{
+  wchar_t* r = NULL;
+  while (maxlen--)
+    if (*string == c)
+      r = string;
+    else if (!*string++)
+      return c ? r : (string - 1);
+}
+
+void* (wmemcrchr)(const void* segment, wchar_t c, wchar_t stop, size_t size) /* slibc: completeness */
+{
+  wchar_t* r = NULL;
+  for (;; size--)
+    if (*segment == c)
+      r = segment;
+    else if ((*segment == stop) || !size)
+      return r;
+}
+
+wchar_t* (wcscrchr)(const wchar_t* string, wchar_t c, wchar_t stop) /* slibc: completeness */
+{
+  wchar_t* r = NULL;
+  for (;;)
+    if (*string == c)
+      r = string;
+    else if (!*string++)
+      return c ? r : (string - 1);
+    else if (*string == stop)
+      return r;
+}
+
+wchar_t* (wcscnrchr)(const wchar_t* string, wchar_t c, wchar_t stop, size_t maxlen) /* slibc: completeness */
+{
+  wchar_t* r = NULL;
+  while (maxlen--)
+    if (*string == c)
+      r = string;
+    else if (!*string++)
+      return c ? r : (string - 1);
+}
+
+wchar_t* wcsnsep(wchar_t** restrict string, const wchar_t* restrict delimiters,
+		 size_t* restrict maxlen) /* slibc: completeness */
+{
+  wchar_t* r = *string;
+  wchar_t* next;
+  if (r == NULL)
+    return NULL;
+  
+  next = wcsnpbrk(r, delimiters, *maxlen);
+  if (next != NULL)
+    *next++ = 0, *maxlen -= (size_t)(next - r);
+  *string = next;
+  
+  return r;
+}
+
+wchar_t* wcsntok(wchar_t* restrict string, const wchar_t* restrict delimiters,
+		 wchar_t** restrict state, size_t* restrict maxlen) /* slibc: completeness */
+{
+  wchar_t* r;
+  if (string == NULL)
+    *state = string;
+  for (;;)
+    {
+      r = wcsnsep(state, delimiters, maxlen);
+      if (r == NULL)
+	return NULL;
+      if (*r)
+	return r;
+    }
+}
+
+wchar_t* (wcspcbrk)(const wchar_t* string, const wchar_t* skipset) /* slibc: completeness */
+{
+  string += wcsspn(string, skipset);
+  return *string ? string : NULL;
+}
+
+wchar_t* (wcsnpbrk)(const wchar_t* string, const wchar_t* stopset, size_t maxlen) /* slibc: completeness */
+{
+  wchar_t s = string;
+  string += wcsncspn(string, stopset, maxlen);
+  return (((size_t)(string - s) < maxlen) && *string) ? string : NULL;
+}
+
+wchar_t* (wcsnpcbrk)(const wchar_t* string, const wchar_t* skipset, size_t maxlen) /* slibc: completeness */
+{
+  wchar_t s = string;
+  string += wcsnspn(string, skipset, maxlen);
+  return (((size_t)(string - s) < maxlen) && *string) ? string : NULL;
+}
+
+wchar_t* (wcspbrknul)(const wchar_t* string, const wchar_t* stopset) /* slibc: completeness */
+{
+  return string + wcscspn(string, stopset);
+}
+
+wchar_t* (wcspcbrknul)(const wchar_t* string, const wchar_t* skipset) /* slibc: completeness */
+{
+  return string + wcsspn(string, skipset);
+}
+
+wchar_t* (wcsnpbrknul)(const wchar_t* string, const wchar_t* stopset, size_t maxlen) /* slibc: completeness */
+{
+  return string + wcscspn(string, stopset, maxlen);
+}
+
+wchar_t* (wcsnpcbrknul)(const wchar_t* string, const wchar_t* skipset, size_t maxlen) /* slibc: completeness */
+{
+  return string + wcsspn(string, skipset, maxlen);
+}
+
+size_t wcsnspn(const wchar_t* string, const wchar_t* skipset, size_t maxlen) /* slibc: completeness */
+{
+  wchar_t* s = string;
+  wchar_t c;
+  for (; maxlen && ((c = *s++)); maxlen--)
+    if (wcschr(skipset, c) == NULL)
+      break;
+  return (size_t)(s - !!maxlen - string);
+}
+
+size_t wcsncspn(const wchar_t* string, const wchar_t* stopset, size_t maxlen) /* slibc: completeness */
+{
+  size_t i, end = wcsnlen(string, maxlen);
+  wchar_t* s;
+  wchar_t c;
+  while ((c = *stopset++))
+    for (i = 0, s = string; i < end; i++, s++)
+      if (*s == c)
+	{
+	  end = (size_t)(s - string);
+	  break;
+	}
+  return end;
+}
+
+wchar_t* (wcsprbrk)(const wchar_t* string, const wchar_t* stopset) /* slibc: completeness */
+{
+  wchar_t* r;
+  int found = 0;
+  while (string)
+    if ((r = wcspbrk(string + 1, stopset)))
+      string = r, found = 1;
+  return found ? string : NULL;
+}
+
+wchar_t* (wcsprcbrk)(const wchar_t* string, const wchar_t* skipset) /* slibc: completeness */
+{
+  wchar_t* r;
+  int found = 0;
+  while (string)
+    if ((r = wcspcbrk(string + 1, skipset)))
+      string = r, found = 1;
+  return found ? string : NULL;
+}
+
+wchar_t* (wcsnprbrk)(const wchar_t* string, const wchar_t* stopset, size_t maxlen) /* slibc: completeness */
+{
+  wchar_t* r;
+  int found = 0;
+  while (string)
+    if ((r = wcsnpbrk(string + 1, stopset, maxlen - 1)))
+      maxlen -= (r - string), string = r, found = 1;
+  return found ? string : NULL;
+}
+
+wchar_t* (wcsnprcbrk)(const wchar_t* string, const wchar_t* skipset, size_t maxlen) /* slibc: completeness */
+{
+  wchar_t* r;
+  int found = 0;
+  while (string)
+    if ((r = wcsnpcbrk(string + 1, skipset, maxlen - 1)))
+      maxlen -= (r - string), string = r, found = 1;
+  return found ? string : NULL;
+}
+