2020-10-05 14:57:50 +03:00
|
|
|
|%
|
|
|
|
|
+$ network ?(%main %testnet)
|
2020-10-13 14:31:08 +03:00
|
|
|
+$ legacy-address $%([%legacy @uc])
|
|
|
|
|
+$ bech32-address $%([%bech32 cord])
|
|
|
|
|
+$ address ?(legacy-address bech32-address)
|
2020-10-16 12:28:51 +03:00
|
|
|
+$ sats @ud
|
2020-10-16 13:15:51 +03:00
|
|
|
+$ hash [wid=@ dat=@ux]
|
2020-10-16 14:02:55 +03:00
|
|
|
+$ buffer (list @ux)
|
2020-10-16 10:33:10 +03:00
|
|
|
++ tx
|
|
|
|
|
|%
|
|
|
|
|
+$ unsigned
|
2020-10-16 12:28:51 +03:00
|
|
|
$: inputs=(list input)
|
|
|
|
|
outputs=(list output)
|
2020-10-16 10:33:10 +03:00
|
|
|
==
|
|
|
|
|
+$ input
|
|
|
|
|
$: tx-hash=byts
|
|
|
|
|
tx-index=@
|
|
|
|
|
witness-ver=@
|
2020-10-16 13:15:51 +03:00
|
|
|
sequence=byts
|
2020-10-16 10:33:10 +03:00
|
|
|
script-pubkey=byts
|
|
|
|
|
redeem-script=(unit byts)
|
2020-10-16 12:28:51 +03:00
|
|
|
pubkey=(unit byts)
|
|
|
|
|
value=sats
|
2020-10-16 10:33:10 +03:00
|
|
|
==
|
|
|
|
|
+$ output
|
|
|
|
|
$: =address
|
2020-10-16 12:28:51 +03:00
|
|
|
value=sats
|
2020-10-16 10:33:10 +03:00
|
|
|
==
|
|
|
|
|
--
|
2020-10-15 13:55:41 +03:00
|
|
|
++ ops
|
|
|
|
|
|%
|
2020-10-16 10:33:10 +03:00
|
|
|
++ op-dup 118
|
2020-10-15 13:55:41 +03:00
|
|
|
++ op-equalverify 136
|
|
|
|
|
++ op-hash160 169
|
|
|
|
|
++ op-checksig 172
|
|
|
|
|
--
|
2020-10-05 14:57:50 +03:00
|
|
|
--
|
