pd.if.org Git - pdclib.old/blob - functions/wchar/wcsncat.c

   1 /* wcsncat( wchar_t *, const wchar_t *, size_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 * wcsncat( wchar_t * _PDCLIB_restrict s1, \r
  12                    const wchar_t * _PDCLIB_restrict s2, \r
  13                    size_t n )\r
  14 {\r
  15     wchar_t * rc = s1;\r
  16     while ( *s1 )\r
  17     {\r
  18         ++s1;\r
  19     }\r
  20     while ( n && ( *s1++ = *s2++ ) )\r
  21     {\r
  22         --n;\r
  23     }\r
  24     if ( n == 0 )\r
  25     {\r
  26         *s1 = '\0';\r
  27     }\r
  28     return rc;\r
  29 }\r
  30 \r
  31 #endif\r
  32 \r
  33 #ifdef TEST\r
  34 #include <_PDCLIB_test.h>\r
  35 \r
  36 int main( void )\r
  37 {\r
  38     wchar_t s[] = L"xx\0xxxxxx";\r
  39     TESTCASE( wcsncat( s, wabcde, 10 ) == s );\r
  40     TESTCASE( s[2] == L'a' );\r
  41     TESTCASE( s[6] == L'e' );\r
  42     TESTCASE( s[7] == L'\0' );\r
  43     TESTCASE( s[8] == L'x' );\r
  44     s[0] = L'\0';\r
  45     TESTCASE( wcsncat( s, wabcdx, 10 ) == s );\r
  46     TESTCASE( s[4] == L'x' );\r
  47     TESTCASE( s[5] == L'\0' );\r
  48     TESTCASE( wcsncat( s, L"\0", 10 ) == s );\r
  49     TESTCASE( s[5] == L'\0' );\r
  50     TESTCASE( s[6] == L'e' );\r
  51     TESTCASE( wcsncat( s, wabcde, 0 ) == s );\r
  52     TESTCASE( s[5] == L'\0' );\r
  53     TESTCASE( s[6] == L'e' );\r
  54     TESTCASE( wcsncat( s, wabcde, 3 ) == s );\r
  55     TESTCASE( s[5] == L'a' );\r
  56     TESTCASE( s[7] == L'c' );\r
  57     TESTCASE( s[8] == L'\0' );\r
  58     return TEST_RESULTS;\r
  59 }\r
  60 #endif\r