package albatross

  1. Overview
  2. Docs
type 'a t
val empty : 'a t
val init_block_devices : 'a t -> 'a t
val waiter : 'a t -> Vmm_core.Name.t -> 'a t * 'a option
val register : 'a t -> Vmm_core.Name.t -> (unit -> 'b * 'a) -> 'a t * 'b
val register_restart : 'a t -> Vmm_core.Name.t -> (unit -> 'b * 'a) -> ('a t * 'b) option
val may_restart : 'a t -> Vmm_core.Name.t -> 'a t * bool
type 'a create = Vmm_commands.wire * ('a t -> ('a t * Vmm_commands.wire * Vmm_commands.res * Vmm_core.Name.t * Vmm_core.Unikernel.t, [ `Msg of string ]) Stdlib.result) * (unit -> Vmm_commands.res)
val handle_shutdown : 'a t -> Vmm_core.Name.t -> Vmm_core.Unikernel.t -> [ `Exit of int | `Signal of int | `Stop of int ] -> 'a t * Vmm_commands.wire
val handle_create : 'a t -> Vmm_core.Name.t -> Vmm_core.Unikernel.config -> ('a t * 'a create, [> `Msg of string ]) Stdlib.result
val handle_command : 'a t -> Vmm_commands.wire -> ('a t * [ `Create of Vmm_core.Name.t * Vmm_core.Unikernel.config | `Loop of Vmm_commands.res | `End of Vmm_commands.res | `Wait of Vmm_core.Name.t * (Vmm_core.process_exit -> Vmm_commands.res) | `Wait_and_create of Vmm_core.Name.t * (Vmm_core.Name.t * Vmm_core.Unikernel.config) | `Replace_stats of Vmm_commands.res * Vmm_commands.wire list ], Vmm_commands.res) Stdlib.result
val killall : 'a t -> (unit -> 'b * 'a) -> 'a t * 'b list
val restore_state : unit -> (Vmm_core.Unikernel.config Vmm_trie.t * Vmm_core.Policy.t Vmm_trie.t, [> `Msg of string ]) Stdlib.result
val dump_state : 'a t -> unit
val restore_policies : 'a t -> Vmm_core.Policy.t Vmm_trie.t -> ('a t, [> `Msg of string ]) Stdlib.result
OCaml

Innovation. Community. Security.