Re: Parsing timestamps?

Hi, Here is a programme that uses your split word.
I think it works for all combinations (formats).
\ here begins the code
: SPLIT ( a u c -- a2 u2 a3 u3 )  >r 2dup r> scan 2swap 2 pick - ;
: advance 1- swap 1+ swap ;
: .00?1
   dup 1 3 within 0= if 2drop  s" 00"   then
;
: .00?2
   dup 0=            if 2drop s" 00" exit then
   dup 1 3 within 0= if 2drop  2swap 2>r s" 00" 2swap 2r>   then
;
: .00?3
   dup 0=            if  2drop s" 00" exit then
   dup 1 3 within 0= if  2drop 2swap    2>r s" 00" 2rot 2rot 2r> then
;
: step1 [char] : split 2swap 2>r .00?1 2swap 2r> advance ;
: step2 [char] : split 2swap 2>r .00?2 2swap 2r> advance ;
: step3 [char] : split 2swap 2>r .00?3 2swap 2r> advance ;
: :t  s" --" 2swap step1 step2 step3  2drop 2drop ;
: sts space type space ;
: .hr  sts ." hr"  ;
: .min sts ." min" ;
: .sec sts ." sec" ;
: .t 2>r 2swap .hr .min 2r> .sec ;
\ the code finshes here.
Some tests (gforth under wsl):
s" 10:20:30" :t .t  10 hr 20 min 30 sec ok
s" 1:20:30" :t .t  1 hr 20 min 30 sec ok
s" 1:2:30" :t .t  1 hr 2 min 30 sec ok
s" 1:2:3" :t .t  1 hr 2 min 3 sec ok
s" :2:3" :t .t  00 hr 2 min 3 sec ok
s" 2:3" :t .t  00 hr 2 min 3 sec ok
s" :3" :t .t  00 hr 00 min 3 sec ok
s" ::3" :t .t  00 hr 00 min 3 sec ok
s" ::" :t .t  00 hr 00 min 00 sec ok
s" :" :t .t  00 hr 00 min 00 sec ok
s" " :t .t  00 hr 00 min 00 sec ok
s" 1:" :t .t  00 hr 1 min 00 sec ok
s" :1:" :t .t  00 hr 1 min 00 sec ok
s" 10::" :t .t  10 hr 00 min 00 sec ok
s" 10:5:" :t .t  10 hr 5 min 00 sec ok
s" 10:5:2" :t .t  10 hr 5 min 2 sec ok
Ahmed
--