2017-05-26 14:30:34 +00:00
|
|
|
(* (c) 2017 Hannes Mehnert, all rights reserved *)
|
|
|
|
|
|
|
|
open Rresult
|
|
|
|
|
|
|
|
open Vmm_core
|
|
|
|
|
2018-11-11 02:20:22 +00:00
|
|
|
val prepare : Name.t -> Vm.config -> (string list, [> R.msg ]) result
|
2017-05-26 14:30:34 +00:00
|
|
|
|
2018-11-11 02:20:22 +00:00
|
|
|
val shutdown : Name.t -> Vm.t -> (unit, [> R.msg ]) result
|
2017-05-26 14:30:34 +00:00
|
|
|
|
2018-11-11 02:20:22 +00:00
|
|
|
val exec : Name.t -> Vm.config -> string list -> Name.t option -> (Vm.t, [> R.msg ]) result
|
2017-05-26 14:30:34 +00:00
|
|
|
|
2018-11-11 02:20:22 +00:00
|
|
|
val destroy : Vm.t -> unit
|
2017-05-26 14:30:34 +00:00
|
|
|
|
|
|
|
val close_no_err : Unix.file_descr -> unit
|
2018-11-10 00:02:07 +00:00
|
|
|
|
2018-11-11 00:21:12 +00:00
|
|
|
val create_block : Name.t -> int -> (unit, [> R.msg ]) result
|
2018-11-10 00:02:07 +00:00
|
|
|
|
2018-11-11 00:21:12 +00:00
|
|
|
val destroy_block : Name.t -> (unit, [> R.msg ]) result
|
2018-11-10 00:02:07 +00:00
|
|
|
|
2018-11-11 00:21:12 +00:00
|
|
|
val find_block_devices : unit -> ((Name.t * int) list, [> R.msg ]) result
|