Return to strtok.c CVS log

Up to [Research Unix] / researchv9 / libc / gen

Annotation of researchv9/libc/gen/strtok.c, revision 1.1.1.1

1.1       root        1: /*     @(#)strtok.c    1.2     */
                      2: /*     3.0 SID #       1.2     */
                      3: /*LINTLIBRARY*/
                      4: /*
                      5:  * uses strpbrk and strspn to break string into tokens on
                      6:  * sequentially subsequent calls.  returns NULL when no
                      7:  * non-separator characters remain.
                      8:  * `subsequent' calls are calls with first argument NULL.
                      9:  */
                     10: 
                     11: #define        NULL    (char*)0
                     12: 
                     13: extern int strspn();
                     14: extern char *strpbrk();
                     15: 
                     16: char *
                     17: strtok(string, sepset)
                     18: char   *string, *sepset;
                     19: {
                     20:        register char   *p, *q, *r;
                     21:        static char     *savept;
                     22: 
                     23:        /*first or subsequent call*/
                     24:        p = (string == NULL)? savept: string;
                     25: 
                     26:        if(p == 0)              /* return if no tokens remaining */
                     27:                return(NULL);
                     28: 
                     29:        q = p + strspn(p, sepset);      /* skip leading separators */
                     30: 
                     31:        if(*q == '\0')          /* return if no tokens remaining */
                     32:                return(NULL);
                     33: 
                     34:        if((r = strpbrk(q, sepset)) == NULL)    /* move past token */
                     35:                savept = 0;     /* indicate this is last token */
                     36:        else {
                     37:                *r = '\0';
                     38:                savept = ++r;
                     39:        }
                     40:        return(q);
                     41: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.