2019-11-09 00:18:27 +03:00
|
|
|
:: Similar to default-agent except crashes everywhere
|
2019-11-19 07:36:21 +03:00
|
|
|
^- agent:gall
|
|
|
|
|_ bowl:gall
|
2019-11-09 00:18:27 +03:00
|
|
|
++ on-init
|
2019-11-19 07:36:21 +03:00
|
|
|
^- (quip card:agent:gall agent:gall)
|
2019-11-09 00:18:27 +03:00
|
|
|
!!
|
|
|
|
::
|
|
|
|
++ on-save
|
|
|
|
^- vase
|
|
|
|
!!
|
|
|
|
::
|
|
|
|
++ on-load
|
|
|
|
|~ old-state=vase
|
2019-11-19 07:36:21 +03:00
|
|
|
^- (quip card:agent:gall agent:gall)
|
2019-11-09 00:18:27 +03:00
|
|
|
!!
|
|
|
|
::
|
|
|
|
++ on-poke
|
|
|
|
|~ in-poke-data=cage
|
2019-11-19 07:36:21 +03:00
|
|
|
^- (quip card:agent:gall agent:gall)
|
2019-11-09 00:18:27 +03:00
|
|
|
!!
|
|
|
|
::
|
|
|
|
++ on-watch
|
|
|
|
|~ path
|
2019-11-19 07:36:21 +03:00
|
|
|
^- (quip card:agent:gall agent:gall)
|
2019-11-09 00:18:27 +03:00
|
|
|
!!
|
|
|
|
::
|
|
|
|
++ on-leave
|
|
|
|
|~ path
|
2019-11-19 07:36:21 +03:00
|
|
|
^- (quip card:agent:gall agent:gall)
|
2019-11-09 00:18:27 +03:00
|
|
|
!!
|
|
|
|
::
|
|
|
|
++ on-peek
|
|
|
|
|~ path
|
|
|
|
^- (unit (unit cage))
|
|
|
|
!!
|
|
|
|
::
|
|
|
|
++ on-agent
|
2019-11-19 07:36:21 +03:00
|
|
|
|~ [wire sign:agent:gall]
|
|
|
|
^- (quip card:agent:gall agent:gall)
|
2019-11-09 00:18:27 +03:00
|
|
|
!!
|
|
|
|
::
|
|
|
|
++ on-arvo
|
|
|
|
|~ [wire =sign-arvo]
|
2019-11-19 07:36:21 +03:00
|
|
|
^- (quip card:agent:gall agent:gall)
|
2019-11-09 00:18:27 +03:00
|
|
|
!!
|
|
|
|
::
|
|
|
|
++ on-fail
|
|
|
|
|~ [term tang]
|
2019-11-19 07:36:21 +03:00
|
|
|
^- (quip card:agent:gall agent:gall)
|
2019-11-09 00:18:27 +03:00
|
|
|
!!
|
|
|
|
--
|