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

naive: get point data from aggregator

Browse Source
This commit is contained in:
yosoyubik 2021-06-22 15:00:24 +02:00
parent c715ef59fd
commit 2c2c7db981
3 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -151,6 +151,7 @@
[%x %nonce @ @ ~] (nonce i.t.t.path i.t.t.t.path) [%x %nonce @ @ ~] (nonce i.t.t.path i.t.t.t.path)
[%x %spawned @ ~] (spawned i.t.t.path) [%x %spawned @ ~] (spawned i.t.t.path)
[%x %next-batch ~] ``noun+!>(next-batch) [%x %next-batch ~] ``noun+!>(next-batch)
[%x %point @ ~] (point i.t.t.path)
== ==
:: ::
++ pending-by ++ pending-by
@ -230,6 +231,12 @@
^- [=^ship =address:ethereum] ^- [=^ship =address:ethereum]
:- ship :- ship
address:(proxy-from-point:naive %own point) address:(proxy-from-point:naive %own point)
::
++ point
|= wat=@t
?~ ship=(rush wat ;~(pfix sig fed:ag))
``noun+!>(*(unit point:naive))
``noun+!>((get:orm:naive points.pre u.ship))
-- --
:: ::
++ on-arvo ++ on-arvo

4
pkg/arvo/app/azimuth-rpc.hoon
View File

@ -125,7 +125,7 @@
=, azimuth-rpc =, azimuth-rpc
?. ?=([%map *] params) ?. ?=([%map *] params)
[~ ~(parse error:json-rpc id)] [~ ~(parse error:json-rpc id)]
?+ method [~ ~(method error:json-rpc id)] ?+ method [~ ~(method error:json-rpc id)]
%get-point [~ (get-point id +.params point:scry)] %get-point [~ (get-point id +.params point:scry)]
%transfer-point (transfer-point id +.params) %transfer-point (transfer-point id +.params)
%cancel-tx (cancel-tx id +.params) %cancel-tx (cancel-tx id +.params)
@ -155,7 +155,7 @@
|= =ship |= =ship
.^ (unit point:naive) .^ (unit point:naive)
%gx %gx
(~(scry agentio bowl) %azimuth /nas/(scot %p ship)/noun) (~(scry agentio bowl) %aggregator /point/(scot %p ship)/noun)
== ==
:: ::
++ spawned ++ spawned

12
pkg/arvo/app/azimuth.hoon
View File

@ -288,16 +288,8 @@
|= =path |= =path
^- (unit (unit cage)) ^- (unit (unit cage))
?+ path (on-peek:def path) ?+ path (on-peek:def path)
[%x %logs ~] [%x %logs ~] ``logs+!>(logs.state)
``logs+!>(logs.state) [%x %nas ~] ``nas+!>(nas.state)
::
[%x %nas ~]
``nas+!>(nas.state)
::
[%x %nas @t ~]
?~ ship=(rush i.t.t.path ;~(pfix sig fed:ag))
``noun+!>(*(unit point:naive))
``noun+!>((~(get by points.nas.state) u.ship))
== ==
:: ::
++ on-agent ++ on-agent