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. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
2017-10-09 12:55:12 +04:00
|
|
|
module Ed25519 = Tezos_protocol_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 ->
|
2017-04-05 03:02:10 +04:00
|
|
|
( string * Public_key_hash.t * Public_key.t * Secret_key.t ) list tzresult Lwt.t
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2017-01-12 19:13:03 +04:00
|
|
|
val list_keys:
|
|
|
|
Client_commands.context ->
|
2017-04-05 03:02:10 +04:00
|
|
|
(string * Public_key_hash.t * bool * bool) list tzresult Lwt.t
|
2017-01-12 19:13:03 +04:00
|
|
|
|
|
|
|
val gen_keys:
|
|
|
|
?seed: Sodium.Sign.seed ->
|
|
|
|
Client_commands.context ->
|
|
|
|
string ->
|
2017-04-05 01:35:41 +04:00
|
|
|
unit tzresult Lwt.t
|
2017-01-12 19:13:03 +04:00
|
|
|
|
2016-12-03 16:05:02 +04:00
|
|
|
val commands: unit -> Client_commands.command list
|