Return to strtok.c CVS log

Up to [Research Unix] / researchv10no / cmd / prefer / libux3

Annotation of researchv10no/cmd/prefer/libux3/strtok.c, revision 1.1.1.1

1.1       root        1: /*LINTLIBRARY*/
                      2: /*
                      3:  * uses strpbrk and strspn to break string into tokens on
                      4:  * sequentially subsequent calls.  returns NULL at end.
                      5:  * `subsequent' calls are calls with first argument NULL.
                      6:  */
                      7: 
                      8: #define        NULL    (char *) 0
                      9: 
                     10: char *
                     11: strtok(string, sepset)
                     12: char   *string, *sepset;
                     13: {
                     14:        int     strspn();
                     15:        char    *strpbrk();
                     16:        register char   *p, *q, *r;
                     17:        static  char    *savept;
                     18: 
                     19:        if(string == NULL)
                     20:                p = savept;
                     21:        else
                     22:                p = string;
                     23:        if(p == 0)
                     24:                return(NULL);
                     25:        q = p + strspn(p, sepset);
                     26:        if(*q == '\0')
                     27:                return(NULL);
                     28:        if((r = strpbrk(q, sepset)) == NULL)
                     29:                savept = 0;
                     30:        else {
                     31:                *r = '\0';
                     32:                p = r + strspn(r, sepset);
                     33:                savept = (p > r)? ++p: ++r;
                     34:        }
                     35:        return(q);
                     36: }

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