88 lines
2.6 KiB
OCaml
88 lines
2.6 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2017. *)
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
(* *)
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
|
|
module type Entity = sig
|
|
type t
|
|
val encoding : t Data_encoding.t
|
|
val of_source :
|
|
#Client_commands.wallet ->
|
|
string -> t tzresult Lwt.t
|
|
val to_source :
|
|
#Client_commands.wallet ->
|
|
t -> string tzresult Lwt.t
|
|
val name : string
|
|
end
|
|
|
|
module type Alias = sig
|
|
type t
|
|
type fresh_param
|
|
val load :
|
|
#Client_commands.wallet ->
|
|
(string * t) list tzresult Lwt.t
|
|
val set :
|
|
#Client_commands.wallet ->
|
|
(string * t) list ->
|
|
unit tzresult Lwt.t
|
|
val find :
|
|
#Client_commands.wallet ->
|
|
string -> t tzresult Lwt.t
|
|
val find_opt :
|
|
#Client_commands.wallet ->
|
|
string -> t option tzresult Lwt.t
|
|
val rev_find :
|
|
#Client_commands.wallet ->
|
|
t -> string option tzresult Lwt.t
|
|
val name :
|
|
#Client_commands.wallet ->
|
|
t -> string tzresult Lwt.t
|
|
val mem :
|
|
#Client_commands.wallet ->
|
|
string -> bool tzresult Lwt.t
|
|
val add :
|
|
force:bool ->
|
|
#Client_commands.wallet ->
|
|
string -> t -> unit tzresult Lwt.t
|
|
val del :
|
|
#Client_commands.wallet ->
|
|
string -> unit tzresult Lwt.t
|
|
val update :
|
|
#Client_commands.wallet ->
|
|
string -> t -> unit tzresult Lwt.t
|
|
val of_source :
|
|
#Client_commands.wallet ->
|
|
string -> t tzresult Lwt.t
|
|
val to_source :
|
|
#Client_commands.wallet ->
|
|
t -> string tzresult Lwt.t
|
|
val alias_param :
|
|
?name:string ->
|
|
?desc:string ->
|
|
('a, (#Client_commands.wallet as 'b), 'ret) Cli_entries.params ->
|
|
(string * t -> 'a, 'b, 'ret) Cli_entries.params
|
|
val fresh_alias_param :
|
|
?name:string ->
|
|
?desc:string ->
|
|
('a, (< .. > as 'obj), 'ret) Cli_entries.params ->
|
|
(fresh_param -> 'a, 'obj, 'ret) Cli_entries.params
|
|
val of_fresh :
|
|
#Client_commands.wallet ->
|
|
bool ->
|
|
fresh_param ->
|
|
string tzresult Lwt.t
|
|
val source_param :
|
|
?name:string ->
|
|
?desc:string ->
|
|
('a, (#Client_commands.wallet as 'obj), 'ret) Cli_entries.params ->
|
|
(t -> 'a, 'obj, 'ret) Cli_entries.params
|
|
val autocomplete:
|
|
#Client_commands.wallet -> string list tzresult Lwt.t
|
|
end
|
|
module Alias (Entity : Entity) : Alias with type t = Entity.t
|