gforth/regexp-test.fs - diff

Return to regexp-test.fs CVS log

Up to [gforth] / gforth

version 1.13, 2010/09/05 20:07:50	version 1.15, 2010/09/12 17:10:04
Line 118 s" fofoofoofofooofoobarbar" ?foos1	Line 118 s" fofoofoofofooofoobarbar" ?foos1
s" bla baz bar" ?foos1	s" bla baz bar" ?foos1
s" foofoofoo" ?foos1	s" foofoofoo" ?foos1

	\ backtracking on decissions

	: ?aab ( addr u -- flag )
	(( {{ =" aa" \|\| =" a" }} {{ =" ab" \|\| =" a" }} )) ;
	s" aab" ?aab 0= [IF] .( aab failed!) cr [THEN]

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

." --- buffer overrun test ---" cr	." --- buffer overrun test ---" cr
Line 164 s" delete (test) and (another test) " de	Line 170 s" delete (test) and (another test) " de
\3 s>number drop + 0 <# 's' hold #s #> //g ;	\3 s>number drop + 0 <# 's' hold #s #> //g ;

s" bla 12:34:56 fasel 00:01:57 blubber" 2dup type hms>s	s" bla 12:34:56 fasel 00:01:57 blubber" 2dup type hms>s
." replaced by " 2dup type	." -> " 2dup type
s" bla 45296s fasel 117s blubber" str= [IF] .( ok) [ELSE] .( failed) [THEN] cr	s" bla 45296s fasel 117s blubber" str= [IF] .( ok) [ELSE] .( failed) [THEN] cr

: hms>s,del() ( addr u -- addr' u' )	: hms>s,del() ( addr u -- addr' u' )
Line 172 s" bla 45296s fasel 117s blubber" str= [	Line 178 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