retroforth/interface/clock.retro

# Time and Date

The `clock:` namespace contains words for interacting with the
system clock.

~~~
:clock:operation
  #5 io:scan-for
    dup n:negative? [ drop 'Error:_device_(0005)_not_found s:put nl ] if;
    io:invoke ;

:clock:timestamp  (-n) #0 clock:operation ;
:clock:day        (-n) #1 clock:operation ;
:clock:month      (-n) #2 clock:operation ;
:clock:year       (-n) #3 clock:operation ;
:clock:hour       (-n) #4 clock:operation ;
:clock:minute     (-n) #5 clock:operation ;
:clock:second     (-n) #6 clock:operation ;
:clock:utc:day    (-n) #7 clock:operation ;
:clock:utc:month  (-n) #8 clock:operation ;
:clock:utc:year   (-n) #9 clock:operation ;
:clock:utc:hour   (-n) #10 clock:operation ;
:clock:utc:minute (-n) #11 clock:operation ;
:clock:utc:second (-n) #12 clock:operation ;
~~~