Support sending raw transactions to RPC nodes
==
[%eth-get-filter-logs fid=@ud]
[%eth-get-filter-changes fid=@ud]
+ [%eth-send-raw-transaction dat=@ux]
==
::
::TODO
[%eth-new-filter fid=@ud]
[%eth-get-filter-logs los=(list event-log)]
[%eth-got-filter-changes los=(list event-log)]
+ [%eth-transaction-hash haz=@ux]
==
::
++ event-log
::
%eth-get-filter-changes
['eth_getFilterChanges' (tape (num-to-hex fid.req)) ~]
+ ::
+ %eth-send-raw-transaction
+ ['eth_sendRawTransaction' (tape (num-to-hex dat.req)) ~]
==
::
++ eth-call-to-json
==
::
++ num-to-hex
- |= n=@ud
+ |= n=@
^- tape
%- prefix-hex
(render-hex-bytes (as-octs n))
::
:: parsing responses from nodes
::
- ++ parse-eth-new-filter-res
+ ++ parse-hex-result
|= j=json
- ^- @ud
+ ^- @
?> ?=(%s -.j)
(hex-to-num p.j)
::
+ ++ parse-eth-new-filter-res parse-hex-result
+ ::
+ ++ parse-transaction-hash parse-hex-result
+ ::
++ parse-event-logs
(ar:dejs:format parse-event-log)
::
