X-Git-Url: https://pd.if.org/git/?a=blobdiff_plain;f=functions%2Fwchar%2Fwcsrchr.c;fp=functions%2Fwchar%2Fwcsrchr.c;h=396da4f592a995753663fc5d9f5062cf84b1c060;hb=219271fd548949abce8bd75c34dd42e519418fc4;hp=0000000000000000000000000000000000000000;hpb=1cc4363093c919f79eafac209bb5c41548d3f88f;p=pdclib

diff --git a/functions/wchar/wcsrchr.c b/functions/wchar/wcsrchr.c
new file mode 100644
index 0000000..396da4f
--- /dev/null
+++ b/functions/wchar/wcsrchr.c
@@ -0,0 +1,35 @@
+/* $Id$ */
+
+/* wcsrchr( const wchar_t *, wchar_t );
+
+   This file is part of the Public Domain C Library (PDCLib).
+   Permission is granted to use, modify, and / or redistribute at will.
+*/
+
+#include <wchar.h>
+#include <stddef.h>
+
+#ifndef REGTEST
+
+wchar_t *wcsrchr(const wchar_t * haystack, wchar_t needle)
+{
+    wchar_t *found = NULL;
+    while(*haystack) {
+        if(*haystack == needle) found = haystack;
+        haystack++;
+    }
+    return found;
+}
+
+
+#endif
+
+#ifdef TEST
+#include <_PDCLIB_test.h>
+
+int main( void )
+{
+    return TEST_RESULTS;
+}
+
+#endif