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

group-store: cleanup sign handling

Browse Source
This commit is contained in:
Liam Fitzgerald 2022-11-29 13:17:28 +10:00
parent 06a2fe5b69
commit 37339bed31
1 changed files with 20 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
pkg/landscape/app/group-store.hoon
View File

@ -186,30 +186,26 @@
++ on-agent ++ on-agent
|= [=wire =sign:agent:gall] |= [=wire =sign:agent:gall]
^- (quip card _this) ^- (quip card _this)
?: ?=([%pyre *] wire) =^ cards state
=^ cards state ?+ wire [- state]:(on-agent:def wire sign)
(take-pyre:gc t.wire sign) [%pyre *] (take-pyre:gc t.wire sign)
[cards this] [%gladio @ ~] (take-migrate:gc sign)
?: ?=([%gladio ~] wire) ::
(on-agent:def wire sign) [%try-rejoin @ *]
?: ?=([%gladio @ ~] wire) ?> ?=(%poke-ack -.sign)
=^ cards state =/ rid=resource (de-path:resource t.t.wire)
(take-migrate:gc sign) ?~ p.sign
[cards this] =/ =cage
?. ?=([%try-rejoin @ *] wire) [%pull-hook-action !>([%add entity.rid rid])]
(on-agent:def wire sign) :_ state
?> ?=(%poke-ack -.sign) [%pass / %agent [our.bowl %group-pull-hook] %poke cage]~
=/ rid=resource (de-path:resource t.t.wire) =/ nack-count=@ud (slav %ud i.t.wire)
?~ p.sign =/ wakeup=@da
=/ =cage (add now.bowl (mul ~s1 (bex (min 19 nack-count))))
[%pull-hook-action !>([%add entity.rid rid])] :_ state
:_ this [%pass wire %arvo %b %wait wakeup]~
[%pass / %agent [our.bowl %group-pull-hook] %poke cage]~ ==
=/ nack-count=@ud (slav %ud i.t.wire) [cards this]
=/ wakeup=@da
(add now.bowl (mul ~s1 (bex (min 19 nack-count))))
:_ this
[%pass wire %arvo %b %wait wakeup]~
:: ::
++ on-arvo ++ on-arvo
|= [=wire =sign-arvo] |= [=wire =sign-arvo]