2025-12-06 23:25:29 +01:00
|
|
|
type t
|
2025-12-15 15:01:40 +01:00
|
|
|
type eddsa_priv = Crypto.EddsaPrivateKey.t
|
|
|
|
|
type eddsa_pub = Crypto.EddsaPublicKey.t
|
2025-12-06 23:25:29 +01:00
|
|
|
|
2025-12-15 15:01:40 +01:00
|
|
|
val get_sm_key_priv : t -> eddsa_priv
|
|
|
|
|
val get_sm_key_pub : t -> eddsa_pub
|
2025-12-06 23:25:29 +01:00
|
|
|
val get_signkeys : t -> Signkey.t list
|
2025-12-15 15:01:40 +01:00
|
|
|
val init : (module Pg.CONN) -> t
|
|
|
|
|
|
|
|
|
|
(* - management operations - *)
|
2025-12-07 01:02:54 +01:00
|
|
|
|
|
|
|
|
val add_master_signatures :
|
|
|
|
|
(module Pg.CONN) ->
|
|
|
|
|
t ->
|
2025-12-15 15:01:40 +01:00
|
|
|
(eddsa_pub * Bin_sig.ExchangeSigningKeyValidity.t) list ->
|
2025-12-11 03:19:37 +01:00
|
|
|
(unit, string) result
|
|
|
|
|
|
|
|
|
|
val revoke_signkey :
|
|
|
|
|
t ->
|
2025-12-15 15:01:40 +01:00
|
|
|
eddsa_pub ->
|
2025-12-11 03:19:37 +01:00
|
|
|
Bin_sig.MasterSigningKeyRevocation.t ->
|
2025-12-07 01:02:54 +01:00
|
|
|
(unit, string) result
|