Return to Regexp.c CVS log

Up to [Research Unix] / researchv10no / cmd / cfront / libstring

Annotation of researchv10no/cmd/cfront/libstring/Regexp.c, revision 1.1.1.1

1.1       root        1: #include "Regexp.h"
                      2: 
                      3: Regexp::Regexp(const char *p)
                      4: {
                      5:        prog = regcomp(p);
                      6:        for (int i=0; i<NSUBEXP; i++) offset[i] = len[i] = -1;
                      7: }
                      8: 
                      9: Regexp::Regexp(const String& s1)
                     10: {
                     11:        const String    x1 = s1 + (char)0;
                     12:        prog = regcomp(x1.d->start);
                     13:        for (int i=0; i<NSUBEXP; i++) offset[i] = len[i] = -1;
                     14: }
                     15: 
                     16: int
                     17: Regexp::exec(const String& s1)
                     18: {
                     19:        subject = s1;
                     20:        const String    x1 = s1 + (char)0;
                     21:        register char*  p = x1.d->start;
                     22:        if (!prog) return 0;
                     23:        int     ans = regexec(prog, p);
                     24:        for (int i=0; i<NSUBEXP; i++)
                     25:                if (prog->startp[i]) {
                     26:                        offset[i] = prog->startp[i] - p;
                     27:                        len[i] = prog->endp[i] - prog->startp[i];
                     28:                } else offset[i] = len[i] = -1;
                     29:        return ans;
                     30: }
                     31: 
                     32: int
                     33: Regexp::result(unsigned& start, unsigned& length, unsigned i)
                     34: {
                     35:        if (i>=NSUBEXP || offset[i] == -1) return 0;
                     36:        start = offset[i];
                     37:        length = len[i];
                     38:        return 1;
                     39: }
                     40: 
                     41: extern void free(char *);      // since prog is allocated by malloc()
                     42: 
                     43: Regexp::~Regexp()
                     44: {
                     45:        free((char *)prog);
                     46: }

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