]> pd.if.org Git - pdclib/blob - functions/string/strtok.c
31359208d1d4b9342d99fe6452742d6043fd135d
[pdclib] / functions / string / strtok.c
1 /* $Id$ */
2
3 /* Release $Name$ */
4
5 /* strtok( char *, const char * )
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 <_PDCLIB_aux.h>
12 #include <string.h>
13
14 char * strtok( char * _PDCLIB_restrict s1, const char * _PDCLIB_restrict s2 )
15 {
16     static char * tmp = NULL;
17     const char * p = s2;
18     size_t len;
19
20     if ( s1 != NULL )
21     {
22         /* new string */
23         tmp = s1;
24     }
25     else
26     {
27         /* old string continued */
28         if ( tmp == NULL )
29         {
30             /* No old string, no new string, nothing to do */
31             return NULL;
32         }
33         s1 = tmp;
34     }
35
36     /* skipping leading s2 characters */
37     while ( *p && *s1 )
38     {
39         if ( *s1 == *p )
40         {
41             /* found seperator; skip and start over */
42             ++s1;
43             p = s2;
44             continue;
45         }
46         ++p;
47     }
48
49     if ( ! *s1 )
50     {
51         /* no more to parse */
52         return ( tmp = NULL );
53     }
54
55     /* skipping non-s2 characters */
56     tmp = s1;
57     while ( *tmp )
58     {
59         p = s2;
60         while ( *p )
61         {
62             if ( *tmp == *p++ )
63             {
64                 /* found seperator; overwrite with '\0', position tmp, return */
65                 *tmp++ = '\0';
66                 return s1;
67             }
68         }
69         ++tmp;
70     }
71
72     /* parsed to end of string */
73     return ( tmp = NULL );
74 }
75
76 #warning Test driver missing.