mirror of
https://github.com/status-im/status-mobile.git
synced 2025-02-20 20:38:35 +00:00
b13864d052
move utils.ethereum.tokens to ethereum.tokens move utils.ethereum.abi-spec to ethereum.abi-spec move utils.ethereum.core to ethereum.core move utils.ethereum.eip165 to ethereum.eip165 move utils.ethereum.eip55 to ethereum.eip55 move utils.ethereum.eip681 to ethereum.eip681 move utils.ethereum.ens to ethereum.ens move utils.ethereum.erc721 to ethereum.erc721 move utils.ethereum.mnemonics to ethereum.mnemonics move utils.ethereum.resolver to ethereum.resolver move utils.ethereum.macros to ethereum.macros Signed-off-by: yenda <eric@status.im>
62 lines
2.0 KiB
Clojure
62 lines
2.0 KiB
Clojure
(ns status-im.web3.core
|
|
(:require [re-frame.core :as re-frame]
|
|
[status-im.utils.fx :as fx]
|
|
[status-im.js-dependencies :as dependencies]
|
|
[status-im.ethereum.core :as ethereum]
|
|
[status-im.node.core :as node]
|
|
[status-im.protocol.core :as protocol]
|
|
[taoensso.timbre :as log]
|
|
[status-im.native-module.core :as status]))
|
|
|
|
(defn make-internal-web3
|
|
"This Web3 object will allow access to private RPC calls
|
|
It should be only used for internal application needs and never provided to any
|
|
3rd parties (DApps, etc)"
|
|
[]
|
|
(dependencies/Web3.
|
|
#js {:sendAsync (fn [payload callback]
|
|
(status/call-private-rpc
|
|
(.stringify js/JSON payload)
|
|
(fn [response]
|
|
(if (= "" response)
|
|
(log/warn :web3-response-error)
|
|
(callback nil (.parse js/JSON response))))))}))
|
|
|
|
(defn get-web3 [cofx]
|
|
(let [web3 (make-internal-web3)]
|
|
(assoc cofx :web3 web3)))
|
|
|
|
(fx/defn update-syncing-progress [cofx error sync]
|
|
(fx/merge cofx
|
|
(protocol/update-sync-state error sync)
|
|
(node/update-sync-state error sync)))
|
|
|
|
;;; FX
|
|
(defn get-syncing [web3]
|
|
(when web3
|
|
(.getSyncing
|
|
(.-eth web3)
|
|
(fn [error sync]
|
|
(re-frame/dispatch [:web3.callback/get-syncing-success error sync])))))
|
|
|
|
(defn set-default-account
|
|
[web3 address]
|
|
(set! (.-defaultAccount (.-eth web3))
|
|
(ethereum/normalized-address address)))
|
|
|
|
(defn fetch-node-version
|
|
[web3 cb]
|
|
(.. web3
|
|
-version
|
|
(getNode
|
|
(fn [err resp]
|
|
(if-not err
|
|
(cb resp)
|
|
(log/warn (str "unable to obtain web3 version:" err)))))))
|
|
|
|
(defn fetch-node-version-callback
|
|
[resp {:keys [db]}]
|
|
(if-let [node-version (second (re-find #"StatusIM/v(.*)/.*/.*" resp))]
|
|
{:db (assoc db :web3-node-version node-version)}
|
|
(log/warn (str "unexpected web3 version format: " "'" resp "'"))))
|