urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-20 09:21:42 +03:00
Code Issues Packages Projects Releases Wiki Activity

naive: l2 csv add roller address to collated data

Browse Source
This commit is contained in:
drbeefsupreme 2022-03-15 20:19:33 -04:00
parent 758138d397
commit 903394f00f
No known key found for this signature in database
GPG Key ID: B70D5683DE7F9EFC
1 changed files with 19 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
pkg/arvo/ted/naive-csv.hoon
View File

@ -85,8 +85,8 @@
=/ tx-hashes=(list @ux) (get-tx-hashes l2-logs) =/ tx-hashes=(list @ux) (get-tx-hashes l2-logs)
=/ block-jar=(jar @ud @ux) (block-tx-jar l2-logs) =/ block-jar=(jar @ud @ux) (block-tx-jar l2-logs)
;< timestamps=(map @ud @da) bind:m (get-timestamps blocks) ;< timestamps=(map @ud @da) bind:m (get-timestamps blocks)
;< gas-prices=(map @ux @ud) bind:m (get-gas-prices tx-hashes) ;< tx-data=(map @ux [gas=@ud sender=@ux]) bind:m (get-tx-data tx-hashes)
=/ rolling (collate-roll-data blocks block-jar timestamps gas-prices) =/ rolling (collate-roll-data blocks block-jar timestamps tx-data)
(pure:m !>(rolling)) (pure:m !>(rolling))
:: ::
++ collate-roll-data ++ collate-roll-data
@ -94,28 +94,29 @@
block-jar=(jar @ud @ux) block-jar=(jar @ud @ux)
::l2-logs=events ::l2-logs=events
timestamps=(map @ud @da) timestamps=(map @ud @da)
gas-prices=(map @ux @ud) tx-data=(map @ux [gas=@ud sender=@ux])
== ==
=| block-map=(map @ud [timestamp=@da gas=(map @ux @ud)]) =| block-map=(map @ud [timestamp=@da tx=(map @ux [gas=@ud sender=@ux])])
|- |-
?~ blocks block-map ?~ blocks block-map
=/ block i.blocks =/ block i.blocks
=/ tx-hashes (~(get ja block-jar) block) =/ tx-hashes (~(get ja block-jar) block)
=/ tx-gas=(map @ux @ud) =/ tx=(map @ux [gas=@ud sender=@ux])
%- ~(gas by *(map @ux @ud)) %- ~(gas by *(map @ux [gas=@ud sender=@ux]))
%+ turn tx-hashes %+ turn tx-hashes
|= txh=@ux |= txh=@ux
[txh (~(got by gas-prices) txh)] [txh (~(got by tx-data) txh)]
%= $ %= $
blocks t.blocks blocks t.blocks
block-map (~(put by block-map) block [(~(got by timestamps) block) tx-gas]) block-map (~(put by block-map) block [(~(got by timestamps) block) tx])
== ==
:: ::
++ get-gas-prices ++ get-tx-data
:: retrieves transaction receipts for rolls, extracting the gas cost and sender
|= tx-hashes=(list @ux) |= tx-hashes=(list @ux)
=/ m (strand ,(map @ux @ud)) =/ m (strand ,(map @ux [gas=@ud sender=@ux]))
^- form:m ^- form:m
=| out=(map @ux @ud) =| out=(map @ux [gas=@ud sender=@ux])
|^ ^- form:m |^ ^- form:m
=* loop $ =* loop $
?: =(~ tx-hashes) (pure:m out) ?: =(~ tx-hashes) (pure:m out)
@ -137,15 +138,19 @@
:: ::
++ parse-results ++ parse-results
|= res=(list [@t json]) |= res=(list [@t json])
^- (list [@ux @ud]) ^- (list [txh=@ux [gas=@ud sender=@ux]])
%+ turn res %+ turn res
|= [id=@t =json] |= [id=@t =json]
^- [@ux @ud] ^- [txh=@ux [gas=@ud sender=@ux]]
:- (hex-to-num:ethereum id) :- (hex-to-num:ethereum id)
%- parse-hex-result:rpc:ethereum :- %- parse-hex-result:rpc:ethereum
~| json ~| json
?> ?=(%o -.json) ?> ?=(%o -.json)
(~(got by p.json) 'gasUsed') :: returns the amount of gas used, not gas price (~(got by p.json) 'gasUsed') :: returns the amount of gas used, not gas price
%- parse-hex-result:rpc:ethereum
~| json
?> ?=(%o -.json)
(~(got by p.json) 'from')
-- --
:: ::
++ get-timestamps ++ get-timestamps