retroforth/interface/clock.retro
crc e2b55648cb add comma & gc to glossary
FossilOrigin-Name: b2a5e66264d4a5b2a757710c72641cd097445b6b7109cd91c0d22668aa4ed637
2023-01-26 22:29:37 +00:00

46 lines
1.4 KiB
Forth

# 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 ;
~~~
## d:source
~~~
'interface/clock.retro s:dedup
dup 'clock:utc:second d:lookup d:source store
dup 'clock:utc:minute d:lookup d:source store
dup 'clock:utc:hour d:lookup d:source store
dup 'clock:utc:year d:lookup d:source store
dup 'clock:utc:month d:lookup d:source store
dup 'clock:utc:day d:lookup d:source store
dup 'clock:second d:lookup d:source store
dup 'clock:minute d:lookup d:source store
dup 'clock:hour d:lookup d:source store
dup 'clock:year d:lookup d:source store
dup 'clock:month d:lookup d:source store
dup 'clock:day d:lookup d:source store
dup 'clock:timestamp d:lookup d:source store
dup 'clock:operation d:lookup d:source store
drop
~~~