2020-10-31 14:25:32 +03:00
|
|
|
::
|
|
|
|
::
|
2020-10-30 14:45:38 +03:00
|
|
|
/- *btc-wallet-store
|
|
|
|
/+ bip32, btc
|
|
|
|
=, secp:crypto
|
|
|
|
=+ ecc=secp256k1
|
|
|
|
|%
|
2020-12-03 12:47:54 +03:00
|
|
|
:: ++ enjs
|
|
|
|
:: =, enjs:format
|
|
|
|
:: |%
|
|
|
|
:: :: TODO: format JS for input to HW wallet like Ledger
|
|
|
|
:: ::
|
|
|
|
:: ++ txbu
|
|
|
|
:: |= =^txbu
|
|
|
|
:: ^- json
|
|
|
|
:: %- pairs
|
|
|
|
:: :~ :: [%inputs [%a (turn txis.txbu txi)]]
|
|
|
|
:: ['associatedKeysets' [%a (turn txis.txbu |=(=txi (key key.txi)))]]
|
|
|
|
:: ['changePath' s+'hi']
|
|
|
|
:: ['outputScriptHex' s+'hi']
|
|
|
|
:: ['lockTime' s+'hi']
|
|
|
|
:: ['sigHashType' s+'hi']
|
|
|
|
:: [%segwit s+'hi']
|
|
|
|
:: ['initialTimestamp' s+'hi']
|
|
|
|
:: ==
|
|
|
|
:: :: TODO inputs, keysets, changeppath, outputscripthex, locktime, sigHashType, segwit, initialTimestamp
|
|
|
|
:: :: , additionals ("bech32")
|
|
|
|
:: ++ txi
|
|
|
|
:: |= =^txi ^- json
|
|
|
|
:: ?> ?=(^ ur.txi)
|
|
|
|
:: :- %a
|
|
|
|
:: :~ s+(en:base16:mimes:html u.ur.txi)
|
|
|
|
:: n+pos.utxo.txi
|
|
|
|
:: ==
|
|
|
|
:: ++ key
|
|
|
|
:: |= =^key ^- json
|
|
|
|
:: :- %s
|
|
|
|
:: %^ cat 3 'm/'
|
|
|
|
:: %^ cat 3
|
|
|
|
:: ?- bipt.key
|
|
|
|
:: %bip44 '44'
|
|
|
|
:: %bip49 '49'
|
|
|
|
:: %bip84 '84'
|
|
|
|
:: ==
|
|
|
|
:: %^ cat 3 '/0\'/0\'/'
|
|
|
|
:: %^ cat 3 ?:(=(%0 chyg.key) '0/' '1/')
|
|
|
|
:: (crip ((d-co:co 0) idx.key))
|
|
|
|
:: --
|
2020-11-22 17:49:55 +03:00
|
|
|
::
|
2020-11-13 15:47:11 +03:00
|
|
|
++ defaults
|
|
|
|
|%
|
|
|
|
++ max-gap 20
|
|
|
|
++ confs 6
|
|
|
|
--
|
2020-11-02 10:21:48 +03:00
|
|
|
::
|
2020-11-11 15:30:22 +03:00
|
|
|
++ from-xpub
|
2020-11-13 15:47:11 +03:00
|
|
|
|= [=xpub:btc scan-to=(unit scon) max-gap=(unit @ud) confs=(unit @ud)]
|
2020-11-11 15:30:22 +03:00
|
|
|
^- walt
|
|
|
|
:* (from-extended:bip32 (trip xpub))
|
|
|
|
(xpub-type:btc xpub)
|
|
|
|
*wach
|
|
|
|
[0 0]
|
|
|
|
%.n
|
|
|
|
(fall scan-to *scon)
|
2020-11-13 15:47:11 +03:00
|
|
|
(fall max-gap max-gap:defaults)
|
|
|
|
(fall confs confs:defaults)
|
2020-11-11 15:30:22 +03:00
|
|
|
==
|
|
|
|
:: wad: door for processing walts (wallets)
|
|
|
|
:: parameterized on a walt and it's chyg account
|
|
|
|
::
|
|
|
|
++ wad
|
|
|
|
|_ [w=walt =chyg]
|
2020-10-31 14:25:32 +03:00
|
|
|
++ mk-address
|
2020-11-02 10:21:48 +03:00
|
|
|
|= =idx
|
2020-10-30 14:45:38 +03:00
|
|
|
^- address:btc
|
|
|
|
=/ pubkey=@ux
|
|
|
|
%- compress-point:ecc
|
2020-11-11 15:30:22 +03:00
|
|
|
pub:(derive-public:(derive-public:wilt.w (@ chyg)) idx)
|
|
|
|
?: ?=(%bip84 bipt.w)
|
2020-10-30 14:45:38 +03:00
|
|
|
(need (encode-pubkey:bech32:btc %main pubkey))
|
2020-11-02 13:51:07 +03:00
|
|
|
~|("legacy addresses not supported yet " !!)
|
|
|
|
:: generates and watches the next available address
|
|
|
|
::
|
|
|
|
++ gen-address
|
2020-12-04 21:54:59 +03:00
|
|
|
^- (trel address:btc idx walt)
|
2020-11-02 13:51:07 +03:00
|
|
|
=/ addr (mk-address nixt-idx)
|
2020-12-04 21:54:59 +03:00
|
|
|
:* addr
|
|
|
|
nixt-idx
|
|
|
|
(update-address addr [chyg nixt-idx *(set utxo:btc)])
|
|
|
|
==
|
2020-10-31 14:25:32 +03:00
|
|
|
:: insert a new address; update "nixt" free address if this one was it
|
|
|
|
::
|
2020-11-13 17:05:25 +03:00
|
|
|
++ update-address
|
2020-10-31 14:25:32 +03:00
|
|
|
|= [a=address:btc =addi]
|
2020-11-11 15:30:22 +03:00
|
|
|
^- walt
|
2020-11-02 10:21:48 +03:00
|
|
|
?> =(chyg chyg.addi)
|
|
|
|
?> =(a (mk-address idx.addi))
|
2020-11-11 15:30:22 +03:00
|
|
|
=? nixt.w (is-nixt addi)
|
2020-11-02 10:21:48 +03:00
|
|
|
new:bump-nixt
|
2020-11-11 15:30:22 +03:00
|
|
|
w(wach (~(put by wach.w) a addi))
|
2020-10-31 14:25:32 +03:00
|
|
|
::
|
|
|
|
++ is-nixt
|
2020-11-02 10:21:48 +03:00
|
|
|
|= =addi ^- ?
|
|
|
|
?: ?=(%0 chyg.addi)
|
2020-11-11 15:30:22 +03:00
|
|
|
=(idx.addi p.nixt.w)
|
|
|
|
=(idx.addi q.nixt.w)
|
2020-11-02 13:37:55 +03:00
|
|
|
++ nixt-idx
|
2020-11-11 15:30:22 +03:00
|
|
|
?:(?=(%0 chyg) p.nixt.w q.nixt.w)
|
2020-11-02 10:21:48 +03:00
|
|
|
:: Returns: the prior idx in the account
|
|
|
|
:: nixt with account idx bumped
|
2020-11-02 13:37:55 +03:00
|
|
|
:: Increments idx until an unwatched address is found
|
2020-11-02 10:21:48 +03:00
|
|
|
:: Crashes if max-index is passed
|
2020-10-31 12:41:00 +03:00
|
|
|
::
|
2020-10-31 14:25:32 +03:00
|
|
|
++ bump-nixt
|
2020-11-02 10:21:48 +03:00
|
|
|
|^ ^- [old=idx new=nixt]
|
2020-11-02 13:37:55 +03:00
|
|
|
:- nixt-idx
|
|
|
|
=/ new-idx=idx +(nixt-idx)
|
2020-10-31 14:25:32 +03:00
|
|
|
|- ?> (lte new-idx max-index)
|
2020-11-11 15:30:22 +03:00
|
|
|
?. (~(has by wach.w) (mk-address new-idx))
|
2020-11-02 10:21:48 +03:00
|
|
|
(set-nixt new-idx)
|
2020-10-31 14:25:32 +03:00
|
|
|
$(new-idx +(new-idx))
|
2020-11-02 10:21:48 +03:00
|
|
|
::
|
|
|
|
++ set-nixt
|
|
|
|
|= idx=@ ^- nixt
|
2020-11-11 15:30:22 +03:00
|
|
|
?:(?=(%0 chyg) [idx q.nixt.w] [p.nixt.w idx])
|
2020-11-02 10:21:48 +03:00
|
|
|
--
|
2020-10-30 14:45:38 +03:00
|
|
|
--
|
2020-11-18 14:39:57 +03:00
|
|
|
:: sut: door to select utxos
|
|
|
|
::
|
|
|
|
++ sut
|
2020-11-22 15:57:25 +03:00
|
|
|
|_ [w=walt eny=@uvJ payee=(unit ship) =feyb txos=(list txo)]
|
2020-11-18 14:39:57 +03:00
|
|
|
++ meta-weight 10
|
|
|
|
++ output-weight 31
|
2020-11-19 14:44:12 +03:00
|
|
|
::
|
|
|
|
++ target-value
|
|
|
|
^- sats
|
|
|
|
%+ roll (turn txos |=(=txo value.txo))
|
|
|
|
|=([a=sats b=sats] (add a b))
|
|
|
|
::
|
2020-11-18 14:39:57 +03:00
|
|
|
++ base-weight
|
|
|
|
^- vbytes
|
|
|
|
%+ add meta-weight
|
2020-11-19 14:44:12 +03:00
|
|
|
(mul (lent txos) output-weight)
|
|
|
|
::
|
2020-11-18 14:39:57 +03:00
|
|
|
++ input-weight
|
|
|
|
^- vbytes
|
|
|
|
?. ?=(%bip84 bipt.w)
|
|
|
|
~|("Only bech32 wallets supported" !!)
|
|
|
|
102
|
|
|
|
::
|
|
|
|
++ total-vbytes
|
|
|
|
|= selected=(list input)
|
|
|
|
^- vbytes
|
|
|
|
%+ add base-weight
|
|
|
|
(mul input-weight (lent selected))
|
|
|
|
:: value of an input after fee
|
2020-11-19 12:11:02 +03:00
|
|
|
:: 0 if net is <= 0
|
2020-11-18 14:39:57 +03:00
|
|
|
::
|
|
|
|
++ net-value
|
|
|
|
|= val=sats ^- sats
|
|
|
|
=/ cost (mul input-weight feyb)
|
|
|
|
?: (lte val cost) 0
|
|
|
|
(sub val cost)
|
2020-11-22 15:57:25 +03:00
|
|
|
:: Uses naive random selection. Should switch to branch-and-bound later.
|
2020-11-19 14:44:12 +03:00
|
|
|
::
|
2020-11-18 14:39:57 +03:00
|
|
|
++ select-utxos
|
2020-11-19 18:54:01 +03:00
|
|
|
|^ ^- (unit =txbu)
|
2020-11-26 12:38:30 +03:00
|
|
|
=/ is=(unit (list input))
|
2020-11-19 14:44:12 +03:00
|
|
|
%- single-random-draw
|
|
|
|
%- zing
|
|
|
|
(turn ~(val by wach.w) to-inputs)
|
2020-11-26 12:38:30 +03:00
|
|
|
?~(is ~ `(inputs-to-txbu u.is))
|
2020-11-19 18:54:01 +03:00
|
|
|
::
|
2020-11-18 14:49:09 +03:00
|
|
|
++ to-inputs
|
|
|
|
|= =addi ^- (list input)
|
2020-11-18 14:39:57 +03:00
|
|
|
%+ turn ~(tap in utxos.addi)
|
2020-11-18 14:49:09 +03:00
|
|
|
|=(=utxo:btc [utxo chyg.addi idx.addi])
|
2020-11-19 18:54:01 +03:00
|
|
|
++ inputs-to-txbu
|
|
|
|
|= is=(list input) ^- txbu
|
2020-11-22 15:57:25 +03:00
|
|
|
:* payee
|
|
|
|
(total-vbytes is)
|
2020-11-19 18:54:01 +03:00
|
|
|
%+ turn is
|
|
|
|
|=(i=input [utxo.i ~ [bipt.w chyg.i idx.i]])
|
|
|
|
txos
|
|
|
|
==
|
2020-11-18 14:49:09 +03:00
|
|
|
--
|
2020-11-18 14:39:57 +03:00
|
|
|
:: single-random-draw
|
|
|
|
:: randomly choose utxos until target is hit
|
|
|
|
:: only use an input if its net-value > 0
|
|
|
|
::
|
|
|
|
++ single-random-draw
|
|
|
|
|= is=(list input)
|
2020-11-19 14:44:12 +03:00
|
|
|
^- (unit (list input))
|
2020-11-18 14:39:57 +03:00
|
|
|
=/ rng ~(. og eny)
|
2020-11-19 14:44:12 +03:00
|
|
|
=/ target (add target-value (mul feyb base-weight)) :: add base fees to target
|
2020-11-18 14:39:57 +03:00
|
|
|
=| [select=(list input) total=sats:btc]
|
2020-11-19 12:11:02 +03:00
|
|
|
|- ?: =(~ is) ~
|
2020-11-18 14:39:57 +03:00
|
|
|
=^ n rng (rads:rng (lent is))
|
2020-11-19 12:11:02 +03:00
|
|
|
=/ i=input (snag n is)
|
2020-11-18 14:39:57 +03:00
|
|
|
=/ net-val (net-value value.utxo.i)
|
2020-11-19 14:44:12 +03:00
|
|
|
=? select (gth net-val 0) [i select] :: select if net-value > 0
|
2020-11-18 14:39:57 +03:00
|
|
|
=/ new-total (add total net-val)
|
2020-11-19 14:44:12 +03:00
|
|
|
?: (gte new-total target) `select
|
2020-11-18 14:39:57 +03:00
|
|
|
%= $
|
2020-11-19 12:11:02 +03:00
|
|
|
is (oust [n 1] is)
|
2020-11-18 14:39:57 +03:00
|
|
|
total new-total
|
|
|
|
==
|
|
|
|
::
|
|
|
|
--
|
2020-10-30 14:45:38 +03:00
|
|
|
--
|