mirror of
https://github.com/urbit/shrub.git
synced 2024-12-24 11:24:21 +03:00
w btc-node
This commit is contained in:
timlucmiptev
ixv
parent
129fe493ba
commit
ec6b540483
358
app/btc-node-hook.hoon
Normal file
358
app/btc-node-hook.hoon
Normal file
@ -0,0 +1,358 @@
|
|||||||
|
:: btc-node-hook: send JSON rpc requests to bitcoin full node
|
||||||
|
:: and poke the responses into the btc-node-store
|
||||||
|
::
|
||||||
|
/- *btc-node-hook, *btc-node-store, sole
|
||||||
|
/+ default-agent, sole, base64, lib=btc-node-json, verb
|
||||||
|
::
|
||||||
|
=> |%
|
||||||
|
+$ card card:agent:gall
|
||||||
|
+$ versioned-state
|
||||||
|
$% [%0 state-zero]
|
||||||
|
==
|
||||||
|
::
|
||||||
|
+$ state-zero
|
||||||
|
$: user=@t
|
||||||
|
pass=@t
|
||||||
|
endpoint=@t
|
||||||
|
==
|
||||||
|
--
|
||||||
|
::
|
||||||
|
=| state-zero
|
||||||
|
=* state -
|
||||||
|
:: Main
|
||||||
|
::
|
||||||
|
%+ verb |
|
||||||
|
^- agent:gall
|
||||||
|
=< |_ =bowl:gall
|
||||||
|
+* this .
|
||||||
|
btc-core +>
|
||||||
|
bc ~(. btc-core bowl)
|
||||||
|
def ~(. (default-agent this %|) bowl)
|
||||||
|
::
|
||||||
|
++ on-init
|
||||||
|
^- (quip card _this)
|
||||||
|
[~ this(user '', pass '', endpoint '')]
|
||||||
|
::
|
||||||
|
++ on-save !>(state)
|
||||||
|
++ on-load
|
||||||
|
|= old=vase
|
||||||
|
`this(state !<(state-zero old))
|
||||||
|
::
|
||||||
|
++ on-poke
|
||||||
|
|= [=mark =vase]
|
||||||
|
^- (quip card _this)
|
||||||
|
=^ cards state
|
||||||
|
?+ mark (on-poke:def mark vase)
|
||||||
|
%btc-node-hook-action
|
||||||
|
(handle-action:bc !<(btc-node-hook-action vase))
|
||||||
|
::
|
||||||
|
%btc-node-hook-command
|
||||||
|
(handle-command:bc !<(btc-node-hook-command vase))
|
||||||
|
==
|
||||||
|
[cards this]
|
||||||
|
::
|
||||||
|
++ on-watch on-watch:def
|
||||||
|
++ on-leave on-leave:def
|
||||||
|
++ on-peek on-peek:def
|
||||||
|
++ on-agent on-agent:def
|
||||||
|
++ on-arvo
|
||||||
|
|= [=wire =sign-arvo]
|
||||||
|
^- (quip card _this)
|
||||||
|
=* response client-response.sign-arvo
|
||||||
|
=^ cards state
|
||||||
|
?+ +<.sign-arvo (on-arvo:def wire sign-arvo)
|
||||||
|
%http-response (http-response:bc wire response)
|
||||||
|
==
|
||||||
|
[cards this]
|
||||||
|
::
|
||||||
|
++ on-fail on-fail:def
|
||||||
|
--
|
||||||
|
::
|
||||||
|
|_ =bowl:gall
|
||||||
|
::
|
||||||
|
++ handle-action
|
||||||
|
|= act=btc-node-hook-action
|
||||||
|
^- (quip card _state)
|
||||||
|
=/ body=request:rpc:jstd
|
||||||
|
(request-to-rpc:btc-rpc:lib act)
|
||||||
|
=/ =header-list:http
|
||||||
|
:~ ['Content-Type' 'application/json']
|
||||||
|
:- 'Authorization'
|
||||||
|
;: (cury cat 3)
|
||||||
|
'Basic '
|
||||||
|
%- ~(en base64 | &)
|
||||||
|
(as-octs:mimes:html :((cury cat 3) user ':' pass))
|
||||||
|
== ==
|
||||||
|
=/ req=request:http
|
||||||
|
:* %'POST'
|
||||||
|
(endpoint-url act)
|
||||||
|
header-list
|
||||||
|
=, html
|
||||||
|
%- some
|
||||||
|
%- as-octt:mimes
|
||||||
|
(en-json (request-to-json:rpc:jstd body))
|
||||||
|
==
|
||||||
|
=/ out *outbound-config:iris
|
||||||
|
:_ state
|
||||||
|
[%pass /[(scot %da now.bowl)] %arvo %i %request req out]~
|
||||||
|
::
|
||||||
|
++ handle-command
|
||||||
|
|= comm=btc-node-hook-command
|
||||||
|
^- (quip card _state)
|
||||||
|
?+ -.comm ~| [%unsupported-hook-command -.comm] !!
|
||||||
|
%credentials
|
||||||
|
:_ state(endpoint url.comm, user user.comm, pass pass.comm)
|
||||||
|
[%pass / %arvo %d %flog [%text "credentials updated..."]]~
|
||||||
|
==
|
||||||
|
::
|
||||||
|
++ httr-to-rpc-response
|
||||||
|
|= hit=httr:eyre
|
||||||
|
^- response:rpc:jstd
|
||||||
|
~| hit
|
||||||
|
=/ jon=json (need (de-json:html q:(need r.hit)))
|
||||||
|
?. =(%2 (div p.hit 100))
|
||||||
|
(parse-error jon)
|
||||||
|
=, dejs-soft:format
|
||||||
|
^- response:rpc:jstd
|
||||||
|
=; dere
|
||||||
|
=+ res=((ar dere) jon)
|
||||||
|
?~ res (need (dere jon))
|
||||||
|
[%batch u.res]
|
||||||
|
|= jon=json
|
||||||
|
^- (unit response:rpc:jstd)
|
||||||
|
=/ res=[id=(unit @t) res=(unit json) err=(unit json)]
|
||||||
|
%. jon
|
||||||
|
=, dejs:format
|
||||||
|
=- (ou -)
|
||||||
|
:~ ['id' (uf ~ (mu so))]
|
||||||
|
['result' (uf ~ (mu same))]
|
||||||
|
['error' (uf ~ (mu same))]
|
||||||
|
==
|
||||||
|
?: ?=([^ * ~] res)
|
||||||
|
`[%result [u.id.res ?~(res.res ~ u.res.res)]]
|
||||||
|
~| jon
|
||||||
|
`(parse-error jon)
|
||||||
|
::
|
||||||
|
++ parse-error
|
||||||
|
|= =json
|
||||||
|
^- response:rpc:jstd
|
||||||
|
:- %error
|
||||||
|
?~ json ['' '' '']
|
||||||
|
%. json
|
||||||
|
=, dejs:format
|
||||||
|
=- (ou -)
|
||||||
|
:~ =- ['id' (uf '' (cu - (mu so)))]
|
||||||
|
|*(a=(unit) ?~(a '' u.a))
|
||||||
|
:- 'error'
|
||||||
|
=- (uf ['' ''] -)
|
||||||
|
=- (cu |*(a=(unit) ?~(a ['' ''] u.a)) (mu (ou -)))
|
||||||
|
:~ ['code' (uf '' no)]
|
||||||
|
['message' (uf '' so)]
|
||||||
|
== ==
|
||||||
|
::
|
||||||
|
++ http-response
|
||||||
|
|= [=wire response=client-response:iris]
|
||||||
|
^- (quip card _state)
|
||||||
|
?. ?=(%finished -.response)
|
||||||
|
[~ state]
|
||||||
|
=* status status-code.response-header.response
|
||||||
|
=/ rpc-resp=response:rpc:jstd
|
||||||
|
%- httr-to-rpc-response
|
||||||
|
%+ to-httr:iris
|
||||||
|
response-header.response
|
||||||
|
full-file.response
|
||||||
|
?. ?=([%result *] rpc-resp)
|
||||||
|
~& [%error +.rpc-resp]
|
||||||
|
[~ state]
|
||||||
|
%- handle-btc-response
|
||||||
|
(parse-response:btc-rpc:lib rpc-resp)
|
||||||
|
::
|
||||||
|
++ handle-btc-response
|
||||||
|
|= btc-resp=btc-node-hook-response
|
||||||
|
^- (quip card _state)
|
||||||
|
:_ state
|
||||||
|
^- (list card)
|
||||||
|
?+ -.btc-resp
|
||||||
|
:: By default we just print all RPC responses that are not
|
||||||
|
:: considered here explicitly for proper format printing or
|
||||||
|
:: for being passed on to the store app.
|
||||||
|
::
|
||||||
|
~&(btc-resp ~)
|
||||||
|
::
|
||||||
|
:: %abandon-transaction
|
||||||
|
:: %abort-rescan
|
||||||
|
:: %add-multisig-address
|
||||||
|
:: %backup-wallet
|
||||||
|
:: %bump-fee
|
||||||
|
%create-wallet
|
||||||
|
=/ btc-store-req=btc-node-store-action
|
||||||
|
:+ %add-wallet name.btc-resp
|
||||||
|
?:(=('' warning.btc-resp) ~ (some warning.btc-resp))
|
||||||
|
[(btc-node-store-poke /store btc-store-req)]~
|
||||||
|
::
|
||||||
|
:: %dump-privkey
|
||||||
|
:: %dump-wallet
|
||||||
|
:: %encrypt-wallet
|
||||||
|
:: %get-addresses-by-label
|
||||||
|
::
|
||||||
|
%get-address-info
|
||||||
|
~&([%address-info +.btc-resp] ~)
|
||||||
|
::
|
||||||
|
%get-balance
|
||||||
|
~&([%amount (trip +.btc-resp)] ~)
|
||||||
|
::
|
||||||
|
:: %get-balance
|
||||||
|
:: %get-new-address
|
||||||
|
:: %get-raw-change-address
|
||||||
|
:: %get-received-by-address
|
||||||
|
:: %get-received-by-label
|
||||||
|
:: %get-transaction
|
||||||
|
:: %get-unconfirmed-balance
|
||||||
|
::
|
||||||
|
%get-wallet-info
|
||||||
|
^- (list card)
|
||||||
|
=/ btc-store-req=btc-node-store-action
|
||||||
|
[%update-wallet wallet-name.btc-resp +>:btc-resp]
|
||||||
|
[(btc-node-store-poke /update btc-store-req)]~
|
||||||
|
::
|
||||||
|
:: %import-address
|
||||||
|
:: %import-multi
|
||||||
|
:: %import-privkey
|
||||||
|
:: %import-pruned-funds
|
||||||
|
:: %import-pubkey
|
||||||
|
:: %import-wallet
|
||||||
|
:: %key-pool-refill
|
||||||
|
:: %list-address-groupings
|
||||||
|
:: %list-labels
|
||||||
|
:: %list-lock-unspent
|
||||||
|
:: %list-received-by-address
|
||||||
|
:: %list-received-by-label
|
||||||
|
:: %lists-in-ceblock
|
||||||
|
::
|
||||||
|
%list-transactions
|
||||||
|
~&([%transactions +.btc-resp] ~)
|
||||||
|
::
|
||||||
|
:: %list-unspent
|
||||||
|
:: %list-wallet-dir
|
||||||
|
::
|
||||||
|
%list-wallets
|
||||||
|
^- (list card)
|
||||||
|
:~ (btc-node-store-poke /list-wallets [%list-wallets ~])
|
||||||
|
:* %pass / %arvo %d %flog
|
||||||
|
%text "remote-wallets={<`wain`wallets.btc-resp>}"
|
||||||
|
== ==
|
||||||
|
::
|
||||||
|
%load-wallet
|
||||||
|
[(btc-node-store-poke /load [%load-wallet name.btc-resp])]~
|
||||||
|
::
|
||||||
|
:: %lock-unspent
|
||||||
|
:: %remove-pruned-funds
|
||||||
|
:: %rescan-blockchain
|
||||||
|
:: %send-many
|
||||||
|
:: %send-to-address
|
||||||
|
:: %set-hd-seed
|
||||||
|
:: %set-label
|
||||||
|
:: %set-tx-fee
|
||||||
|
:: %sign-message
|
||||||
|
:: %sign-raw-transaction-with-wallet
|
||||||
|
:: %unload-wallet
|
||||||
|
:: %wallet-create-fundedpsbt
|
||||||
|
:: %wallet-lock
|
||||||
|
:: %wallet-passphrase
|
||||||
|
:: %wallet-passphrase-change
|
||||||
|
:: %wallet-process-psbt
|
||||||
|
==
|
||||||
|
::
|
||||||
|
++ btc-node-store-poke
|
||||||
|
|= [=wire act=btc-node-store-action]
|
||||||
|
^- card
|
||||||
|
:* %pass
|
||||||
|
wire
|
||||||
|
%agent
|
||||||
|
[our.bowl %btc-node-store]
|
||||||
|
%poke
|
||||||
|
[%btc-node-store-action !>(act)]
|
||||||
|
==
|
||||||
|
::
|
||||||
|
++ default-wallet
|
||||||
|
.^ @t
|
||||||
|
%gx
|
||||||
|
(scot %p our.bowl)
|
||||||
|
%btc-node-store
|
||||||
|
(scot %da now.bowl)
|
||||||
|
/default-wallet/noun
|
||||||
|
==
|
||||||
|
::
|
||||||
|
++ n-wallets
|
||||||
|
.^ @ud
|
||||||
|
%gx
|
||||||
|
(scot %p our.bowl)
|
||||||
|
%btc-node-store
|
||||||
|
(scot %da now.bowl)
|
||||||
|
/n-wallets/noun
|
||||||
|
==
|
||||||
|
::
|
||||||
|
++ endpoint-url
|
||||||
|
|= [act=btc-node-hook-action]
|
||||||
|
^- @t
|
||||||
|
?. ?| ?=(%abandon-transaction -.act)
|
||||||
|
?=(%abort-rescan -.act)
|
||||||
|
?=(%add-multisig-address -.act)
|
||||||
|
?=(%backup-wallet -.act)
|
||||||
|
?=(%bump-fee -.act)
|
||||||
|
?=(%dump-privkey -.act)
|
||||||
|
?=(%dump-wallet -.act)
|
||||||
|
?=(%encrypt-wallet -.act)
|
||||||
|
?=(%fund-raw-transaction -.act)
|
||||||
|
?=(%get-balance -.act)
|
||||||
|
?=(%get-balances -.act)
|
||||||
|
?=(%get-addresses-by-label -.act)
|
||||||
|
?=(%get-address-info -.act)
|
||||||
|
?=(%get-new-address -.act)
|
||||||
|
?=(%get-raw-change-address -.act)
|
||||||
|
?=(%get-received-by-address -.act)
|
||||||
|
?=(%get-received-by-label -.act)
|
||||||
|
?=(%get-transaction -.act)
|
||||||
|
?=(%get-unconfirmed-balance -.act)
|
||||||
|
?=(%get-wallet-info -.act)
|
||||||
|
?=(%import-address -.act)
|
||||||
|
?=(%import-multi -.act)
|
||||||
|
?=(%import-privkey -.act)
|
||||||
|
?=(%import-pruned-funds -.act)
|
||||||
|
?=(%import-pubkey -.act)
|
||||||
|
?=(%import-wallet -.act)
|
||||||
|
?=(%key-pool-refill -.act)
|
||||||
|
?=(%list-address-groupings -.act)
|
||||||
|
?=(%list-labels -.act)
|
||||||
|
?=(%list-lock-unspent -.act)
|
||||||
|
?=(%list-received-by-address -.act)
|
||||||
|
?=(%list-received-by-label -.act)
|
||||||
|
?=(%lists-in-ceblock -.act)
|
||||||
|
?=(%list-transactions -.act)
|
||||||
|
?=(%list-unspent -.act)
|
||||||
|
?=(%lock-unspent -.act)
|
||||||
|
?=(%remove-pruned-funds -.act)
|
||||||
|
?=(%rescan-blockchain -.act)
|
||||||
|
?=(%send-many -.act)
|
||||||
|
?=(%send-to-address -.act)
|
||||||
|
?=(%set-hd-seed -.act)
|
||||||
|
?=(%set-label -.act)
|
||||||
|
?=(%set-tx-fee -.act)
|
||||||
|
?=(%sign-message -.act)
|
||||||
|
?=(%sign-raw-transaction-with-wallet -.act)
|
||||||
|
?=(%wallet-create-fundedpsbt -.act)
|
||||||
|
?=(%wallet-lock -.act)
|
||||||
|
?=(%wallet-passphrase -.act)
|
||||||
|
?=(%wallet-passphrase-change -.act)
|
||||||
|
?=(%wallet-process-psbt -.act)
|
||||||
|
==
|
||||||
|
endpoint
|
||||||
|
;: (cury cat 3)
|
||||||
|
endpoint
|
||||||
|
'wallet/'
|
||||||
|
::
|
||||||
|
?: ?=([?(%dump-wallet %import-wallet) filename=@t] act)
|
||||||
|
filename.act
|
||||||
|
default-wallet
|
||||||
|
==
|
||||||
|
--
|
||||||
156
app/btc-node-store.hoon
Normal file
156
app/btc-node-store.hoon
Normal file
@ -0,0 +1,156 @@
|
|||||||
|
:: btc-node-store: data store for state received from a bitcoin full node
|
||||||
|
::
|
||||||
|
:: data: scry command:
|
||||||
|
::
|
||||||
|
:: default-wallet .^(@t %gx /=btc-node-store=/default-wallet/noun)
|
||||||
|
:: n-wallets .^(@ud %gx /=btc-node-store=/n-wallets/noun)
|
||||||
|
:: [def-wallet attr] .^((unit wallet) %gx /=btc-node-store=/wallet/noun)
|
||||||
|
:: [name attr] .^((unit wallet) %gx /=btc-node-store=/wallet/<name>/noun)
|
||||||
|
::
|
||||||
|
::
|
||||||
|
/- *btc-node-store
|
||||||
|
/+ *btc-node-json, default-agent, verb
|
||||||
|
::
|
||||||
|
=> |%
|
||||||
|
::
|
||||||
|
+$ card card:agent:gall
|
||||||
|
::
|
||||||
|
+$ state
|
||||||
|
$% [%0 state-zero]
|
||||||
|
==
|
||||||
|
::
|
||||||
|
+$ state-zero
|
||||||
|
$: =wallets
|
||||||
|
default-wallet=@t
|
||||||
|
==
|
||||||
|
--
|
||||||
|
::
|
||||||
|
=| state-zero
|
||||||
|
=* state -
|
||||||
|
:: Main
|
||||||
|
::
|
||||||
|
%+ verb |
|
||||||
|
^- agent:gall
|
||||||
|
=< |_ =bowl:gall
|
||||||
|
+* this .
|
||||||
|
btc-core +>
|
||||||
|
bc ~(. btc-core bowl)
|
||||||
|
def ~(. (default-agent this %|) bowl)
|
||||||
|
::
|
||||||
|
++ on-init
|
||||||
|
^- (quip card _this)
|
||||||
|
:- ~
|
||||||
|
%_ this
|
||||||
|
wallets (~(put by wallets) [*@t *wallet])
|
||||||
|
==
|
||||||
|
::
|
||||||
|
++ on-save !>(state)
|
||||||
|
++ on-load
|
||||||
|
|= old=vase
|
||||||
|
`this(state !<(state-zero old))
|
||||||
|
::
|
||||||
|
++ on-poke
|
||||||
|
|= [=mark =vase]
|
||||||
|
^- (quip card _this)
|
||||||
|
|^
|
||||||
|
?+ mark (on-poke:def mark vase)
|
||||||
|
%btc-node-store-action
|
||||||
|
(store-action !<(btc-node-store-action vase))
|
||||||
|
::
|
||||||
|
%btc-node-store-command
|
||||||
|
(store-command !<(btc-node-store-command vase))
|
||||||
|
==
|
||||||
|
::
|
||||||
|
++ store-action
|
||||||
|
|= action=btc-node-store-action
|
||||||
|
^- (quip card _this)
|
||||||
|
=^ cards state
|
||||||
|
?+ -.action ~|([%unsupported-action -.action] !!)
|
||||||
|
%add-wallet (handle-add:bc +.action)
|
||||||
|
%load-wallet (handle-switch:bc +.action)
|
||||||
|
%list-wallets handle-list-wallet:bc
|
||||||
|
%update-wallet (handle-update-wallet:bc +.action)
|
||||||
|
==
|
||||||
|
[cards this]
|
||||||
|
::
|
||||||
|
++ store-command
|
||||||
|
|= command=btc-node-store-command
|
||||||
|
^- (quip card _this)
|
||||||
|
=^ cards state
|
||||||
|
?+ -.command ~|([%unsupported-command -.command] !!)
|
||||||
|
%switch-wallet (handle-switch:bc +.command)
|
||||||
|
==
|
||||||
|
[cards this]
|
||||||
|
--
|
||||||
|
++ on-watch on-watch:def
|
||||||
|
++ on-leave on-leave:def
|
||||||
|
:: +on-peek: read from app state
|
||||||
|
::
|
||||||
|
++ on-peek
|
||||||
|
|= =path
|
||||||
|
^- (unit (unit cage))
|
||||||
|
?+ path (on-peek:def path)
|
||||||
|
[%x %default-wallet ~] ``noun+!>(default-wallet)
|
||||||
|
[%x %n-wallets ~] ``noun+!>(~(wyt by wallets))
|
||||||
|
[%x %wallet @t ~] ``noun+!>((~(get by wallets) i.t.t.path))
|
||||||
|
[%x %wallet ~] ``noun+!>((~(get by wallets) default-wallet))
|
||||||
|
==
|
||||||
|
::
|
||||||
|
++ on-agent on-agent:def
|
||||||
|
++ on-arvo on-arvo:def
|
||||||
|
++ on-fail on-fail:def
|
||||||
|
--
|
||||||
|
::
|
||||||
|
|_ =bowl:gall
|
||||||
|
::
|
||||||
|
++ handle-add
|
||||||
|
|= [name=@t warning=(unit @t)]
|
||||||
|
^- (quip card _state)
|
||||||
|
?: (~(has by wallets) name)
|
||||||
|
~& "This wallet already exists..."
|
||||||
|
[~ state]
|
||||||
|
:- ~
|
||||||
|
~& "Wallet {<name>} added succesfully..."
|
||||||
|
%_ state
|
||||||
|
wallets (~(put by wallets) [name name ~])
|
||||||
|
==
|
||||||
|
::
|
||||||
|
++ handle-list-wallet
|
||||||
|
^- (quip card _state)
|
||||||
|
=/ wallet-names=(list @t)
|
||||||
|
(turn ~(tap by wallets) |=([n=@t *] n))
|
||||||
|
:_ state
|
||||||
|
:_ ~
|
||||||
|
:* %pass / %arvo %d %flog
|
||||||
|
%text "local-wallets={<`wain`wallet-names>}"
|
||||||
|
==
|
||||||
|
::
|
||||||
|
++ handle-update-wallet
|
||||||
|
|= [name=@t attrs=wallet-attr]
|
||||||
|
^- (quip card _state)
|
||||||
|
=/ w=wallet [name (some attrs)]
|
||||||
|
:- ~
|
||||||
|
%_ state
|
||||||
|
wallets
|
||||||
|
?: (~(has by wallets) name.w)
|
||||||
|
~& "The wallet exists. Updating..."
|
||||||
|
(~(put by wallets) name.w w)
|
||||||
|
::
|
||||||
|
~& "The wallet doesn't exist. Creating..."
|
||||||
|
(~(put by wallets) [name.w w])
|
||||||
|
==
|
||||||
|
::
|
||||||
|
++ handle-switch
|
||||||
|
|= name=@t
|
||||||
|
^- (quip card _state)
|
||||||
|
:_ state(default-wallet name)
|
||||||
|
:_ ~
|
||||||
|
:* %pass / %arvo %d %flog
|
||||||
|
%text
|
||||||
|
%+ weld
|
||||||
|
"New default-wallet: {<name>}"
|
||||||
|
?: (~(has by wallets) name)
|
||||||
|
""
|
||||||
|
" (wallet is not local)"
|
||||||
|
==
|
||||||
|
--
|
||||||
9
gen/btc-node-hook/action.hoon
Normal file
9
gen/btc-node-hook/action.hoon
Normal file
@ -0,0 +1,9 @@
|
|||||||
|
:: Sends an action to the BTC hook app
|
||||||
|
::
|
||||||
|
/- *btc-node-hook
|
||||||
|
::
|
||||||
|
:- %say
|
||||||
|
|= $: [now=@da eny=@uvJ =beak]
|
||||||
|
[[act=btc-node-hook-action ~] ~]
|
||||||
|
==
|
||||||
|
[%btc-node-hook-action act]
|
||||||
16
gen/btc-node-hook/command.hoon
Normal file
16
gen/btc-node-hook/command.hoon
Normal file
@ -0,0 +1,16 @@
|
|||||||
|
:: Sends a command to the BTC hook app
|
||||||
|
::
|
||||||
|
:: Commands:
|
||||||
|
::
|
||||||
|
:: [%credentials 'http://127.0.0.1:18443/' 'user' 'password']
|
||||||
|
::
|
||||||
|
/- *btc-node-hook
|
||||||
|
::
|
||||||
|
:- %say
|
||||||
|
|= $: [now=@da eny=@uvJ =beak]
|
||||||
|
[[comm=btc-node-hook-command ~] ~]
|
||||||
|
==
|
||||||
|
:- %btc-node-hook-command
|
||||||
|
?+ -.comm ~| [%unsupported-command -.comm] !!
|
||||||
|
%credentials comm
|
||||||
|
==
|
||||||
16
gen/btc-node-store/command.hoon
Normal file
16
gen/btc-node-store/command.hoon
Normal file
@ -0,0 +1,16 @@
|
|||||||
|
:: Sends a command to the BTC store app
|
||||||
|
::
|
||||||
|
:: Commands:
|
||||||
|
::
|
||||||
|
:: > :btc-node-store|command [%switch-wallet 'local']
|
||||||
|
::
|
||||||
|
/- *btc-node-store
|
||||||
|
::
|
||||||
|
:- %say
|
||||||
|
|= $: [now=@da eny=@uvJ =beak]
|
||||||
|
[[comm=btc-node-store-command ~] ~]
|
||||||
|
==
|
||||||
|
:- %btc-node-store-command
|
||||||
|
?+ -.comm ~|([%unsupported-command -.comm] !!)
|
||||||
|
%switch-wallet comm
|
||||||
|
==
|
||||||
2821
lib/btc-node-json.hoon
Normal file
2821
lib/btc-node-json.hoon
Normal file
File diff suppressed because it is too large
Load Diff
2028
sur/btc-node-hook.hoon
Normal file
2028
sur/btc-node-hook.hoon
Normal file
File diff suppressed because it is too large
Load Diff
155
sur/btc-node-store.hoon
Normal file
155
sur/btc-node-store.hoon
Normal file
@ -0,0 +1,155 @@
|
|||||||
|
=> :: Helper types
|
||||||
|
::
|
||||||
|
|%
|
||||||
|
++ blockhash @ux
|
||||||
|
::
|
||||||
|
+$ purpose ?(%send %receive)
|
||||||
|
+$ address
|
||||||
|
$: address=?(@uc [%bech32 @t])
|
||||||
|
script-pubkey=@ux
|
||||||
|
is-mine=?
|
||||||
|
is-watchonly=?
|
||||||
|
solvable=?
|
||||||
|
desc=(unit @t)
|
||||||
|
is-script=?
|
||||||
|
is-change=?
|
||||||
|
is-witness=?
|
||||||
|
witness-version=(unit @t)
|
||||||
|
witness-program=(unit @ux)
|
||||||
|
script=(unit @t)
|
||||||
|
hex=(unit @ux)
|
||||||
|
pubkeys=(unit (list @ux))
|
||||||
|
sigs-required=(unit @ud)
|
||||||
|
pubkey=(unit @ux)
|
||||||
|
is-compressed=(unit ?)
|
||||||
|
label=(unit @t)
|
||||||
|
timestamp=(unit @t)
|
||||||
|
hd-key-path=(unit @t)
|
||||||
|
hd-seed-id=(unit @ux)
|
||||||
|
hd-master-finger-print=(unit @ux)
|
||||||
|
labels=(list [name=@t =purpose])
|
||||||
|
==
|
||||||
|
::
|
||||||
|
+$ wallet-attr
|
||||||
|
$: wallet-version=@ud
|
||||||
|
balance=@t
|
||||||
|
unconfirmed-balance=@t
|
||||||
|
immature-balance=@t
|
||||||
|
tx-count=@ud
|
||||||
|
key-pool-oldest=@ud
|
||||||
|
key-pool-size=@ud
|
||||||
|
key-pool-size-hd-internal=(unit @ud)
|
||||||
|
unlocked-until=(unit @ud)
|
||||||
|
pay-tx-fee=@t
|
||||||
|
hd-seed-id=(unit @ux)
|
||||||
|
private-keys-enabled=?
|
||||||
|
avoid-reuse=?
|
||||||
|
scanning=?(? [duration=@t progress=@t])
|
||||||
|
==
|
||||||
|
::
|
||||||
|
+$ wallet
|
||||||
|
[name=@t attrs=(unit wallet-attr)]
|
||||||
|
::
|
||||||
|
+$ wallets (map @t wallet)
|
||||||
|
::
|
||||||
|
+$ addresses (list address)
|
||||||
|
--
|
||||||
|
|%
|
||||||
|
::
|
||||||
|
+$ btc-node-store-action action:btc-rpc
|
||||||
|
+$ btc-node-store-update update:btc-rpc
|
||||||
|
+$ btc-node-store-command command:btc-rpc
|
||||||
|
::
|
||||||
|
++ btc-rpc
|
||||||
|
|%
|
||||||
|
:: %action: the result of an RPC action from the full node
|
||||||
|
::
|
||||||
|
+$ action
|
||||||
|
$% :: [%abandon-transaction]
|
||||||
|
:: [%abort-rescan]
|
||||||
|
[%add-multisig-address ~]
|
||||||
|
:: [%backup-wallet ~]
|
||||||
|
:: [%bump-fee]
|
||||||
|
:: Adds a new wallet to the list
|
||||||
|
::
|
||||||
|
[%add-wallet name=@t warning=(unit @t)]
|
||||||
|
:: [%dump-privkey ~]
|
||||||
|
:: [%dump-wallet ~]
|
||||||
|
:: [%encrypt-wallet ~]
|
||||||
|
:: [%get-addresses-by-label]
|
||||||
|
:: [%get-address-info]
|
||||||
|
:: [%get-balance]
|
||||||
|
:: [%get-new-address]
|
||||||
|
:: [%get-raw-change-address]
|
||||||
|
:: [%get-received-by-address]
|
||||||
|
:: [%get-received-by-label]
|
||||||
|
:: [%get-transaction]
|
||||||
|
:: [%get-unconfirmed-balance]
|
||||||
|
:: [%get-wallet-info ~] -> This is replaced by %update
|
||||||
|
[%update-wallet name=@t attrs=wallet-attr]
|
||||||
|
[%import-address ~]
|
||||||
|
[%import-multi ~]
|
||||||
|
[%import-privkey ~]
|
||||||
|
[%import-pruned-funds ~]
|
||||||
|
[%import-pubkey ~]
|
||||||
|
[%import-wallet ~]
|
||||||
|
[%key-pool-refill ~]
|
||||||
|
:: [%list-address-groupings]
|
||||||
|
:: [%list-labels]
|
||||||
|
:: [%list-lock-unspent]
|
||||||
|
:: [%list-received-by-address]
|
||||||
|
:: [%list-received-by-label]
|
||||||
|
:: [%lists-in-ceblock]
|
||||||
|
:: [%list-transactions]
|
||||||
|
:: [%list-unspent]
|
||||||
|
:: [%list-wallet-dir ~]
|
||||||
|
[%list-wallets ~]
|
||||||
|
[%load-wallet name=@t]
|
||||||
|
:: [%lock-unspent]
|
||||||
|
:: [%remove-pruned-funds ~]
|
||||||
|
:: [%rescan-blockchain ~]
|
||||||
|
:: [%send-many ~]
|
||||||
|
:: [%send-to-address ~]
|
||||||
|
:: [%set-hd-seed ~]
|
||||||
|
:: [%set-label ~]
|
||||||
|
:: [%set-tx-fee ~]
|
||||||
|
:: [%sign-message ~]
|
||||||
|
:: [%sign-raw-transaction-with-wallet ~]
|
||||||
|
:: [%unload-wallet ~]
|
||||||
|
:: [%wallet-create-fundedpsbt ~]
|
||||||
|
:: [%wallet-lock ~]
|
||||||
|
:: [%wallet-passphrase ~]
|
||||||
|
:: [%wallet-passphrase-change ~]
|
||||||
|
:: [%wallet-process-psbt ~]
|
||||||
|
:: [%get-zmq-notifications]
|
||||||
|
==
|
||||||
|
::
|
||||||
|
:: %update: modifies data on the %store app
|
||||||
|
::
|
||||||
|
+$ update
|
||||||
|
$% :: Wallet name has changed
|
||||||
|
::
|
||||||
|
[%wallet-name name=@t]
|
||||||
|
:: Updates wallet attributes
|
||||||
|
:: FIXME: all attrs might need to be units...
|
||||||
|
::
|
||||||
|
[%wallet-attrs name=@t attr=wallet-attr]
|
||||||
|
==
|
||||||
|
::
|
||||||
|
:: %command: instruction to perform over the stored data
|
||||||
|
::
|
||||||
|
+$ command
|
||||||
|
$% :: Updated the default wallet stored in btc-node-store
|
||||||
|
::
|
||||||
|
[%switch-wallet @t]
|
||||||
|
::
|
||||||
|
:: Loads an external wallet
|
||||||
|
::
|
||||||
|
[%load-wallet @t]
|
||||||
|
::
|
||||||
|
:: TODO: do the actual syncing
|
||||||
|
::
|
||||||
|
[%sync ~]
|
||||||
|
==
|
||||||
|
--
|
||||||
|
--
|
||||||
Loading…
Reference in New Issue
Block a user