status-im/status-mobile
2
0
Fork 0
mirror of https://github.com/status-im/status-mobile.git synced 2025-01-13 10:16:01 +00:00
Code Issues Projects Releases Wiki Activity

feature #4183 - token transfer history gets actual transaction timestamp from block info

Browse Source 
Signed-off-by: Julien Eluard <julien.eluard@gmail.com>
This commit is contained in:
Goran Jovic 2018-05-14 11:10:07 +02:00 committed by Julien Eluard
parent e32ce7af68
commit 030f441ea3
No known key found for this signature in database
GPG Key ID: 6FD7DB5437FCBEF6
1 changed files with 29 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
src/status_im/utils/ethereum/erc20.cljs
View File

@ -82,30 +82,27 @@
(if topic (if topic
(str "0x" (subs topic 26)))) (str "0x" (subs topic 26))))
(defn- parse-transaction-entry [block-number chain direction entries] (defn- parse-transaction-entries [current-block-number block-info chain direction transfers]
(into {} (into {}
(for [entry entries] (for [transfer transfers]
(let [token (->> entry :address (tokens/address->token chain))] (let [token (->> transfer :address (tokens/address->token chain))]
[(:transactionHash entry) [(:transactionHash transfer)
{:block (-> entry :blockNumber ethereum/hex->int str) {:block (-> block-info :number str)
:hash (:transactionHash entry) :hash (:transactionHash transfer)
:symbol (:symbol token) :symbol (:symbol token)
:from (-> entry :topics second remove-padding) :from (-> transfer :topics second remove-padding)
:to (-> entry :topics last remove-padding) :to (-> transfer :topics last remove-padding)
:value (-> entry :data ethereum/hex->bignumber) :value (-> transfer :data ethereum/hex->bignumber)
:type direction :type direction
:confirmations (str (- block-number (-> entry :blockNumber ethereum/hex->int))) :confirmations (str (- current-block-number (-> transfer :blockNumber ethereum/hex->int)))
:gas-price nil :gas-price nil
:nonce nil :nonce nil
:data nil :data nil
:gas-limit nil :gas-limit nil
;; NOTE(goranjovic) - timestamp is mocked to the current time so that the transaction is shown at the :timestamp (-> block-info :timestamp (* 1000) str)
;; top of transaction history list between the moment when transfer event was detected and actual
;; timestamp was retrieved from block info.
:timestamp (str (datetime/timestamp))
:gas-used nil :gas-used nil
@ -117,7 +114,18 @@
;; confirmations count. ;; confirmations count.
:transfer true}])))) :transfer true}]))))
(defn- response-handler [block-number chain direction error-fn success-fn] (defn add-block-info [web3 current-block-number chain direction result success-fn]
(let [transfers-by-block (group-by :blockNumber result)]
(doseq [[block-number transfers] transfers-by-block]
(ethereum/get-block-info web3 (ethereum/hex->int block-number)
(fn [block-info]
(success-fn (parse-transaction-entries current-block-number
block-info
chain
direction
transfers)))))))
(defn- response-handler [web3 current-block-number chain direction error-fn success-fn]
(fn handle-response (fn handle-response
([response] ([response]
(let [{:keys [error result]} (parse-json response)] (let [{:keys [error result]} (parse-json response)]
@ -125,7 +133,7 @@
([error result] ([error result]
(if error (if error
(error-fn error) (error-fn error)
(success-fn (parse-transaction-entry block-number chain direction result)))))) (add-block-info web3 current-block-number chain direction result success-fn)))))
;; ;;
;; Here we are querying event logs for Transfer events. ;; Here we are querying event logs for Transfer events.
@ -139,8 +147,9 @@
;; ;;
(defn get-token-transfer-logs (defn get-token-transfer-logs
;; NOTE(goranjovic): here we cannot use web3 since events don't work with infura ;; NOTE(goranjovic): here we use direct JSON-RPC calls to get event logs because of web3 event issues with infura
[block-number network contracts direction address cb] ;; we still use web3 to get other data, such as block info
[web3 current-block-number network contracts direction address cb]
(let [chain (ethereum/network->chain-keyword network) (let [chain (ethereum/network->chain-keyword network)
[from to] (if (= :inbound direction) [from to] (if (= :inbound direction)
[nil (ethereum/normalized-address address)] [nil (ethereum/normalized-address address)]
@ -155,9 +164,9 @@
(add-padding to)]}]} (add-padding to)]}]}
payload (.stringify js/JSON (clj->js args))] payload (.stringify js/JSON (clj->js args))]
(status/call-web3-private payload (status/call-web3-private payload
(response-handler block-number chain direction ethereum/handle-error cb)))) (response-handler web3 current-block-number chain direction ethereum/handle-error cb))))
(defn get-token-transactions (defn get-token-transactions
[web3 network contracts direction address cb] [web3 network contracts direction address cb]
(ethereum/get-block-number web3 (ethereum/get-block-number web3
#(get-token-transfer-logs % network contracts direction address cb))) #(get-token-transfer-logs web3 % network contracts direction address cb)))