]> pd.if.org Git - pdclib.old/blob - functions/wchar/wcscat.c
PDCLIB-8: First phase of intergation of new I/O backend system (with minimal
[pdclib.old] / functions / wchar / wcscat.c
1 /* wcscat( wchar_t *, const wchar_t * )\r
2 \r
3    This file is part of the Public Domain C Library (PDCLib).\r
4    Permission is granted to use, modify, and / or redistribute at will.\r
5 */\r
6 \r
7 #include <wchar.h>\r
8 \r
9 #ifndef REGTEST\r
10 \r
11 wchar_t * wcscat( wchar_t * _PDCLIB_restrict s1, \r
12                   const wchar_t * _PDCLIB_restrict s2 )\r
13 {\r
14     wchar_t * rc = s1;\r
15     if ( *s1 )\r
16     {\r
17         while ( *++s1 );\r
18     }\r
19     while ( (*s1++ = *s2++) );\r
20     return rc;\r
21 }\r
22 \r
23 #endif\r
24 \r
25 #ifdef TEST\r
26 #include <_PDCLIB_test.h>\r
27 \r
28 int main( void )\r
29 {\r
30     wchar_t s[] = L"xx\0xxxxxx";\r
31     TESTCASE( wcscat( s, wabcde ) == s );\r
32     TESTCASE( s[2] == L'a' );\r
33     TESTCASE( s[6] == L'e' );\r
34     TESTCASE( s[7] == L'\0' );\r
35     TESTCASE( s[8] == L'x' );\r
36     s[0] = L'\0';\r
37     TESTCASE( wcscat( s, wabcdx ) == s );\r
38     TESTCASE( s[4] == L'x' );\r
39     TESTCASE( s[5] == L'\0' );\r
40     TESTCASE( wcscat( s, L"\0" ) == s );\r
41     TESTCASE( s[5] == L'\0' );\r
42     TESTCASE( s[6] == L'e' );\r
43     return TEST_RESULTS;\r
44 }\r
45 #endif\r