diff options
author | stanton <stanton@noemail.net> | 1999-06-17 19:30:24 (GMT) |
---|---|---|
committer | stanton <stanton@noemail.net> | 1999-06-17 19:30:24 (GMT) |
commit | 7952509ed0ee39aa465ec918e69903ec1a18b08e (patch) | |
tree | 12cb78e0f616e3bb360eafc126717bad52f22606 /generic/regc_lex.c | |
parent | d3cb5b9ddf6ef9582150d97020063f03bdc8d4b0 (diff) | |
download | tcl-7952509ed0ee39aa465ec918e69903ec1a18b08e.zip tcl-7952509ed0ee39aa465ec918e69903ec1a18b08e.tar.gz tcl-7952509ed0ee39aa465ec918e69903ec1a18b08e.tar.bz2 |
* generic/regcomp.c: lint
* tests/reg.test:
* generic/regex.h:
* generic/regc_lex.c: Added REG_BOSONLY flag to allow Expect to
iterate through a string an only find matches that start at the
current position within the string.
FossilOrigin-Name: 12e2267e228caa36ded5dd8f95f90884cc182563
Diffstat (limited to 'generic/regc_lex.c')
-rw-r--r-- | generic/regc_lex.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/generic/regc_lex.c b/generic/regc_lex.c index d07fe72..e20b222 100644 --- a/generic/regc_lex.c +++ b/generic/regc_lex.c @@ -283,6 +283,12 @@ struct vars *v; /* remember flavor of last token */ v->lasttype = v->nexttype; + /* REG_BOSONLY */ + if (v->nexttype == EMPTY && (v->cflags®_BOSONLY)) { + /* at start of a REG_BOSONLY RE */ + RETV(SBEGIN, 0); /* same as \A */ + } + /* if we're nested and we've hit end, return to outer level */ if (v->savenow != NULL && ATEOS()) { v->now = v->savenow; |