mirror of
https://github.com/urbit/shrub.git
synced 2024-12-02 08:55:07 +03:00
:time app, measures time between poke and subsequent wakeup
This commit is contained in:
parent
4903cf6411
commit
bacc213671
19
app/time.hoon
Normal file
19
app/time.hoon
Normal file
@ -0,0 +1,19 @@
|
|||||||
|
::
|
||||||
|
:::: /hoon/time/app
|
||||||
|
::
|
||||||
|
/? 310
|
||||||
|
|%
|
||||||
|
++ card {$wait wire @da}
|
||||||
|
--
|
||||||
|
|_ {bowl $~}
|
||||||
|
++ poke-noun
|
||||||
|
|= *
|
||||||
|
:_ +>.$ :_ ~
|
||||||
|
[ost %wait /(scot %da now) +(now)]
|
||||||
|
::
|
||||||
|
++ wake
|
||||||
|
|= {wir/wire $~}
|
||||||
|
?> ?=({@ $~} wir)
|
||||||
|
~& [%took `@dr`(sub now (slav %da i.wir))]
|
||||||
|
[~ +>.$]
|
||||||
|
--
|
Loading…
Reference in New Issue
Block a user