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

spider: check thread cards to track remote scries

Browse Source
This commit is contained in:
yosoyubik 2023-04-04 14:44:36 +02:00
parent d7df6bcce3
commit 2691d02d28
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
pkg/arvo/app/spider.hoon
View File

@ -367,12 +367,6 @@
=/ pax=path
~| no-file-for-thread+file.p.source
(need (get-fit:clay beak %ted file.p.source))
:: ad-hoc to work only with the -keen/-pine threads -- pine uses keen
:: XX TODO: expand to any thread that performs a remote scry request? how?
::
=? scries.state ?=(?([%ted %keen *] [%ted %pine *]) pax)
=+ !<([~ =ship =path] vase.p.source)
(~(put by scries.state) new-tid ship path)
:_ state
:_ ~
:+ %pass /build/[new-tid]
@ -459,9 +453,14 @@
==
=. running.state (~(put of running.state) yarn eval-form)
=/ =tid (yarn-to-tid yarn)
=. cards.r
%+ turn cards.r
|= =card
=^ new-cards state
^- [(list card) _state]
%+ roll cards.r
|= [=card cards=(list card) s=_state]
:_ =? scries.s ?=([%pass ^ %arvo %a ?(%pine %keen) @ *] card)
(~(put by scries.s) tid &6.card +>+>+>.card)
s
:_ cards
^- ^card
?+ card card
[%pass * *] [%pass [%thread tid p.card] q.card]
@ -472,7 +471,7 @@
^- ^path
[%thread tid path]
==
=. cards (weld cards cards.r)
=. cards (weld cards (flop new-cards))
=^ final-cards=(list card) state
?- -.eval-result.r
%next `state