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:
Philip Monk 2020-11-30 20:12:43 -08:00
parent 350521853b
commit 55de9ab0a9
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC
2 changed files with 14 additions and 7 deletions

View File

@ -1,3 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:90c1175611b87d9311ff495ed94cf391f2a60eb92c7ab6686cec2557b827382c
size 6325358
oid sha256:de1817f30b35176e866009031dad42bb3cdf3de7e059e2eaa9a401151d6436ed
size 6325695

View File

@ -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)