mirror of
https://github.com/ilyakooo0/urbit.git
synced 2025-01-04 13:19:48 +03:00
gall: add version to over-the-wire protocol
All over-the-wire requests should have version numbers. This adds them to gall's +ames-request.
This commit is contained in:
parent
350521853b
commit
55de9ab0a9
@ -1,3 +1,3 @@
|
||||
version https://git-lfs.github.com/spec/v1
|
||||
oid sha256:90c1175611b87d9311ff495ed94cf391f2a60eb92c7ab6686cec2557b827382c
|
||||
size 6325358
|
||||
oid sha256:de1817f30b35176e866009031dad42bb3cdf3de7e059e2eaa9a401151d6436ed
|
||||
size 6325695
|
||||
|
@ -86,6 +86,9 @@
|
||||
:: %s: watch
|
||||
:: %u: leave
|
||||
::
|
||||
+$ ames-request-all
|
||||
$% [%0 ames-request]
|
||||
==
|
||||
+$ ames-request
|
||||
$% [%m =mark noun=*]
|
||||
[%l =mark =path]
|
||||
@ -492,7 +495,8 @@
|
||||
::
|
||||
=. mo-core (mo-track-ship ship)
|
||||
?< ?=(?(%raw-poke %poke-as) -.deal)
|
||||
=/ =ames-request
|
||||
=/ =ames-request-all
|
||||
:- %0
|
||||
?- -.deal
|
||||
%poke [%m p.cage.deal q.q.cage.deal]
|
||||
%leave [%u ~]
|
||||
@ -505,7 +509,7 @@
|
||||
::
|
||||
=/ =note-arvo
|
||||
=/ =path /ge/[foreign-agent]
|
||||
[%a %plea ship %g path ames-request]
|
||||
[%a %plea ship %g path ames-request-all]
|
||||
::
|
||||
=. outstanding.state
|
||||
=/ stand
|
||||
@ -769,7 +773,9 @@
|
||||
=/ sys-wire [%sys wire]
|
||||
:: TODO: %drip %kick so app crash can't kill the remote %pull
|
||||
::
|
||||
=. mo-core (mo-pass sys-wire %a %plea ship %g /ge/[foreign-agent] %u ~)
|
||||
=/ =ames-request-all [%0 %u ~]
|
||||
=. mo-core
|
||||
(mo-pass sys-wire %a %plea ship %g /ge/[foreign-agent] ames-request-all)
|
||||
=. mo-core (mo-give %unto %kick ~)
|
||||
mo-core
|
||||
==
|
||||
@ -1702,8 +1708,9 @@
|
||||
?> ?=([%ge @ ~] path)
|
||||
=/ agent-name i.t.path
|
||||
::
|
||||
=/ =ames-request ;;(ames-request noun)
|
||||
=> (mo-handle-ames-request:mo-core ship agent-name ames-request)
|
||||
=+ ;;(=ames-request-all noun)
|
||||
?> ?=(%0 -.ames-request-all)
|
||||
=> (mo-handle-ames-request:mo-core ship agent-name +.ames-request-all)
|
||||
mo-abet
|
||||
::
|
||||
%sear mo-abet:(mo-filter-queue:mo-core ship.task)
|
||||
|
Loading…
Reference in New Issue
Block a user