2016-09-08 21:13:10 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
|
|
|
(* Copyright (c) 2014 - 2016. *)
|
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
(* *)
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
2016-11-14 18:55:24 +04:00
|
|
|
module Ed25519 = Environment.Ed25519
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2016-11-14 18:54:21 +04:00
|
|
|
module Public_key_hash :
|
|
|
|
Client_aliases.Alias with type t = Ed25519.Public_key_hash.t
|
2017-02-28 05:56:40 +04:00
|
|
|
module Public_key : Client_aliases.Alias with type t = Ed25519.Public_key.t
|
|
|
|
module Secret_key : Client_aliases.Alias with type t = Ed25519.Secret_key.t
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2017-01-12 19:13:03 +04:00
|
|
|
module Seed : sig
|
|
|
|
val to_hex : Sodium.Sign.seed -> string
|
|
|
|
val of_hex : string -> Sodium.Sign.seed
|
|
|
|
val generate : unit -> Sodium.Sign.seed
|
|
|
|
val extract : Secret_key.t -> Sodium.Sign.seed
|
|
|
|
end
|
|
|
|
|
2016-09-08 21:13:10 +04:00
|
|
|
val get_key:
|
2016-12-03 16:05:02 +04:00
|
|
|
Client_commands.context ->
|
2016-09-08 21:13:10 +04:00
|
|
|
Public_key_hash.t ->
|
|
|
|
( string * Public_key.t * Secret_key.t ) tzresult Lwt.t
|
|
|
|
|
2017-02-28 11:18:06 +04:00
|
|
|
val get_keys:
|
|
|
|
Client_commands.context ->
|
|
|
|
( string * Public_key_hash.t * Public_key.t * Secret_key.t ) list Lwt.t
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2017-01-12 19:13:03 +04:00
|
|
|
val list_keys:
|
|
|
|
Client_commands.context ->
|
|
|
|
(string * Public_key_hash.t * bool * bool) list Lwt.t
|
|
|
|
|
|
|
|
val gen_keys:
|
|
|
|
?seed: Sodium.Sign.seed ->
|
|
|
|
Client_commands.context ->
|
|
|
|
string ->
|
|
|
|
unit Lwt.t
|
|
|
|
|
2016-12-03 16:05:02 +04:00
|
|
|
val commands: unit -> Client_commands.command list
|