urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-24 03:14:30 +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 ++ request-body
|= [=path num=@ud] |= [=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 ^- byts
?> (lth num (bex 32)) ?> (lth num (bex 32))
=+ (spit path) =+ (spit path)
@ -3350,12 +3350,14 @@
== ==
:: ::
++ encode-request ++ encode-request
|= [=path num=@ud] |= [=ship =path num=@ud]
::NOTE path is expected to be a namespace path without the ship
^- hoot ^- @ ^- hoot ^- @
=+ bod=(request-body path num) =+ bod=(request-body path num)
=+ syn=(can 3 64^(sign:keys dat.bod) bod ~) =+ syn=(can 3 64^(sign:keys dat.bod) bod ~)
%+ con 0b100 ::NOTE request bit %+ 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 ++ encode-response ::TODO unit tests
|= [=path data=(unit (cask))] |= [=path data=(unit (cask))]
@ -3555,7 +3557,7 @@
?. (~(has by fragments.partial) next) next ?. (~(has by fragments.partial) next) next
$(next +((mod next num-fragments.partial))) $(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 ::TODO ask amsden, should we shotgun? we can tweak this
:: for now (mvp) though, stay 1-to-1 :: for now (mvp) though, stay 1-to-1
::TODO update lane in ames state ::TODO update lane in ames state