gforth/regexp.fs - diff

Return to regexp.fs CVS log

Up to [gforth] / gforth

version 1.20, 2010/09/12 16:44:04	version 1.21, 2010/09/12 17:10:04
Line 235 Variable varsmax	Line 235 Variable varsmax
: \|\| ( addr addr -- addr addr ) \ regexp-pattern	: \|\| ( addr addr -- addr addr ) \ regexp-pattern
\G separator between alternatives	\G separator between alternatives
vars @ varsmax @ max varsmax !	vars @ varsmax @ max varsmax !
]] dup FORK IF 2drop true ;S THEN drop dup [[ >r >r >r vars !	]] dup FORK IF 2drop true ;S THEN [[ >r >r >r vars !
]] DONE drop dup [[ r> r> r> ]] BEGIN [[ vars @ ; immediate	]] DONE drop dup [[ r> r> r> ]] BEGIN [[ vars @ ; immediate
: }} ( addr addr -- addr addr ) \ regexp-pattern	: }} ( addr addr -- addr ) \ regexp-pattern
\G end of alternatives	\G end of alternatives
vars @ varsmax @ max vars !	vars @ varsmax @ max vars !
]] dup FORK IF 2drop true ;S THEN drop dup [[ >r >r >r drop	]] dup FORK IF 2drop true ;S THEN dup [[ >r >r >r drop
]] DONE drop LEAVE [[ r> r> r> JOINs ; immediate	]] DONE drop LEAVE [[ r> r> r> JOINs ; immediate

\ match variables	\ match variables