Re: Parsing timestamps?

On 8/10/2024 3:20 am, sjack wrote:

dxf <dxforth@gmail.com> wrote:

The HH:MM:SS format is easy but how to deal with the variants shown above?
They occur in the real world.

 
Toad code:
fload job
: xx.  0 <# bl hold # # #> type ;
: tab3.    tab rot xx. swap xx. xx. ;
 
-- &num  ( g -- s )
-- Convert g-string to numeric string address
: &num drop 1- ;
-- Note g-string is ANS string ( addr u )
 
-- ts_elms  ( "[hh:][mm:]ss<bl>" -- 0 0 ss | 0 mm ss | hh mm ss )
-- Parse timestamp elements: hh=hours mm=minutes ss=seconds
-- Input hh: element and hh:mm: combination elements may be left out
-- if zero(s).
: ts_elms
  bl word here count
  o+s do i c@ asc : = if bl i c! then loop
  0 0 0 here count
  begin
    bl split dup 0> while &num number drop
    5 roll drop -rot
  repeat 4drop
  ;
...

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