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

added watched-calls

Browse Source
This commit is contained in:
timlucmiptev 2020-10-02 11:17:07 +03:00 committed by ixv
parent 9c08a9a5d3
commit a0645a0c30
2 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
app/btc-node-hook.hoon
View File

@ -1,8 +1,8 @@
:: btc-node-hook: send JSON rpc requests to bitcoin full node :: btc-node-hook: send JSON rpc requests to bitcoin full node
:: and poke the responses into the btc-node-store :: and poke the responses into the btc-node-store
:: ::
/- *btc-node-hook, *btc-node-store, sole /- *btc-node-hook, *btc-node-store
/+ default-agent, sole, base64, lib=btc-node-json, verb /+ default-agent, base64, lib=btc-node-json, verb, dbug
:: ::
=> |% => |%
+$ card card:agent:gall +$ card card:agent:gall
@ -14,6 +14,7 @@
$: user=@t $: user=@t
pass=@t pass=@t
endpoint=@t endpoint=@t
watched-calls=(set term)
== ==
-- --
:: ::
@ -21,6 +22,7 @@
=* state - =* state -
:: Main :: Main
:: ::
%- agent:dbug
%+ verb | %+ verb |
^- agent:gall ^- agent:gall
=< |_ =bowl:gall =< |_ =bowl:gall
@ -31,7 +33,7 @@
:: ::
++ on-init ++ on-init
^- (quip card _this) ^- (quip card _this)
[~ this(user '', pass '', endpoint '')] [~ this(user '', pass '', endpoint '', watched-calls *(set term))]
:: ::
++ on-save !>(state) ++ on-save !>(state)
++ on-load ++ on-load
@ -41,6 +43,7 @@
++ on-poke ++ on-poke
|= [=mark =vase] |= [=mark =vase]
^- (quip card _this) ^- (quip card _this)
?> (team:title our.bowl src.bowl)
=^ cards state =^ cards state
?+ mark (on-poke:def mark vase) ?+ mark (on-poke:def mark vase)
%btc-node-hook-action %btc-node-hook-action
@ -51,7 +54,14 @@
== ==
[cards this] [cards this]
:: ::
++ on-watch on-watch:def ++ on-watch
|= pax=path
^- (quip card _this)
:: We restrict access to the local ship and its moons,
:: because we handle permissioning at higher-level agents.
::
?> (team:title our.bowl src.bowl)
`this
++ on-leave on-leave:def ++ on-leave on-leave:def
++ on-peek on-peek:def ++ on-peek on-peek:def
++ on-agent on-agent:def ++ on-agent on-agent:def

1
app/btc-node-store.hoon
View File

@ -53,6 +53,7 @@
|= [=mark =vase] |= [=mark =vase]
^- (quip card _this) ^- (quip card _this)
|^ |^
?> (team:title our.bowl src.bowl)
?+ mark (on-poke:def mark vase) ?+ mark (on-poke:def mark vase)
%btc-node-store-action %btc-node-store-action
(store-action !<(btc-node-store-action vase)) (store-action !<(btc-node-store-action vase))