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

cleanup

Browse Source
This commit is contained in:
timlucmiptev 2020-11-19 17:21:32 +02:00 committed by ixv
parent 26f0c76bd0
commit e4f3c6bf9a
2 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
app/btc-wallet-hook.hoon
View File

@ -139,14 +139,15 @@
?. =(payee.act our.bowl)
~[(poke-wallet-hook payee.act act)]
?~ def-wallet ~|("btc-wallet-hook: no def-wallet set" !!)
~[(poke-wallet-store / [%generate-address u.def-wallet %0 `[src.bowl value.act]])]
~[(poke-wallet-store [%generate-address u.def-wallet %0 `[src.bowl value.act]])]
::
%pay-address
:: we get passed address/payer/value
:: TODO: ask wallet to generate txbu for poym
:: TODO: update poym
:: send tx request out for poym
`state
%ret-pay-address
?~ def-wallet ~|("btc-wallet-hook: no def-wallet set" !!)
?> =(payer.act our.bowl)
:_ state
:~ %- poke-wallet-store
[%generate-txbu u.def-wallet fee.btc-state ~[[address.act value.act]]]
==
::
%force-retry
[(retry pend-addr) state]
@ -179,7 +180,7 @@
=/ ureq (~(get by pend-addr) req-id.p.update)
?~ ureq `state
:_ state(pend-addr (~(del by pend-addr) req-id.p.update))
:~ %+ poke-wallet-store /
:~ %- poke-wallet-store
:* %address-info xpub.u.ureq chyg.u.ureq idx.u.ureq
utxos.body.p.update used.body.p.update blockcount.body.p.update
==
@ -209,11 +210,12 @@
::
?~ meta.upd ~&(> address.upd `state)
=/ [payer=ship value=sats] u.meta.upd
:- ~[(poke-wallet-hook payer [%pay-address address.upd payer value])]
:- ~[(poke-wallet-hook payer [%ret-pay-address address.upd payer value])]
(update-piym address.upd u.meta.upd)
::
%generate-txbu
:: TODO: finish
:: TODO: add the txbu to poym
:: send all its input tx-ids out for feedback
`state
::
%scan-done
@ -276,9 +278,9 @@
==
::
++ poke-wallet-store
|= [prefix=wire act=action:bws]
|= act=action:bws
^- card
:* %pass (weld prefix /[(scot %da now.bowl)])
:* %pass /[(scot %da now.bowl)]
%agent [our.bowl %btc-wallet-store] %poke
%btc-wallet-store-action !>(act)
==

2
sur/btc-wallet-hook.hoon
View File

@ -26,7 +26,7 @@
$% [%set-provider provider=ship]
[%set-default-wallet ~]
[%req-pay-address payee=ship value=sats]
[%pay-address =address payer=ship value=sats]
[%ret-pay-address =address payer=ship value=sats]
[%force-retry ~]
==
--