PDCLIB-2: Pure wide character functions

[pdclib] / opt / mincoll / wcsxfrm.c

diff --git a/opt/mincoll/wcsxfrm.c b/opt/mincoll/wcsxfrm.c
new file mode 100644 (file)
index 0000000..7430567
--- /dev/null
+++ b/opt/mincoll/wcsxfrm.c
@@ -0,0 +1,28 @@
+/* wcsxfrm( char *, const char *, size_t )\r
+\r
+   This file is part of the Public Domain C Library (PDCLib).\r
+   Permission is granted to use, modify, and / or redistribute at will.\r
+*/\r
+\r
+#include <wchar.h>\r
+\r
+#ifndef REGTEST\r
+\r
+/* See notes on wcscoll. */\r
+size_t wcsxfrm( wchar_t * _PDCLIB_restrict s1, const wchar_t * _PDCLIB_restrict s2, size_t n )\r
+{\r
+    wcsncpy(s1, s2, n);\r
+    return wcslen(s2);\r
+}\r
+\r
+#endif\r
+\r
+#ifdef TEST\r
+#include <_PDCLIB_test.h>\r
+\r
+int main( void )\r
+{\r
+    return TEST_RESULTS;\r
+}\r
+#endif\r
+\r