gforth/regexp-test.fs - diff

Return to regexp-test.fs CVS log

Up to [gforth] / gforth

version 1.17, 2010/09/12 22:04:06	version 1.18, 2010/09/12 22:14:12
Line 178 s" bla 45296s fasel 117s blubber" str= [	Line 178 s" bla 45296s fasel 117s blubber" str= [
?depth	?depth

: hms>s,del() ( addr u -- addr' u' )	: hms>s,del() ( 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 #> <<	\3 s>number drop + 0 <# 's' hold #s #> <<
\|\| ` ( // ` ) >> <<" "
}} LEAVE //s ;	}} LEAVE //s ;

\ doesn't work yet	\ doesn't work yet
\ s" (bla) 12:34:56 (fasel) 00:01:57 (blubber)" 2dup type hms>s,del() space type cr	s" (bla) 12:34:56 (fasel) 00:01:57 (blubber)" 2dup type hms>s,del() ." -> " type cr

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