gforth/regexp-test.fs - diff

Return to regexp-test.fs CVS log

Up to [gforth] / gforth

version 1.8, 2010/09/04 11:51:09	version 1.9, 2010/09/04 21:34:23
Line 120 s" foofoofoo" ?foos1	Line 120 s" foofoofoo" ?foos1

\ simple replacement test	\ simple replacement test

	." --- delnum test ---" cr

: delnum ( addr u -- addr' u' ) s// \d 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
Line 133 s" aa" s" aa" test-delnum	Line 135 s" aa" s" aa" test-delnum

\ replacement tests	\ replacement tests

	." --- replacement tests ---" cr

: hms>s ( addr u -- addr' u' )	: hms>s ( addr u -- addr' u' )
s// \( \d \d \) ` : \( \d \d \) ` : \( \d \d \)	s// \( \d \d \) ` : \( \d \d \) ` : \( \d \d \)
\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 #> //g ;	\3 s>number drop + 0 <# 's' hold #s #> //g ;

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

script? [IF] bye [THEN]	script? [IF] bye [THEN]