Return to egcw.c CVS log

Up to [Research Unix] / researchv10no / cmd / gre

Annotation of researchv10no/cmd/gre/egcw.c, revision 1.1

1.1     ! root        1: #include       "re.h"
        !             2: #include       "lre.h"
        !             3: #include       "hdr.h"
        !             4: 
        !             5: static altlist(Expr*, unsigned char *);
        !             6: static word(Expr*, unsigned char*);
        !             7: static re_cw *pat;
        !             8: 
        !             9: re_cw *
        !            10: re_recw(re_re *r, unsigned char *map)
        !            11: {
        !            12:        unsigned char buf[20000];
        !            13:        register Expr *e, *root = r->root;
        !            14: 
        !            15:        if(root->type != EOP)
        !            16:                return(0);
        !            17:        if(root->l->type != Cat)
        !            18:                return(0);
        !            19:        if(root->l->l->type != Star)
        !            20:                return(0);
        !            21:        if(root->l->l->l->type != Dot)
        !            22:                return(0);
        !            23:        e = root->l->r;
        !            24:        pat = re_cwinit(map);
        !            25:        if(altlist(e, buf) == 0)
        !            26:                return(0);
        !            27:        re_cwcomp(pat);
        !            28:        return(pat);
        !            29: }
        !            30: 
        !            31: static
        !            32: altlist(Expr *e, unsigned char *buf)
        !            33: {
        !            34:        if(e->type == Alternate)
        !            35:                return(altlist(e->l, buf) && altlist(e->r, buf));
        !            36:        return(word(e, buf));
        !            37: }
        !            38: 
        !            39: static unsigned char *p;
        !            40: 
        !            41: static
        !            42: word(Expr *e, unsigned char *buf)
        !            43: {
        !            44:        if(buf)
        !            45:                p = buf;
        !            46:        if(e->type == Cat){
        !            47:                if(word(e->l, (unsigned char *)0) == 0)
        !            48:                        return(0);
        !            49:                if(word(e->r, (unsigned char *)0) == 0)
        !            50:                        return(0);
        !            51:        } else if(e->type == Literal)
        !            52:                *p++ = e->lit;
        !            53:        else
        !            54:                return(0);
        !            55:        if(buf)
        !            56:                re_cwadd(pat, buf, p);
        !            57:        return(1);
        !            58: }
        !            59: 

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