mirror of
https://github.com/urbit/shrub.git
synced 2024-12-21 09:51:36 +03:00
23 lines
835 B
Plaintext
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)
|
|
--
|