mirror of
https://github.com/urbit/shrub.git
synced 2024-12-21 18:01:32 +03:00
34 lines
862 B
Plaintext
34 lines
862 B
Plaintext
:: eth/get-tx-receipts
|
|
::
|
|
:: asks an ethereum node for transaction receipts from a list of transaction
|
|
:: hashes. returns a (list [@t json]), where @t is the transaction hash in
|
|
:: hex written as a cord, and json is the receipt
|
|
::
|
|
/+ ethereum, ethio, *strandio
|
|
=, jael
|
|
::
|
|
|= args=vase
|
|
=+ !<([url=@t tx-hashes=(list @ux)] args)
|
|
=/ m (strand ,vase)
|
|
=| out=(list [@t json])
|
|
|^
|
|
^- form:m
|
|
=* loop $
|
|
?: =(~ tx-hashes) (pure:m !>(out))
|
|
;< res=(list [@t json]) bind:m
|
|
(request-receipts url (scag 100 tx-hashes))
|
|
%_ loop
|
|
out (welp out res)
|
|
tx-hashes (slag 100 tx-hashes)
|
|
==
|
|
::
|
|
++ request-receipts
|
|
|= [url=@t tx-hashes=(list @ux)]
|
|
%+ request-batch-rpc-strict:ethio url
|
|
%+ turn tx-hashes
|
|
|= txh=@ux
|
|
^- [(unit @t) request:rpc:ethereum]
|
|
:- `(crip '0' 'x' ((x-co:co 64) txh))
|
|
[%eth-get-transaction-receipt txh]
|
|
--
|