mirror of
https://github.com/urbit/shrub.git
synced 2024-12-21 01:41:37 +03:00
47e3b260d5
This removes the %http-response special case from gall. In its place, we implement a subscription regime with the following steps: - Agent sends %connect to Eyre - Eyre pokes agent with %handle-http-response, including unique eyre-id - Agent passes %start-watching to Eyre with eyre-id and unique app-id - Eyre subscribes to agent on /http-response/app-id - Agent produces a %http-response-header fact followed by 0 or more %http-response-data facts and possibly a %http-response-cancel fact - Agent produces a %kick to close the subscription, which Eyre interprets as completion of the message. This works when there is data. There is currently a bug where if the response has no data in total (as in the case of a naked 404), no response will be sent. This also includes lib/http-handler, which implements a convenient interface for agents that want to respond immediately with all the data. This lets them avoid carrying extra state to keep track of pending requests. This should really have access to your state and the ability to change it. Perhaps a more minimalist design would be better: just keep track of the requests, then hand it off to +on-watch when eyre is ready to receive responses. It's not clear how to pass in the request data in +on-watch.
70 lines
1.3 KiB
Plaintext
70 lines
1.3 KiB
Plaintext
/+ skeleton
|
|
|* [agent=* help=*]
|
|
?: ?=(%& help)
|
|
~| %default-agent-helpfully-crashing
|
|
skeleton
|
|
|_ =bowl:mall
|
|
++ on-init
|
|
`agent
|
|
::
|
|
++ on-save
|
|
!>(~)
|
|
::
|
|
++ on-load
|
|
|= old-state=vase
|
|
`agent
|
|
::
|
|
++ on-poke
|
|
|= =cage
|
|
~| "unexpected poke to {<dap.bowl>} with mark {<p.cage>}"
|
|
!!
|
|
::
|
|
++ on-watch
|
|
|= =path
|
|
~| "unexpected subscription to {<dap.bowl>} on path {<path>}"
|
|
!!
|
|
::
|
|
++ on-leave
|
|
|= path
|
|
`agent
|
|
::
|
|
++ on-peek
|
|
|= =path
|
|
~| "unexpected scry into {<dap.bowl>} on path {<path>}"
|
|
!!
|
|
::
|
|
++ on-agent
|
|
|= [=wire =sign:agent:mall]
|
|
^- (quip card:agent:mall _agent)
|
|
?- -.sign
|
|
%poke-ack
|
|
?~ p.sign
|
|
`agent
|
|
%- (slog leaf+"poke failed from {<dap.bowl>} on wire {<wire>}" u.p.sign)
|
|
`agent
|
|
::
|
|
%watch-ack
|
|
?~ p.sign
|
|
`agent
|
|
=/ =tank leaf+"subscribe failed from {<dap.bowl>} on wire {<wire>}"
|
|
%- (slog tank u.p.sign)
|
|
`agent
|
|
::
|
|
%kick `agent
|
|
%fact
|
|
~| "unexpected subscription update to {<dap.bowl>} on wire {<wire>}"
|
|
~| "with mark {<p.cage.sign>}"
|
|
!!
|
|
==
|
|
::
|
|
++ on-arvo
|
|
|= [=wire =sign-arvo]
|
|
~| "unexpected system response {<-.sign-arvo>} to {<dap.bowl>} on wire {<wire>}"
|
|
!!
|
|
::
|
|
++ on-fail
|
|
|= [=term =tang]
|
|
%- (slog leaf+"error in {<dap.bowl>}" >term< tang)
|
|
`agent
|
|
--
|