Re: Parsing timestamps?

On Tue, 8 Oct 2024 3:07:31 +0000, dxf wrote:

Not bad.  Here's a translation.  Hopefully it's equivalent (?)
>
: split ( a u c -- a2 u2 a3 u3 )
  >r 2dup r> scan 2swap 2 pick - ;
>
: number ( a u -- u )  0 0 2swap >number 2drop ;
>
: xx. ( u -- )  0 <# bl hold # # #> type ;
: tab3. ( h m s -- )  3 spaces ( tab)  rot xx. swap xx. xx. ;
>
: ts_elms ( a u -- h m s )
  2>r  0 0 0  2r>  begin
    [char] : skip  [char] : split  dup 0> while
    number drop  5 roll drop -rot
  repeat 2drop 2drop ;
>
s" 25"      ts_elms  tab3.    00 00 25  ok
s" 10:25"   ts_elms  tab3.    00 10 25  ok
s" 2:10:25" ts_elms  tab3.    02 10 25  ok

I know you don't care about this case, but:
s" 1:1:"      ts_elms  tab3.        00 01 01  ok
It should be 01 01 00
Ahmed