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

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