2018-10-23 22:13:47 +00:00
|
|
|
(* (c) 2017, 2018 Hannes Mehnert, all rights reserved *)
|
2017-05-26 14:30:34 +00:00
|
|
|
|
2018-10-23 18:45:06 +00:00
|
|
|
open Vmm_core
|
2017-05-26 14:30:34 +00:00
|
|
|
|
2018-10-23 18:45:06 +00:00
|
|
|
(** ASN.1 encoding of resources and configuration *)
|
2017-05-26 14:30:34 +00:00
|
|
|
|
2018-10-23 18:45:06 +00:00
|
|
|
(** {1 Object Identifier} *)
|
2017-05-26 14:30:34 +00:00
|
|
|
|
2018-10-23 18:45:06 +00:00
|
|
|
(** OID in the Mirage namespace (enterprise arc 1.3.6.1.4.1.49836.43) *)
|
|
|
|
|
val oid : Asn.OID.t
|
2017-05-26 14:30:34 +00:00
|
|
|
|
2018-10-23 22:03:36 +00:00
|
|
|
val wire_to_cstruct : Vmm_commands.wire -> Cstruct.t
|
2017-05-26 14:30:34 +00:00
|
|
|
|
2018-10-23 22:03:36 +00:00
|
|
|
val wire_of_cstruct : Cstruct.t -> (Vmm_commands.wire, [> `Msg of string ]) result
|
2017-05-26 14:30:34 +00:00
|
|
|
|
2018-10-23 22:03:36 +00:00
|
|
|
val log_entry_to_cstruct : Log.t -> Cstruct.t
|
2017-05-26 14:30:34 +00:00
|
|
|
|
2018-10-23 22:03:36 +00:00
|
|
|
val log_entry_of_cstruct : Cstruct.t -> (Log.t, [> `Msg of string ]) result
|
2017-05-26 14:30:34 +00:00
|
|
|
|
2018-10-24 22:42:52 +00:00
|
|
|
val log_to_disk : Vmm_commands.version -> Log.t -> Cstruct.t
|
|
|
|
|
|
2018-12-06 21:55:13 +00:00
|
|
|
val logs_of_disk : Cstruct.t -> Log.t list
|
2018-10-24 22:42:52 +00:00
|
|
|
|
2018-10-23 22:03:36 +00:00
|
|
|
type cert_extension = Vmm_commands.version * Vmm_commands.t
|
2018-10-23 18:45:06 +00:00
|
|
|
|
|
|
|
|
val cert_extension_of_cstruct : Cstruct.t -> (cert_extension, [> `Msg of string ]) result
|
|
|
|
|
val cert_extension_to_cstruct : cert_extension -> Cstruct.t
|
