val empty : 'a tval waiter : 'a t -> Vmm_core.Name.t -> 'a t * 'a optionval register : 'a t -> Vmm_core.Name.t -> (unit -> 'b * 'a) -> 'a t * 'bval register_restart :
'a t ->
Vmm_core.Name.t ->
(unit -> 'b * 'a) ->
('a t * 'b) optionval may_restart : 'a t -> Vmm_core.Name.t -> 'a t * booltype '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 ])
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.wireval handle_create :
'a t ->
Vmm_core.Name.t ->
Vmm_core.Unikernel.config ->
('a t * 'a create, [> `Msg of string ]) resultval 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)
resultval restore_state :
unit ->
(Vmm_core.Unikernel.config Vmm_trie.t * Vmm_core.Policy.t Vmm_trie.t,
[> `Msg of string ])
resultval dump_state : 'a t -> unitval restore_policies :
'a t ->
Vmm_core.Policy.t Vmm_trie.t ->
('a t, [> `Msg of string ]) result