urbit/pkg/arvo/age/first.hoon
Philip Monk abf4bc39cd
wip
2019-09-10 13:12:38 -07:00

23 lines
835 B
Plaintext

/+ default-agent
^- agent:mall
=| state=@
|_ =bowl:mall
+* this .
++ handle-init ~(handle-init default-agent bowl this)
++ handle-extract-state ~(handle-extract-state default-agent bowl this)
++ handle-upgrade-state ~(handle-upgrade-state default-agent bowl this)
++ handle-poke
|= in-poke-data=cage
~& > state=state
~& > in-poke-data
=. state +(state)
`this
::
++ handle-subscribe ~(handle-subscribe default-agent bowl this)
++ handle-unsubscribe ~(handle-unsubscribe default-agent bowl this)
++ handle-peek ~(handle-peek default-agent bowl this)
++ handle-agent-response ~(handle-agent-response default-agent bowl this)
++ handle-arvo-response ~(handle-arvo-response default-agent bowl this)
++ handle-error ~(handle-error default-agent bowl this)
--