]> pd.if.org Git - pdclib.old/blob - functions/string/strchr.c
PDCLIB-2 PDCLIB-9: Single character conversions for <uchar.h>
[pdclib.old] / functions / string / strchr.c
1 /* $Id$ */
2
3 /* strchr( const char *, int )
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 char * strchr( const char * s, int c )
14 {
15     do
16     {
17         if ( *s == (char) c )
18         {
19             return (char *) s;
20         }
21     } while ( *s++ );
22     return NULL;
23 }
24
25 #endif
26
27 #ifdef TEST
28 #include <_PDCLIB_test.h>
29
30 int main( void )
31 {
32     char abccd[] = "abccd";
33     TESTCASE( strchr( abccd, 'x' ) == NULL );
34     TESTCASE( strchr( abccd, 'a' ) == &abccd[0] );
35     TESTCASE( strchr( abccd, 'd' ) == &abccd[4] );
36     TESTCASE( strchr( abccd, '\0' ) == &abccd[5] );
37     TESTCASE( strchr( abccd, 'c' ) == &abccd[2] );
38     return TEST_RESULTS;
39 }
40 #endif