urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-19 16:51:42 +03:00
Code Issues Packages Projects Releases Wiki Activity

ames: gang fixes

Browse Source
This commit is contained in:
pkova 2023-12-14 16:18:23 +02:00
parent 6599fddc9a
commit 6c33b2f5d8
1 changed files with 39 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

79
pkg/arvo/sys/vane/ames.hoon
View File

@ -5771,7 +5771,45 @@
::
?. ?=(%x ren) ~
=> .(tyl `(pole knot)`tyl)
?: =([~ ~] lyc)
:: public endpoints
?: ?=([%fine %hunk lop=@t len=@t pax=^] tyl)
::TODO separate endpoint for the full message (instead of packet list)
:: .pax is expected to be a scry path of the shape /vc/desk/rev/etc,
:: so we need to give it the right shape
::
?~ blk=(de-path-soft:balk pax.tyl) ~
::
?. (is-our-bulk our ames-state u.blk)
~
=+ nom=(as-omen:balk u.blk)
~| nom
|^
=/ van ?@(vis.nom (end 3 vis.nom) way.vis.nom)
=/ kyr ?@(vis.nom (rsh 3 vis.nom) car.vis.nom)
?. =(%c van)
(en-hunk (rof ~ /ames nom))
=+ pem=(rof [~ ~] /ames nom(vis %cp))
?. ?=(^ pem) ~
?. ?=(^ u.pem) ~
~| u.u.pem
=+ per=!<([r=dict:clay w=dict:clay] q.u.u.pem)
?. =([%black ~ ~] rul.r.per) ~
(en-hunk (rof [~ ~] /ames nom))
::
++ en-hunk
|= res=(unit (unit cage))
^+ res
?~ res ~
=/ =hunk [(slav %ud lop.tyl) (slav %ud len.tyl)]
::
=/ hu-co (etch-hunk our [life crypto-core]:ames-state)
?- res
[~ ~] ``noun+!>((etch-open:hu-co pax.tyl hunk ~))
[~ ~ *] ``noun+!>((etch-open:hu-co pax.tyl hunk [p q.q]:u.u.res))
==
--
:: private endpoints
?. =([~ ~] lyc) ~
?+ tyl ~
[%$ %whey ~]
=/ maz=(list mass)
@ -5899,45 +5937,6 @@
``noun+!>(protocol-version)
::
==
?+ tyl ~
[%fine %hunk lop=@t len=@t pax=^]
::TODO separate endpoint for the full message (instead of packet list)
:: .pax is expected to be a scry path of the shape /vc/desk/rev/etc,
:: so we need to give it the right shape
::
?~ blk=(de-path-soft:balk pax.tyl) ~
::
?. (is-our-bulk our ames-state u.blk)
~
=+ nom=(as-omen:balk u.blk)
~| nom
|^
=/ van ?@(vis.nom (end 3 vis.nom) way.vis.nom)
=/ kyr ?@(vis.nom (rsh 3 vis.nom) car.vis.nom)
?. =(%c van)
(en-hunk (rof ~ /ames nom))
=+ pem=(rof [~ ~] /ames nom(vis %cp))
?. ?=(^ pem) ~
?. ?=(^ u.pem) ~
~| u.u.pem
=+ per=!<([r=dict:clay w=dict:clay] q.u.u.pem)
?. =([%black ~ ~] rul.r.per) ~
(en-hunk (rof [~ ~] /ames nom))
::
++ en-hunk
|= res=(unit (unit cage))
^+ res
?~ res ~
=/ =hunk [(slav %ud lop.tyl) (slav %ud len.tyl)]
::
=/ hu-co (etch-hunk our [life crypto-core]:ames-state)
?- res
[~ ~] ``noun+!>((etch-open:hu-co pax.tyl hunk ~))
[~ ~ *] ``noun+!>((etch-open:hu-co pax.tyl hunk [p q.q]:u.u.res))
==
--
==
::
--