urbit/sur/btc-wallet-hook.hoon
timlucmiptev a903301d9a poym done
2021-05-26 18:30:13 -07:00

35 lines
1.1 KiB
Plaintext

/- *btc, bws=btc-wallet-store, bp=btc-provider
|%
:: req-id: hash of [xpub chyg idx]
:: pend: lookup of req-id -> requests from wallet-store
::
:: payment: a payment expected from another ship
:: - address: address generated for this payment
:: piym: incoming payments. Stores all ship moons under their planet.
:: poym: the current outgoing payment (one at a time only)
:: piym-watch/poym-watch:
:: let us link an address back to its incoming/outgoing payment
:: checked when address updates come from btc-wallet-store
::
+$ btc-state [blockcount=@ud fee=sats t=@da]
+$ pend-addr (map req-id:bp request:bws)
::
+$ payment [=address payer=ship value=sats]
::
+$ piym (jar ship payment)
+$ poym [payee=(unit ship) =txbu:bws]
+$ piym-watch (map address ship)
+$ poym-watch (map address ship)
::
+$ action
$% [%set-provider provider=ship]
[%set-default-wallet ~]
[%req-pay-address payee=ship value=sats]
[%ret-pay-address =address payer=ship value=sats]
[%force-retry ~]
==
+$ request
$% [%sign-tx payee=(unit ship) =txbu:bws]
==
--