ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-19 04:41:37 +03:00
Code Issues Packages Projects Releases Wiki Activity

clay: request files over scry by tako, not aeon

Browse Source
This commit is contained in:
fang 2022-05-12 17:14:55 +02:00
parent 70aeb2a7c1
commit 0251b127e1
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972
1 changed files with 8 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
pkg/arvo/sys/vane/clay.hoon
View File

@ -325,7 +325,7 @@
=rave
scry=(unit @da) :: if scry, timeout
have=(map lobe fell)
need=(list $@(lobe [=aeon =path =lobe])) :: opt deets for scry
need=(list $@(lobe [=tako =path =lobe])) :: opt deets for scry
nako=(qeu (unit nako))
busy=_|
==
@ -3284,15 +3284,15 @@
++ missing-lobes
|= =nako
=| miss=(set lobe)
^- (list [aeon path lobe])
^- (list [tako path lobe])
=/ yakis ~(tap in lar.nako)
|- ^- (list [aeon path lobe])
|- ^- (list [tako path lobe])
=* yaki-loop $
?~ yakis
~
=/ =norm (~(gut by tom.dom) r.i.yakis nor.dom)
=/ lobes=(list [=path =lobe]) ~(tap by q.i.yakis)
|- ^- (list [aeon path lobe])
|- ^- (list [tako path lobe])
=* blob-loop $
?~ lobes
yaki-loop(yakis t.yakis)
@ -3302,16 +3302,8 @@
(~(has in miss) lobe)
==
blob-loop(lobes t.lobes)
=; =aeon
:- [aeon i.lobes]
blob-loop(lobes t.lobes, miss (~(put in miss) lobe))
:: find the aeon corresponding to the commit containing this lobe.
:: we unfortunately do not have a reverse lookup map.
::
=/ l=(list [a=aeon t=tako]) ~(tap by gar.nako)
|-
?~ l ~|([%missing-aeon-for-tako her syd `@uw`r.i.yakis] !!)
?:(=(r.i.yakis t.i.l) a.i.l $(l t.l))
:- [r.i.yakis i.lobes]
blob-loop(lobes t.lobes, miss (~(put in miss) lobe))
::
:: Receive backfill response
::
@ -3373,7 +3365,7 @@
:: make the request over remote scry
::
=/ =mood
[%x ud+aeon path]:i.need.sat
[%x uv+tako path]:i.need.sat
[`- +]:(send-over-scry %back-index hen her inx syd mood)
:: otherwise, request over ames
::
@ -4938,7 +4930,7 @@
%= update-state-10
|2
:- `(unit @da)`~
^- [(map lobe fell) (list $@(lobe [aeon path lobe])) (qeu (unit nako)) _|]
^- [(map lobe fell) (list $@(lobe [tako path lobe])) (qeu (unit nako)) _|]
%= |2.update-state-10
nako
%- ~(gas to *(qeu (unit nako)))