2016-09-08 21:13:10 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
2017-11-14 03:36:14 +04:00
|
|
|
(* Copyright (c) 2014 - 2017. *)
|
2016-09-08 21:13:10 +04:00
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
(* *)
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
|
|
|
(* TODO locking... *)
|
|
|
|
|
|
|
|
type t = (Block_hash.t * Nonce.t) list
|
|
|
|
|
|
|
|
let encoding : t Data_encoding.t =
|
|
|
|
let open Data_encoding in
|
|
|
|
list
|
|
|
|
(obj2
|
|
|
|
(req "block" Block_hash.encoding)
|
|
|
|
(req "nonce" Nonce.encoding))
|
|
|
|
|
2017-11-07 20:38:11 +04:00
|
|
|
let name = "nonces"
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2017-11-07 20:38:11 +04:00
|
|
|
let load (wallet : #Client_commands.wallet) =
|
|
|
|
wallet#load ~default:[] name encoding
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2017-11-07 20:38:11 +04:00
|
|
|
let save (wallet : #Client_commands.wallet) list =
|
|
|
|
wallet#write name list encoding
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2017-11-07 20:38:11 +04:00
|
|
|
let mem (wallet : #Client_commands.wallet) block_hash =
|
|
|
|
load wallet >>|? fun data ->
|
2016-09-08 21:13:10 +04:00
|
|
|
List.mem_assoc block_hash data
|
|
|
|
|
2017-11-07 20:38:11 +04:00
|
|
|
let find wallet block_hash =
|
|
|
|
load wallet >>|? fun data ->
|
2016-09-08 21:13:10 +04:00
|
|
|
try Some (List.assoc block_hash data)
|
|
|
|
with Not_found -> None
|
|
|
|
|
2017-11-07 20:38:11 +04:00
|
|
|
let add wallet block_hash nonce =
|
|
|
|
load wallet >>=? fun data ->
|
|
|
|
save wallet ((block_hash, nonce) ::
|
|
|
|
List.remove_assoc block_hash data)
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2017-11-07 20:38:11 +04:00
|
|
|
let del wallet block_hash =
|
|
|
|
load wallet >>=? fun data ->
|
|
|
|
save wallet (List.remove_assoc block_hash data)
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2017-11-07 20:38:11 +04:00
|
|
|
let dels wallet hashes =
|
|
|
|
load wallet >>=? fun data ->
|
|
|
|
save wallet @@
|
2016-09-08 21:13:10 +04:00
|
|
|
List.fold_left
|
|
|
|
(fun data hash -> List.remove_assoc hash data)
|
|
|
|
data hashes
|