lull: clean up remote scry namespace missmatches

(note: first pass, subject to change)
This commit is contained in:
yosoyubik 2023-04-22 10:57:49 +02:00
parent 3eeca101ac
commit d259656e29
3 changed files with 34 additions and 21 deletions

View File

@ -47,7 +47,7 @@
event-log=(list unix-timed-event)
next-events=(qeu unix-event)
processing-events=?
namespace=(map path (list purr:ames))
namespace=(map path (list yowl:ames))
==
--
::
@ -681,10 +681,10 @@
::TODO runtime needs to update rcvr field also
::NOTE rcvr life is allowed to be wrong
(etch-shot:ames shot(sndr from.ae, rcvr for))
=/ pacs=(unit (list purr:ames))
=/ pacs=(unit (list yowl:ames))
%+ biff
(peek-once:(pe from.ae) %ax %$ [%fine %message path.ae])
(soft (list purr:ames))
(soft (list yowl:ames))
?~ pacs (pe from.ae)
=. namespace.u.pier
(~(put by namespace.u.pier) path.ae u.pacs)

View File

@ -1210,9 +1210,13 @@
+$ public-key @uwpublickey
+$ symmetric-key @uwsymmetrickey
::
+$ hoot @uxhoot :: request packet
+$ purr @uxpurr :: response packet
+$ hunk [lop=@ len=@] :: range specifier
:: $hoot: request packet payload
:: $yowl: serialized response packet payload
:: $hunk: a slice of fragments (namespace produces (list @uxmeow))
::
+$ hoot @uxhoot
+$ yowl @uxyowl
+$ hunk [lop=@ len=@]
::
:: +| %kinetics
:: $dyad: pair of sender and receiver ships
@ -1327,23 +1331,32 @@
$: fra=@ud
meow
==
+$ meow :: response packet
::
+$ meow :: response fragment
$: sig=@ux :: signature
num=@ud :: number of fragments
siz=@ud :: official size of this fragment
dat=@ux :: contents
==
+$ peep :: request data
::
+$ peep :: fragment request
$: =path
num=@ud
==
+$ keen :: signed request
::
+$ wail :: signed peep
$: signature=@
peep
==
::
+$ roar :: response message
(tale:pki:jael (pair path (unit (cask))))
:::
::
+$ purr :: response packet payload
$: peep
meow
==
::
:: $qos: quality of service; how is our connection to a peer doing?
::
:: .last-contact: last time we heard from peer, or if %unborn, when
@ -1622,15 +1635,15 @@
=/ content (cut 3 [off (sub (met 3 body) off)] body)
[[sndr rcvr] req sam sndr-tick rcvr-tick origin content]
::
++ sift-keen
++ sift-wail
|= =hoot
^- keen
^- wail
:- sig=(end 9 hoot)
+:(sift-peep (rsh 9 hoot))
::
++ sift-purr
|= =hoot
^- [=peep =meow]
^- purr
=+ [wid peep]=(sift-peep hoot)
[peep (sift-meow (rsh [3 wid] hoot))]
::
@ -1644,15 +1657,15 @@
[(add 6 len) [(stab pat) num]]
::
++ sift-meow
|= =purr
|= =yowl
=; =meow
~| %fine-meow-len^meow
?> (gte siz.meow (met 3 dat.meow))
meow
:* sig=(cut 3 [0 64] purr)
num=(cut 3 [64 4] purr)
siz=(cut 3 [68 2] purr)
dat=(rsh 3^70 purr)
:* sig=(cut 3 [0 64] yowl)
num=(cut 3 [64 4] yowl)
siz=(cut 3 [68 2] yowl)
dat=(rsh 3^70 yowl)
==
:: +etch-shot: serialize a packet into a bytestream
::

View File

@ -513,9 +513,9 @@
=/ =shot:ames (sift-shot:ames `@ux`req)
?< sam.shot
?> req.shot
=/ =keen:ames
(sift-keen:ames `@ux`content.shot)
~& keen
=/ =wail:ames
(sift-wail:ames `@ux`content.shot)
~& wail
(expect-eq !>(1) !>(1))
::
++ test-fine-hunk