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

naive: add config action

Browse Source
This commit is contained in:
yosoyubik 2021-06-03 09:11:33 +02:00
parent 943eee1db6
commit fc8e090a29
1 changed files with 38 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

73
pkg/arvo/app/aggregator.hoon
View File

@ -58,17 +58,19 @@
chain-id=@ chain-id=@
== ==
:: ::
+$ action +$ config
$% [%submit force=? sig=@ tx=part-tx] $% [%frequency frequency=@dr]
[%cancel sig=@ keccak=@]
::
[%commit ~] ::TODO maybe pk=(unit @) later
[%frequency frequency=@dr]
[%setkey pk=@] [%setkey pk=@]
[%endpoint endpoint=@t] [%endpoint endpoint=@t]
[%network net=?(%mainnet %ropsten %local)] [%network net=?(%mainnet %ropsten %local)]
[%nonce nonce=@ud] [%nonce nonce=@ud]
[%subs ~] ==
::
+$ action
$% [%submit force=? sig=@ tx=part-tx]
[%cancel sig=@ keccak=@]
[%commit ~] ::TODO maybe pk=(unit @) later
[%config config]
== ==
:: ::
+$ card card:agent:gall +$ card card:agent:gall
@ -438,32 +440,9 @@
|= =action |= =action
^- (quip card _state) ^- (quip card _state)
?- -.action ?- -.action
%commit on-timer %commit on-timer
%frequency [~ state(frequency frequency.action)] %config (on-config +.action)
%nonce [~ state(next-nonce nonce.action)] %cancel !! ::TODO
%endpoint [~ state(endpoint endpoint.action)]
::
%network
:- ~
=/ [contract=@ux chain-id=@]
=< [naive chain-id]
=, azimuth
?- net.action
%mainnet mainnet-contracts
%ropsten ropsten-contracts
%local local-contracts
==
state(contract contract, chain-id chain-id)
::
%subs
:_ state
[%pass /azimuth %agent [our.bowl %azimuth] %watch /aggregator]~
::
%setkey
::TODO what about existing sending entries?
?~ pk=(de:base16:mimes:html pk.action)
`state
[(get-nonce q.u.pk) state(pk q.u.pk)]
:: ::
%submit %submit
=^ success state =^ success state
@ -475,9 +454,33 @@
~? =(success |) ~? =(success |)
[dap.bowl %submit-failed action] [dap.bowl %submit-failed action]
[~ state] [~ state]
==
::
++ on-config
|= =config
^- (quip card _state)
?- -.config
%frequency [~ state(frequency frequency.config)]
%nonce [~ state(next-nonce nonce.config)]
%endpoint [~ state(endpoint endpoint.config)]
:: ::
%cancel %network
!! ::TODO :- ~
=/ [contract=@ux chain-id=@]
=< [naive chain-id]
=, azimuth
?- net.config
%mainnet mainnet-contracts
%ropsten ropsten-contracts
%local local-contracts
==
state(contract contract, chain-id chain-id)
::
%setkey
::TODO what about existing sending entries?
?~ pk=(de:base16:mimes:html pk.config)
`state
[(get-nonce q.u.pk) state(pk q.u.pk)]
== ==
:: TODO: move address to state? :: TODO: move address to state?
:: ::