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

ames: replace (empty) signatures with tag byte in fine requests (wail)

Browse Source
This commit is contained in:
Joe Bryan 2023-04-23 01:09:53 -04:00
parent 866a1840d1
commit d2d1412c3a
2 changed files with 24 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pkg/arvo/sys/lull.hoon
View File

@ -1344,9 +1344,8 @@
num=@ud num=@ud
== ==
:: ::
+$ wail :: signed peep +$ wail :: tagged request fragment
$: signature=@ $% [%0 peep] :: unsigned
peep
== ==
:: ::
+$ roar :: response message +$ roar :: response message
@ -1638,8 +1637,8 @@
++ sift-wail ++ sift-wail
|= =hoot |= =hoot
^- wail ^- wail
:- sig=(end 9 hoot) ?> =(0 (end 3 hoot))
+:(sift-peep (rsh 9 hoot)) [%0 +:(sift-peep (rsh 3 hoot))]
:: ::
++ sift-purr ++ sift-purr
|= =hoot |= =hoot

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

@ -3746,35 +3746,33 @@
:: ::
++ fi ++ fi
=> |% => |%
:: +gum: glue together a list of $byts into one
::
:: TODO: move to hoon.hoon (see +cad in lib/tiny)
::
++ gum
::~/ %gum
|= biz=(list byts)
^- byts
:- (roll biz |=([[wid=@ *] acc=@] (add wid acc)))
(can 3 biz)
:: TODO: move +etch-peep/+etch-wail to %lull? :: TODO: move +etch-peep/+etch-wail to %lull?
::
++ etch-peep ++ etch-peep
|= [=path num=@ud] |= peep
^- byts ^- @
?> (lth num (bex 32)) ?> (lth num ^~((bex 32)))
=+ (spit path) =+ (spit path)
%- gum %+ can 3
:~ 4^num :: fragment number :~ 4^num :: fragment number
2^wid :: path size 2^wid :: path size
wid^`@`pat :: namespace path wid^`@`pat :: namespace path
== ==
:: ::
++ etch-wail ++ etch-wail
|= [=path num=@ud] |= w=wail
^- hoot ^- @ ^- @
?- -.w
%0 (lsh 3 (etch-peep +.w)) :: tag byte
==
::
++ make-shot
|= w=wail
^- shot
=/ sic (mod life.ames-state 16) =/ sic (mod life.ames-state 16)
=/ ric (mod life.peer-state 16) =/ ric (mod life.peer-state 16)
=/ syn (lsh [3 64] dat:(etch-peep path num)) [[our her] req=& sam=| sic ric ~ (etch-wail w)]
(etch-shot [our her] req=& sam=| sic ric ~ syn) ::
:: ::
++ keys ++ keys
|% |%
@ -3851,7 +3849,10 @@
++ fi-gauge (ga metrics.keen (wyt:fi-deq wan.keen)) ++ fi-gauge (ga metrics.keen (wyt:fi-deq wan.keen))
++ fi-wait |=(tim=@da (fi-pass-timer %b %wait tim)) ++ fi-wait |=(tim=@da (fi-pass-timer %b %wait tim))
++ fi-rest |=(tim=@da (fi-pass-timer %b %rest tim)) ++ fi-rest |=(tim=@da (fi-pass-timer %b %rest tim))
++ fi-etch-wail |=(frag=@ud (etch-wail fi-full-path frag)) ::
++ fi-etch-wail
|=(frag=@ud `hoot``@`(etch-shot (make-shot %0 fi-full-path frag)))
::
++ fi-send ++ fi-send
|=(=hoot fine(event-core (send-blob for=| her `@ux`hoot))) |=(=hoot fine(event-core (send-blob for=| her `@ux`hoot)))
:: ::