mirror of
https://github.com/urbit/shrub.git
synced 2024-12-24 03:14:30 +03:00
poym done
This commit is contained in:
parent
bd3f056e31
commit
a903301d9a
@ -10,7 +10,7 @@
|
||||
:: - updates to existing address info
|
||||
::
|
||||
:: Sends updates to:
|
||||
:: none
|
||||
:: /sign-me
|
||||
::
|
||||
/- *btc, *btc-wallet-hook, bws=btc-wallet-store
|
||||
/+ dbug, default-agent, bwsl=btc-wallet-store, bp=btc-provider
|
||||
@ -76,6 +76,7 @@
|
||||
==
|
||||
[cards this]
|
||||
::
|
||||
:: TODO: handle /sign-me path
|
||||
++ on-watch on-watch:def
|
||||
++ on-leave on-leave:def
|
||||
++ on-peek on-peek:def
|
||||
@ -190,9 +191,10 @@
|
||||
==
|
||||
::
|
||||
%raw-tx
|
||||
:: TODO: check whether in poym. We have txid in the update
|
||||
~& >> rawtx.body.p.upd
|
||||
`state
|
||||
=. state (update-poym +.body.p.upd)
|
||||
:_ state
|
||||
?. poym-ready ~
|
||||
~[(send-tx poym)]
|
||||
==
|
||||
::
|
||||
++ handle-wallet-store-request
|
||||
@ -229,8 +231,6 @@
|
||||
?~ provider ~&(>>> "provider not set" ~)
|
||||
%+ turn txis.txbu.upd
|
||||
|=(=txi:bws (get-raw-tx host.u.provider txid.utxo.txi))
|
||||
|
||||
:: TODO: send all its input tx-ids out for feedback
|
||||
::
|
||||
%scan-done
|
||||
?~ def-wallet
|
||||
@ -262,6 +262,24 @@
|
||||
state(piym (~(put by piym) fam ps))
|
||||
--
|
||||
::
|
||||
++ update-poym
|
||||
|= [=txid rt=rawtx]
|
||||
^- _state
|
||||
=* txis txis.txbu.poym
|
||||
=| i=@
|
||||
|-
|
||||
?: (gte i (lent txis)) state
|
||||
=/ ith=txi:bws (snag i txis)
|
||||
=? txis =(txid txid.utxo.ith)
|
||||
(snap txis i `txi:bws`ith(ur `rt))
|
||||
$(i +(i))
|
||||
:: poym-ready: do we have all rawtx for inputs?
|
||||
::
|
||||
++ poym-ready
|
||||
^- ?
|
||||
%+ levy txis.txbu.poym
|
||||
|=(t=txi:bws ?=(^ ur.t))
|
||||
::
|
||||
++ retry
|
||||
|= p=^pend-addr
|
||||
^- (list card)
|
||||
@ -298,6 +316,11 @@
|
||||
%btc-wallet-hook-action !>(act)
|
||||
==
|
||||
::
|
||||
++ send-tx
|
||||
|= p=^poym
|
||||
^- card
|
||||
[%give %fact ~[/sign-me] %btc-wallet-hook-request !>([%sign-tx p])]
|
||||
::
|
||||
++ poke-wallet-store
|
||||
|= act=action:bws
|
||||
^- card
|
||||
|
@ -28,4 +28,7 @@
|
||||
[%ret-pay-address =address payer=ship value=sats]
|
||||
[%force-retry ~]
|
||||
==
|
||||
+$ request
|
||||
$% [%sign-tx payee=(unit ship) =txbu:bws]
|
||||
==
|
||||
--
|
||||
|
Loading…
Reference in New Issue
Block a user