]> pd.if.org Git - pdclib.old/blob - functions/string/strxfrm.c
PDCLIB-2 PDCLIB-9: Single character conversions for <uchar.h>
[pdclib.old] / functions / string / strxfrm.c
1 /* $Id$ */
2
3 /* strxfrm( char *, const char *, size_t )
4
5    This file is part of the Public Domain C Library (PDCLib).
6    Permission is granted to use, modify, and / or redistribute at will.
7 */
8
9 #include <string.h>
10
11 #ifndef REGTEST
12
13 #include <_PDCLIB_locale.h>
14
15 size_t strxfrm( char * _PDCLIB_restrict s1, const char * _PDCLIB_restrict s2, size_t n )
16 {
17     _PDCLIB_ctype_t *ctype = _PDCLIB_threadlocale()->_CType;
18     size_t len = strlen( s2 );
19     if ( len < n )
20     {
21         /* Cannot use strncpy() here as the filling of s1 with '\0' is not part
22            of the spec.
23         */
24         while ( n-- && ( *s1++ = ctype[(unsigned char)*s2++].collation ) );
25     }
26     return len;
27 }
28
29 #endif
30
31 #ifdef TEST
32 #include <_PDCLIB_test.h>
33
34 int main( void )
35 {
36     char s[] = "xxxxxxxxxxx";
37     TESTCASE( strxfrm( NULL, "123456789012", 0 ) == 12 );
38     TESTCASE( strxfrm( s, "123456789012", 12 ) == 12 );
39     /*
40     The following test case is true in *this* implementation, but doesn't have to.
41     TESTCASE( s[0] == 'x' );
42     */
43     TESTCASE( strxfrm( s, "1234567890", 11 ) == 10 );
44     TESTCASE( s[0] == '1' );
45     TESTCASE( s[9] == '0' );
46     TESTCASE( s[10] == '\0' );
47     return TEST_RESULTS;
48 }
49 #endif
50