Return to strspn.c CVS log

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

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

1.1       root        1: /*     @(#)strspn.c    1.2     */
                      2: /*LINTLIBRARY*/
                      3: /*
                      4:  * Return the number of characters in the maximum leading segment
                      5:  * of string which consists solely of characters from charset.
                      6:  */
                      7: int
                      8: strspn(string, charset)
                      9: char   *string;
                     10: register char  *charset;
                     11: {
                     12:        register char *p, *q;
                     13: 
                     14:        for(q=string; *q != '\0'; ++q) {
                     15:                for(p=charset; *p != '\0' && *p != *q; ++p)
                     16:                        ;
                     17:                if(*p == '\0')
                     18:                        break;
                     19:        }
                     20:        return(q-string);
                     21: }

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