--- gforth/regexp-test.fs 2009/09/16 15:21:59 1.5 +++ gforth/regexp-test.fs 2010/05/27 08:58:57 1.7 @@ -1,6 +1,6 @@ \ regexp test -\ Copyright (C) 2005,2007 Free Software Foundation, Inc. +\ Copyright (C) 2005,2007,2009 Free Software Foundation, Inc. \ This file is part of Gforth. @@ -118,4 +118,15 @@ s" fofoofoofofooofoobarbar" ?foos1 s" bla baz bar" ?foos1 s" foofoofoo" ?foos1 +\ replacement tests + +: hms>s ( addr u -- addr' u' ) + s// \( \d \d \) ` : \( \d \d \) ` : \( \d \d \) + \1 s>number drop 60 * + \2 s>number drop + 60 * + \3 s>number drop + 0 <# 's' hold #s #> //g ; + +s" bla 12:34:56 fasel 00:01:57 blubber" hms>s +s" bla 45296s fasel 117s" str= 0= [IF] .( failed) [THEN] + script? [IF] bye [THEN]