Return to match.c CVS log

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

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

1.1     ! root        1: /* 
        !             2:  * match(string, pattern, fin)
        !             3:  * returns start of pattern in string or NULL if no match.
        !             4:  * pattern:
        !             5:  *     [c1c2...cn-cm]  class of characters.
        !             6:  *     ?               any character.
        !             7:  *     *               any # of any character.
        !             8:  *     ^               beginning of string
        !             9:  *     $               end of string
        !            10:  * if patttern is found fin is aimed past the end of the pattern.
        !            11:  */
        !            12: #include "local_misc.h"
        !            13: 
        !            14: /*
        !            15:  * amatch is used internally by match.
        !            16:  */
        !            17: static char *
        !            18: amatch(s, p, pfc, start, fin)
        !            19: register char *s, *p;
        !            20: int pfc;       /* past first char */
        !            21: char **start, **fin;
        !            22: {
        !            23:        char *save;
        !            24:        register c1;
        !            25:        int c2;
        !            26: 
        !            27:        if (NULL == *start)
        !            28:                *start = s;
        !            29:        for (;c2 = *p++; pfc = 1) {
        !            30:                c1 = *s++;
        !            31:                *fin = s;
        !            32: 
        !            33:                switch (c2) {
        !            34:                case '^':
        !            35:                        if (pfc)
        !            36:                                return (*start = NULL);
        !            37:                        s--;
        !            38:                        continue;
        !            39: 
        !            40:                case '$':
        !            41:                        if (c1)
        !            42:                                *start = NULL;
        !            43:                        return (*start);
        !            44: 
        !            45:                case '[':
        !            46:                        for (;;) {
        !            47:                                c2 = *p++;
        !            48:                                if (c2=='\0' || c2==']')
        !            49:                                        return (*start = NULL);
        !            50:                                if (c2 == '\\' && *p == '-')
        !            51:                                        c2 = *p++;
        !            52:                                if (c2 == c1)
        !            53:                                        break;
        !            54:                                if (*p == '-')
        !            55:                                        if (c1<=*++p && c1>=c2)
        !            56:                                                break;
        !            57:                        }
        !            58:                        while (*p && *p++!=']')
        !            59:                                ;
        !            60: 
        !            61:                case '?':
        !            62:                        if (c1)
        !            63:                                continue;
        !            64:                        return (*start = NULL);
        !            65: 
        !            66:                case '*':
        !            67:                        if (!*p)
        !            68:                                return (*start);
        !            69:                        s--;
        !            70:                        save = *start;
        !            71:                        do {
        !            72:                                if (NULL != amatch(s, p, 1, start, fin))
        !            73:                                        return (*start);
        !            74:                                *start = save;
        !            75:                        } while (*s++ != '\0');
        !            76:                        return (*start = NULL);
        !            77: 
        !            78:                case '\\':
        !            79:                        if ((c2 = *p++) == '\0')
        !            80:                                return (*start = NULL);
        !            81:                }
        !            82:                if (c1 != c2)
        !            83:                        return (*start = NULL);
        !            84:        }
        !            85:        return (*start);
        !            86: }
        !            87: 
        !            88: char *
        !            89: match(s, p, fin)
        !            90: register char *s, *p;
        !            91: char **fin;
        !            92: {
        !            93:        char *start;
        !            94:        int pfc;
        !            95: 
        !            96:        start = *fin = NULL;
        !            97:        for (pfc = 0; *s; pfc = 1)
        !            98:                if (NULL != amatch(s++, p, pfc, &start, fin))
        !            99:                        return (start);
        !           100:        return (*fin = start);
        !           101: }
        !           102: 
        !           103: /*
        !           104:  * This pnmatch takes advantage of amatch.
        !           105:  */
        !           106: pnmatch(s1, pat, flag)
        !           107: char *s1, *pat;
        !           108: {
        !           109:        char *start, *fin;
        !           110: 
        !           111:        if (flag)
        !           112:                return (NULL != match(s1, pat, &fin));
        !           113:        return ((NULL != amatch(s1, pat, 0, &start, &fin)) && !*fin);
        !           114: }
        !           115: 
        !           116: #ifdef TEST
        !           117: main()
        !           118: {
        !           119:        char s1[80], pat[80], *start, *fin;
        !           120: 
        !           121:        for (;;) {
        !           122:                ask(s1, "String  ");
        !           123:                if (!strcmp(s1, "quit"))
        !           124:                        exit(0);
        !           125:                ask(pat, "Pattern");
        !           126:                if (NULL == (start = match(s1, pat, &fin)))
        !           127:                        printf("Not Found\n");
        !           128:                else {
        !           129:                        *fin = '\0';
        !           130:                        printf("%s\n", start);
        !           131:                }
        !           132:        }
        !           133: }
        !           134: #endif

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