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

pull-hook: delay scry in on-load

Browse Source
This commit is contained in:
Liam Fitzgerald 2021-03-25 11:32:32 +10:00
parent ce1520ab1a
commit 7b378f435d
No known key found for this signature in database
GPG Key ID: D390E12C61D1CFFB
1 changed files with 24 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
pkg/arvo/lib/pull-hook.hoon
View File

@ -208,6 +208,8 @@
hc ~(. +> bowl) hc ~(. +> bowl)
def ~(. (default-agent this %|) bowl) def ~(. (default-agent this %|) bowl)
ver ~(. versioning [bowl [update-mark version min-version]:config]) ver ~(. versioning [bowl [update-mark version min-version]:config])
io ~(. agentio bowl)
pass pass:io
:: ::
++ on-init ++ on-init
^- [(list card:agent:gall) agent:gall] ^- [(list card:agent:gall) agent:gall]
@ -226,11 +228,8 @@
=^ og-cards pull-hook =^ og-cards pull-hook
(on-load:og inner-state.old) (on-load:og inner-state.old)
=. state old =. state old
=^ [restart-cards=(list card) hook=_pull-hook] state
restart-subs
=. pull-hook hook
:_ this :_ this
:(weld cards og-cards restart-cards) :(weld cards og-cards (poke-self:pass kick+!>(%kick))^~)
:: ::
%2 $(old (state-to-3 old)) %2 $(old (state-to-3 old))
%1 $(old [%2 +.old ~]) %1 $(old [%2 +.old ~])
@ -252,18 +251,6 @@
:- resource :- resource
[ship %active ~] [ship %active ~]
:: ::
++ restart-subs
=| acc-cards=(list card)
=/ subs=(list resource)
~(tap in ~(key by tracking))
|- ^- [[(list card) _pull-hook] _state]
?~ subs
[[acc-cards pull-hook] state]
=* rid i.subs
=^ [crds=(list card) hook=_pull-hook] state
tr-abet:tr-on-load:(tr-abed:track-engine:hc rid)
=. pull-hook hook
$(subs t.subs, acc-cards (weld acc-cards crds))
-- --
:: ::
++ on-save ++ on-save
@ -279,6 +266,13 @@
=^ cards pull-hook =^ cards pull-hook
(on-poke:og mark vase) (on-poke:og mark vase)
[cards this] [cards this]
::
%kick
?> (team:title [our src]:bowl)
=^ [cards=(list card:agent:gall) hook=_pull-hook] state
restart-subs:hc
=. pull-hook hook
[cards this]
:: ::
%sane %sane
?> (team:title [our src]:bowl) ?> (team:title [our src]:bowl)
@ -365,6 +359,20 @@
virt ~(. pull-hook-virt bowl) virt ~(. pull-hook-virt bowl)
ver ~(. versioning [bowl [update-mark version min-version]:config]) ver ~(. versioning [bowl [update-mark version min-version]:config])
:: ::
++ restart-subs
=| acc-cards=(list card)
=/ subs=(list resource)
~(tap in ~(key by tracking))
|- ^- [[(list card) _pull-hook] _state]
?~ subs
[[acc-cards pull-hook] state]
=* rid i.subs
=^ [crds=(list card) hook=_pull-hook] state
tr-abet:tr-on-load:(tr-abed:track-engine rid)
=. pull-hook hook
$(subs t.subs, acc-cards (weld acc-cards crds))
::
++ track-engine ++ track-engine
|_ [cards=(list card) rid=resource =ship =status gone=_|] |_ [cards=(list card) rid=resource =ship =status gone=_|]
:: +| %init: state machine setup and manipulation :: +| %init: state machine setup and manipulation