mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 16:51:42 +03:00
168 lines
3.5 KiB
Plaintext
168 lines
3.5 KiB
Plaintext
/- sur=btc-provider, *btc
|
|
/+ base64
|
|
^?
|
|
=< [sur .]
|
|
=, sur
|
|
|%
|
|
++ address-to-cord
|
|
|= =address ^- cord
|
|
?: ?=([%legacy *] address)
|
|
(scot %uc +.address)
|
|
+.address
|
|
::
|
|
++ address-from-cord
|
|
|= addrc=@t ^- address
|
|
?. ?| =("bc1" (scag 3 (trip addrc)))
|
|
=("tb1" (scag 3 (trip addrc)))
|
|
==
|
|
~|("legacy addresses not yet supported" !!)
|
|
[%bech32 addrc]
|
|
::
|
|
++ to-hex
|
|
|= h=@t
|
|
^- @ux
|
|
?: =('' h) 0x0
|
|
:: Add leading 00
|
|
::
|
|
=+ (lsh 3 2 h)
|
|
:: Group by 4-size block
|
|
::
|
|
=+ (rsh 3 2 -)
|
|
:: Parse hex to atom
|
|
::
|
|
`@ux`(rash - hex)
|
|
::
|
|
++ to-hash256
|
|
|= h=@t
|
|
(hash256 [32 (to-hex h)])
|
|
::
|
|
++ get-request
|
|
|= url=@t
|
|
^- request:http
|
|
[%'GET' url ~ ~]
|
|
::
|
|
++ gen-request
|
|
|= [=host-info ract=action:rpc]
|
|
^- request:http
|
|
%+ rpc-action-to-http
|
|
api-url.host-info ract
|
|
::
|
|
++ to-response
|
|
|= result:rpc
|
|
^- result
|
|
*result
|
|
++ parse-response
|
|
|= res=response:rpc:jstd
|
|
|^ ^- response:rpc
|
|
~| -.res
|
|
:: ignores RPC responses of %error, %fails and %batch
|
|
::
|
|
?> ?=(%result -.res)
|
|
?+ id.res ~|([%unsupported-response id.res] !!)
|
|
%get-address-info
|
|
[id.res (address-info res.res)]
|
|
::
|
|
%get-block-count
|
|
[id.res (ni:dejs:format res.res)]
|
|
::
|
|
%get-block-and-fee
|
|
[id.res (block-and-fee res.res)]
|
|
==
|
|
++ address-info
|
|
%- ot:dejs:format
|
|
:~ [%utxos (as:dejs:format utxo)]
|
|
[%used bo:dejs:format]
|
|
[%blockcount ni:dejs:format]
|
|
==
|
|
++ utxo
|
|
%- ot:dejs:format
|
|
:~ ['tx_pos' ni:dejs:format]
|
|
['tx_hash' (cu:dejs:format to-hash256 so:dejs:format)]
|
|
[%height ni:dejs:format]
|
|
[%value ni:dejs:format]
|
|
==
|
|
++ block-and-fee
|
|
%- ot:dejs:format
|
|
:~ [%blockcount ni:dejs:format]
|
|
[%fee ni:dejs:format]
|
|
==
|
|
--
|
|
::
|
|
++ rpc-action-to-http
|
|
|= [endpoint=@t ract=action:rpc]
|
|
|^ ^- request:http
|
|
%- get-request
|
|
?- -.ract
|
|
%get-address-info
|
|
(mk-url '/addresses/info/' `address.ract)
|
|
::
|
|
%get-block-count
|
|
(mk-url '/getblockcount' ~)
|
|
::
|
|
%get-block-and-fee
|
|
(mk-url '/getblockandfee' ~)
|
|
==
|
|
++ mk-url
|
|
|= [base=@t uaddr=(unit address)]
|
|
=/ addr=@t
|
|
?~ uaddr '' (address-to-cord u.uaddr)
|
|
%^ cat 3
|
|
(cat 3 endpoint base) addr
|
|
--
|
|
:: RPC/HTTP Utilities
|
|
::
|
|
++ httr-to-rpc-response
|
|
|= hit=httr:eyre
|
|
^- response:rpc:jstd
|
|
~| hit
|
|
=/ jon=json (need (de-json:html q:(need r.hit)))
|
|
?. =(%2 (div p.hit 100))
|
|
(parse-rpc-error jon)
|
|
=, dejs-soft:format
|
|
^- response:rpc:jstd
|
|
=; dere
|
|
=+ res=((ar dere) jon)
|
|
?~ res (need (dere jon))
|
|
[%batch u.res]
|
|
|= jon=json
|
|
^- (unit response:rpc:jstd)
|
|
=/ res=[id=(unit @t) res=(unit json) err=(unit json)]
|
|
%. jon
|
|
=, dejs:format
|
|
=- (ou -)
|
|
:~ ['id' (uf ~ (mu so))]
|
|
['result' (uf ~ (mu same))]
|
|
['error' (uf ~ (mu same))]
|
|
==
|
|
?: ?=([^ * ~] res)
|
|
`[%result [u.id.res ?~(res.res ~ u.res.res)]]
|
|
~| jon
|
|
`(parse-rpc-error jon)
|
|
::
|
|
++ get-rpc-response
|
|
|= response=client-response:iris
|
|
^- response:rpc:jstd
|
|
?> ?=(%finished -.response)
|
|
%- httr-to-rpc-response
|
|
%+ to-httr:iris
|
|
response-header.response
|
|
full-file.response
|
|
::
|
|
++ parse-rpc-error
|
|
|= =json
|
|
^- response:rpc:jstd
|
|
:- %error
|
|
?~ json ['' '' '']
|
|
%. json
|
|
=, dejs:format
|
|
=- (ou -)
|
|
:~ =- ['id' (uf '' (cu - (mu so)))]
|
|
|*(a=(unit) ?~(a '' u.a))
|
|
:- 'error'
|
|
=- (uf ['' ''] -)
|
|
=- (cu |*(a=(unit) ?~(a ['' ''] u.a)) (mu (ou -)))
|
|
:~ ['code' (uf '' no)]
|
|
['message' (uf '' so)]
|
|
== ==
|
|
--
|