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

fine: set receiver life in request packet

Browse Source
This commit is contained in:
fang 2022-01-28 23:10:50 +01:00
parent 709dd75d74
commit fb72b7df7d
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3338,7 +3338,7 @@
::
++ request-body
|= [=path num=@ud]
::TODO need to ensure valid namespace path without ship
::NOTE path is expected to be a namespace path without the ship
^- byts
?> (lth num (bex 32))
=+ (spit path)
@ -3350,12 +3350,14 @@
==
::
++ encode-request
|= [=path num=@ud]
|= [=ship =path num=@ud]
::NOTE path is expected to be a namespace path without the ship
^- hoot ^- @
=+ bod=(request-body path num)
=+ syn=(can 3 64^(sign:keys dat.bod) bod ~)
%+ con 0b100 ::NOTE request bit
(encode-packet | [our ~zod] (mod life:keys 16) 0b0 ~ syn)
%+ encode-packet |
[[our ship] (mod life:keys 16) (mod (lyfe:keys ship) 16) ~ syn]
::
++ encode-response ::TODO unit tests
|= [=path data=(unit (cask))]
@ -3555,7 +3557,7 @@
?. (~(has by fragments.partial) next) next
$(next +((mod next num-fragments.partial)))
::
=/ =hoot (encode-request path.peep next-num)
=/ =hoot (encode-request from path.peep next-num)
::TODO ask amsden, should we shotgun? we can tweak this
:: for now (mvp) though, stay 1-to-1
::TODO update lane in ames state