gforth/regexp-test.fs - diff

Return to regexp-test.fs CVS log

Up to [gforth] / gforth

version 1.12, 2010/09/05 19:09:55	version 1.13, 2010/09/05 20:07:50
Line 120 s" foofoofoo" ?foos1	Line 120 s" foofoofoo" ?foos1

\ buffer overrun test (bug in =")	\ buffer overrun test (bug in =")

	." --- buffer overrun test ---" cr

: ?long-string	: ?long-string
(( // \( =" abcdefghi" \) ))	(( // \( =" abcdefghi" \) ))
IF \1 type cr THEN ;	IF \1 type cr THEN ;
Line 135 here 4096 allocate throw 4096 + 8 - cons	Line 137 here 4096 allocate throw 4096 + 8 - cons

." --- simple replacement test ---" cr	." --- simple replacement test ---" cr

: delnum ( addr u -- addr' u' ) s// \d ?end s" " //g ;	: delnum ( addr u -- addr' u' ) s// \d >> s" " //g ;
: test-delnum ( addr u addr' u' -- )	: test-delnum ( addr u addr' u' -- )
2swap delnum 2over 2over str= 0= IF	2swap delnum 2over 2over str= 0= IF
." test-delnum: got '" type ." ', expected '" type ." '"	." test-delnum: got '" type ." ', expected '" type ." '"
Line 170 s" bla 45296s fasel 117s blubber" str= [	Line 172 s" bla 45296s fasel 117s blubber" str= [
>> \1 s>number drop 60 *	>> \1 s>number drop 60 *
\2 s>number drop + 60 *	\2 s>number drop + 60 *
\3 s>number drop + 0 <# 's' hold #s #> <<	\3 s>number drop + 0 <# 's' hold #s #> <<
\|\| ` ( {* -` ) *} ` ) \ >> <<" "	\|\| ` ( {* .? *} ` ) >> <<" "
}} LEAVE //s ;	}} LEAVE //s ;

\ doesn't work yet	\ doesn't work yet