mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-09-21 15:38:59 +03:00
202 lines
4.8 KiB
Plaintext
202 lines
4.8 KiB
Plaintext
:: pool-group-hook [landscape]:
|
|
::
|
|
:: maintain groups based on invite pool
|
|
::
|
|
:: looks at our invite tree, adds our siblings to group at +group-path
|
|
::
|
|
/- group-store, spider
|
|
/+ ethereum, azimuth, default-agent, verb
|
|
=, ethereum-types
|
|
=, jael
|
|
::
|
|
=> |%
|
|
++ group-path /invite-peers
|
|
++ refresh-rate ~m15
|
|
--
|
|
::
|
|
=> |%
|
|
+$ app-state
|
|
$: %0
|
|
running=(unit =tid:spider)
|
|
url=_'http://eth-mainnet.urbit.org:8545'
|
|
inviter=(unit ship)
|
|
invited=(set ship)
|
|
==
|
|
::
|
|
+$ card card:agent:gall
|
|
--
|
|
::
|
|
:: Main
|
|
::
|
|
=| state=app-state
|
|
::
|
|
%+ verb |
|
|
^- agent:gall
|
|
=<
|
|
|_ =bowl:gall
|
|
+* this .
|
|
do ~(. +> bowl)
|
|
def ~(. (default-agent this %|) bowl)
|
|
::
|
|
++ on-init
|
|
^- (quip card _this)
|
|
=^ cards state
|
|
poll-inviter:do
|
|
[cards this]
|
|
::
|
|
++ on-save !>(state)
|
|
++ on-load
|
|
|= old=vase
|
|
^- (quip card _this)
|
|
[~ this(state !<(app-state old))]
|
|
::
|
|
++ on-agent
|
|
|= [=wire =sign:agent:gall]
|
|
^- (quip card agent:gall)
|
|
?. ?=([%running *] wire)
|
|
(on-agent:def wire sign)
|
|
?- -.sign
|
|
%poke-ack
|
|
?~ p.sign
|
|
[~ this]
|
|
%- (slog leaf+"{(trip dap.bowl)} couldn't start thread" u.p.sign)
|
|
:_ this(running.state ~)
|
|
~[(leave-spider:do t.wire) set-timer:do]
|
|
::
|
|
%watch-ack
|
|
?~ p.sign
|
|
[~ this]
|
|
=/ =tank leaf+"{(trip dap.bowl)} couldn't start listen to thread"
|
|
%- (slog tank u.p.sign)
|
|
[[set-timer:do]~ this(running.state ~)]
|
|
::
|
|
%kick [~ this(running.state ~)]
|
|
%fact
|
|
?+ p.cage.sign (on-agent:def wire sign)
|
|
%thread-fail
|
|
=+ !<([=term =tang] q.cage.sign)
|
|
%- (slog leaf+"{(trip dap.bowl)} failed; will retry" leaf+<term> tang)
|
|
[[set-timer:do]~ this(running.state ~)]
|
|
::
|
|
%thread-done
|
|
?+ t.wire ~|([dap.bowl %unexpected-thread-done wire] !!)
|
|
[%inviter ~]
|
|
=+ !<(res=@t q.cage.sign)
|
|
=/ inviter=ship
|
|
`@`(decode-results:abi:ethereum res [%uint]~)
|
|
:: if we weren't invited by anyone, don't do anything anymore.
|
|
::
|
|
?: =(0 inviter) [~ this(state state(running ~, inviter ~))]
|
|
=. inviter.state `inviter
|
|
=^ cards state
|
|
poll-invited:do
|
|
[cards this]
|
|
::
|
|
[%invited ~]
|
|
=+ !<(res=@t q.cage.sign)
|
|
=/ invited=(list ship)
|
|
;; (list ship)
|
|
(decode-results:abi:ethereum res [%array %uint]~)
|
|
=^ cards state
|
|
(process-invited:do invited)
|
|
[cards this(running.state ~)]
|
|
==
|
|
==
|
|
==
|
|
::
|
|
++ on-arvo
|
|
|= [=wire =sign-arvo]
|
|
^- (quip card _this)
|
|
?+ +<.sign-arvo ~|([dap.bowl %strange-arvo-sign +<.sign-arvo] !!)
|
|
%wake
|
|
=^ cards state
|
|
?~ inviter.state
|
|
poll-inviter:do
|
|
poll-invited:do
|
|
[cards this]
|
|
==
|
|
::
|
|
++ on-poke on-poke:def
|
|
++ on-peek on-peek:def
|
|
++ on-watch on-watch:def
|
|
++ on-leave on-leave:def
|
|
++ on-fail on-fail:def
|
|
--
|
|
::
|
|
|_ =bowl:gall
|
|
++ poke-spider
|
|
|= [=path =cage]
|
|
^- card
|
|
[%pass [%running path] %agent [our.bowl %spider] %poke cage]
|
|
::
|
|
++ watch-spider
|
|
|= [=path =sub=path]
|
|
^- card
|
|
[%pass [%running path] %agent [our.bowl %spider] %watch sub-path]
|
|
::
|
|
++ leave-spider
|
|
|= [=path]
|
|
^- card
|
|
[%pass [%running path] %agent [our.bowl %spider] %leave ~]
|
|
::
|
|
++ new-tid
|
|
|= eny=@uv
|
|
^- @t
|
|
%+ scot %ta
|
|
:((cury cat 3) dap.bowl '_' (scot %uv eny))
|
|
::
|
|
++ start-contract-read
|
|
|= [=wire req=proto-read-request:rpc:ethereum]
|
|
^- (quip card _state)
|
|
=/ new-tid (new-tid eny.bowl)
|
|
=/ args
|
|
[~ `new-tid %eth-read-contract !>([url.state req])]
|
|
:_ state(running `new-tid)
|
|
:~ (watch-spider wire /thread-result/[new-tid])
|
|
(poke-spider wire %spider-start !>(args))
|
|
==
|
|
::
|
|
++ poll-inviter
|
|
^- (quip card _state)
|
|
%+ start-contract-read /inviter
|
|
:+ `'invitedBy'
|
|
delegated-sending:contracts:azimuth
|
|
:- 'invitedBy(uint32)'
|
|
:~ [%uint `@`our.bowl]
|
|
==
|
|
::
|
|
++ poll-invited
|
|
^- (quip card _state)
|
|
?~ inviter.state
|
|
~& [dap.bowl %skipping-poll-invited]
|
|
[~ state]
|
|
%+ start-contract-read /invited
|
|
:+ `'getInvited'
|
|
delegated-sending:contracts:azimuth
|
|
:- 'getInvited(uint32)'
|
|
:~ [%uint `@`u.inviter.state]
|
|
==
|
|
::
|
|
++ process-invited
|
|
|= invited=(list ship)
|
|
=/ new=(list ship)
|
|
%+ skip invited
|
|
~(has in invited.state)
|
|
:_ state(invited (~(gas in invited.state) new))
|
|
:~ set-timer
|
|
::
|
|
:* %pass
|
|
/write
|
|
%agent
|
|
[our.bowl %group-store]
|
|
%poke
|
|
%group-action
|
|
!>([%add (sy new) group-path])
|
|
==
|
|
==
|
|
::
|
|
++ set-timer
|
|
^- card
|
|
[%pass /timer %arvo %b %wait (add now.bowl refresh-rate)]
|
|
--
|