2019-09-10 23:12:38 +03:00
|
|
|
/+ default-agent
|
2019-09-05 00:20:47 +03:00
|
|
|
^- agent:mall
|
|
|
|
|
=| state=@
|
2019-09-10 23:12:38 +03:00
|
|
|
|_ =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)
|
2019-09-04 22:48:36 +03:00
|
|
|
++ handle-poke
|
2019-09-05 00:20:47 +03:00
|
|
|
|= in-poke-data=cage
|
|
|
|
|
~& > state=state
|
2019-09-10 23:12:38 +03:00
|
|
|
~& > in-poke-data
|
2019-09-05 00:20:47 +03:00
|
|
|
=. state +(state)
|
2019-09-10 23:12:38 +03:00
|
|
|
`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)
|
2019-09-04 22:48:36 +03:00
|
|
|
--
|
