Diff for /gforth/regexp.fs between versions 1.13 and 1.14

version 1.13, 2008/11/01 22:19:30 version 1.14, 2010/05/27 08:58:57
Line 281  Variable >>string Line 281  Variable >>string
     >>string $@ >>string off      >>string $@ >>string off
     0 to >>ptr  0 to <<ptr ;      0 to >>ptr  0 to <<ptr ;
 : >>next ( -- addr u ) <<ptr end$ over - ;  : >>next ( -- addr u ) <<ptr end$ over - ;
 : s// ( -- sys ) \ regexp-replace  : >>rest ( -- ) >>next >>string $+! ;
   : s// ( addr u -- ptr )
     \G start search/replace loop      \G start search/replace loop
     ]] BEGIN [[ ; immediate      ]] (( // >> [[ ; immediate
 : //g ( sys -- ) \ regexp-replace  : // ( ptr addr u -- addr' u' )
     \G end search/replace loop      \G end search/replace single loop
     ]] WHILE >>next REPEAT end$ [[      ]] << )) drop >>rest >>string@ [[ ; immediate
     s" " ]] SLiteral << >>string@ rot drop [[ ; immediate  : //g ( ptr addr u -- addr' u' )
       \G end search/replace all loop
       ]] << LEAVE )) drop >>string@ [[ ; immediate

Removed from v.1.13  
changed lines
  Added in v.1.14


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>