Return to span.c CVS log

Up to [MW Coherent from dump] / coherent / g / usr / lib / misc

Annotation of coherent/g/usr/lib/misc/span.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * One or more characters matching some criterion.
        !             3:  * span(s1, matcher, fin)
        !             4:  */
        !             5: #include <stdio.h>
        !             6: char *
        !             7: span(s1, matcher, fin)
        !             8: register char *s1;
        !             9: int (*matcher)();
        !            10: register char **fin;
        !            11: {
        !            12:        char c;
        !            13:        char *start = s1;
        !            14: 
        !            15:        for (*fin = NULL; (c = *s1++) && (*matcher)(c); *fin = s1)
        !            16:                ;
        !            17:        if (NULL == *fin)
        !            18:                return (NULL);
        !            19:        return (start);
        !            20: }
        !            21: #ifdef TEST
        !            22: #include <ctype.h>
        !            23: #include "local_misc.h"
        !            24: 
        !            25: /* eliminate under ansi */
        !            26: digit(s)
        !            27: char s;
        !            28: {
        !            29:        return (isdigit(s));
        !            30: }
        !            31: 
        !            32: main()
        !            33: {
        !            34:        char s1[80], *fin;
        !            35: 
        !            36:        for (;;) {
        !            37:                ask(s1, "s1");
        !            38:                if (!strcmp(s1, "quit"))
        !            39:                        exit(0);
        !            40:                if (NULL == span(s1, digit, &fin))
        !            41:                        printf("No digits\n");
        !            42:                else {
        !            43:                        *fin = '\0';
        !            44:                        printf("%s\n", s1);
        !            45:                }
        !            46:        }
        !            47: }
        !            48: #endif

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