]> pd.if.org Git - pdclib/blob - functions/string/strncat.c
Fixed multiple inclusion issue.
[pdclib] / functions / string / strncat.c
1 /* $Id$ */
2
3 /* Release $Name$ */
4
5 /* strncat( char *, const char *, size_t )
6
7    This file is part of the Public Domain C Library (PDCLib).
8    Permission is granted to use, modify, and / or redistribute at will.
9 */
10
11 #include <string.h>
12
13 #ifndef REGTEST
14
15 char * strncat( char * _PDCLIB_restrict s1, const char * _PDCLIB_restrict s2, size_t n )
16 {
17     char * rc = s1;
18     while ( *s1 )
19     {
20         ++s1;
21     }
22     while ( n && ( *s1++ = *s2++ ) )
23     {
24         --n;
25     }
26     if ( n == 0 )
27     {
28         *s1 = '\0';
29     }
30     return rc;
31 }
32
33 #endif
34
35 #ifdef TEST
36 #include <_PDCLIB_test.h>
37
38 int main()
39 {
40     char s[] = "xx\0xxxxxx";
41     BEGIN_TESTS;
42     TESTCASE( strncat( s, abcde, 10 ) == s );
43     TESTCASE( s[2] == 'a' );
44     TESTCASE( s[6] == 'e' );
45     TESTCASE( s[7] == '\0' );
46     TESTCASE( s[8] == 'x' );
47     s[0] = '\0';
48     TESTCASE( strncat( s, abcdx, 10 ) == s );
49     TESTCASE( s[4] == 'x' );
50     TESTCASE( s[5] == '\0' );
51     TESTCASE( strncat( s, "\0", 10 ) == s );
52     TESTCASE( s[5] == '\0' );
53     TESTCASE( s[6] == 'e' );
54     TESTCASE( strncat( s, abcde, 0 ) == s );
55     TESTCASE( s[5] == '\0' );
56     TESTCASE( s[6] == 'e' );
57     TESTCASE( strncat( s, abcde, 3 ) == s );
58     TESTCASE( s[5] == 'a' );
59     TESTCASE( s[7] == 'c' );
60     TESTCASE( s[8] == '\0' );
61     return TEST_RESULTS;
62 }
63 #endif