2019-11-09 00:56:35 +03:00
|
|
|
/+ skeleton
|
|
|
|
|* [agent=* help=*]
|
|
|
|
?: ?=(%& help)
|
|
|
|
~| %default-agent-helpfully-crashing
|
|
|
|
skeleton
|
2019-11-19 07:36:21 +03:00
|
|
|
|_ =bowl:gall
|
2019-11-07 09:19:32 +03:00
|
|
|
++ on-init
|
2019-09-10 23:12:38 +03:00
|
|
|
`agent
|
|
|
|
::
|
2019-11-07 09:19:32 +03:00
|
|
|
++ on-save
|
2019-09-24 01:44:48 +03:00
|
|
|
!>(~)
|
|
|
|
::
|
2019-11-07 09:19:32 +03:00
|
|
|
++ on-load
|
2019-09-10 23:12:38 +03:00
|
|
|
|= old-state=vase
|
|
|
|
`agent
|
|
|
|
::
|
2019-11-07 09:19:32 +03:00
|
|
|
++ on-poke
|
2019-09-10 23:12:38 +03:00
|
|
|
|= =cage
|
|
|
|
~| "unexpected poke to {<dap.bowl>} with mark {<p.cage>}"
|
|
|
|
!!
|
|
|
|
::
|
2019-11-07 09:19:32 +03:00
|
|
|
++ on-watch
|
2019-09-10 23:12:38 +03:00
|
|
|
|= =path
|
|
|
|
~| "unexpected subscription to {<dap.bowl>} on path {<path>}"
|
|
|
|
!!
|
|
|
|
::
|
2019-11-07 09:19:32 +03:00
|
|
|
++ on-leave
|
2019-09-10 23:12:38 +03:00
|
|
|
|= path
|
|
|
|
`agent
|
|
|
|
::
|
2019-11-07 09:19:32 +03:00
|
|
|
++ on-peek
|
2019-09-29 07:44:31 +03:00
|
|
|
|= =path
|
2019-09-10 23:12:38 +03:00
|
|
|
~| "unexpected scry into {<dap.bowl>} on path {<path>}"
|
|
|
|
!!
|
|
|
|
::
|
2019-11-07 09:19:32 +03:00
|
|
|
++ on-agent
|
2019-11-19 07:36:21 +03:00
|
|
|
|= [=wire =sign:agent:gall]
|
|
|
|
^- (quip card:agent:gall _agent)
|
2019-11-09 04:26:47 +03:00
|
|
|
?- -.sign
|
2019-09-25 04:57:05 +03:00
|
|
|
%poke-ack
|
2019-11-09 04:26:47 +03:00
|
|
|
?~ p.sign
|
2019-09-25 04:57:05 +03:00
|
|
|
`agent
|
2019-11-09 04:26:47 +03:00
|
|
|
%- (slog leaf+"poke failed from {<dap.bowl>} on wire {<wire>}" u.p.sign)
|
2019-09-25 04:57:05 +03:00
|
|
|
`agent
|
|
|
|
::
|
2019-11-07 09:19:32 +03:00
|
|
|
%watch-ack
|
2019-11-09 04:26:47 +03:00
|
|
|
?~ p.sign
|
2019-09-25 04:57:05 +03:00
|
|
|
`agent
|
|
|
|
=/ =tank leaf+"subscribe failed from {<dap.bowl>} on wire {<wire>}"
|
2019-11-09 04:26:47 +03:00
|
|
|
%- (slog tank u.p.sign)
|
2019-09-25 04:57:05 +03:00
|
|
|
`agent
|
|
|
|
::
|
2019-11-07 09:19:32 +03:00
|
|
|
%kick `agent
|
|
|
|
%fact
|
2019-09-10 23:12:38 +03:00
|
|
|
~| "unexpected subscription update to {<dap.bowl>} on wire {<wire>}"
|
2019-11-09 04:26:47 +03:00
|
|
|
~| "with mark {<p.cage.sign>}"
|
2019-09-10 23:12:38 +03:00
|
|
|
!!
|
|
|
|
==
|
|
|
|
::
|
2019-11-07 09:19:32 +03:00
|
|
|
++ on-arvo
|
2019-09-24 01:44:48 +03:00
|
|
|
|= [=wire =sign-arvo]
|
|
|
|
~| "unexpected system response {<-.sign-arvo>} to {<dap.bowl>} on wire {<wire>}"
|
2019-09-10 23:12:38 +03:00
|
|
|
!!
|
|
|
|
::
|
2019-11-07 09:19:32 +03:00
|
|
|
++ on-fail
|
2019-09-10 23:12:38 +03:00
|
|
|
|= [=term =tang]
|
|
|
|
%- (slog leaf+"error in {<dap.bowl>}" >term< tang)
|
|
|
|
`agent
|
|
|
|
--
|