]> pd.if.org Git - pdclib/blob - functions/string/strtok.c
Merged PDPCLIB and Therx code.
[pdclib] / functions / string / strtok.c
1 // ----------------------------------------------------------------------------
2 // $Id$
3 // ----------------------------------------------------------------------------
4 // Public Domain C Library - http://pdclib.sourceforge.net
5 // This code is Public Domain. Use, modify, and redistribute at will.
6 // ----------------------------------------------------------------------------
7
8 char * strtok( char * restrict s1, const char * restrict s2 ) { /* TODO */ };
9
10 /* PDPC code - unreviewed
11 {
12     static char *old = NULL;
13     char *p;
14     size_t len;
15     size_t remain;
16     
17     if (s1 != NULL) old = s1;
18     if (old == NULL) return (NULL);
19     p = old;
20     len = strspn(p, s2);
21     remain = strlen(p);
22     if (remain <= len) { old = NULL; return (NULL); }
23     p += len;
24     len = strcspn(p, s2);
25     remain = strlen(p);
26     if (remain <= len) { old = NULL; return (p); }
27     *(p + len) = '\0';
28     old = p + len + 1;
29     return (p);
30 }
31 */