urbit/lib/btc-scratch.hoon

::  btc-scratch.hoon
/-  *btc
/+  bip32, btc
=+  ecc=secp256k1:secp:crypto
=,  bech32:btc
|%
++  bip84
  |_  [network=network:btc xpub=tape]
  ++  address
    |=  [change=@ index=@]
    ^-  bech32-address
    ?>  =("zpub" (tape (scag 4 xpub)))            ::  only for bip84
    =/  pubkey=@ux
      %-  compress-point:ecc
      pub:(derive-public:(derive-public:(from-extended:bip32 xpub) change) index)
    [%bech32 (need (encode-pubkey network pubkey))]
  --
--
bip84 account address getting 2020-10-05 14:42:52 +03:00			`:: btc-scratch.hoon`
refactor types into sur; initial types 2020-10-05 14:57:50 +03:00			`/- *btc`
bip84 account address getting 2020-10-05 14:42:52 +03:00			`/+ bip32, btc`
			`=+ ecc=secp256k1:secp:crypto`
			`=, bech32:btc`
			`\|%`
			`++ bip84`
			`\|_ [network=network:btc xpub=tape]`
			`++ address`
			`\|= [change=@ index=@]`
			`^- bech32-address`
			`?> =("zpub" (tape (scag 4 xpub))) :: only for bip84`
			`=/ pubkey=@ux`
			`%- compress-point:ecc`
			`pub:(derive-public:(derive-public:(from-extended:bip32 xpub) change) index)`
			`[%bech32 (need (encode-pubkey network pubkey))]`
			`--`
			`--`