2017-05-26 14:30:34 +00:00
|
|
|
(* (c) 2017 Hannes Mehnert, all rights reserved *)
|
|
|
|
|
|
|
|
open Rresult
|
|
|
|
|
|
|
|
open Vmm_core
|
|
|
|
|
2019-10-29 22:37:42 +00:00
|
|
|
type supported = FreeBSD | Linux
|
|
|
|
|
|
|
|
val uname : supported Lazy.t
|
|
|
|
|
|
|
|
val set_dbdir : Fpath.t -> unit
|
|
|
|
|
2019-10-27 19:46:07 +00:00
|
|
|
val check_commands : unit -> (unit, [> R.msg ]) result
|
|
|
|
|
2020-03-25 14:19:28 +00:00
|
|
|
val prepare : Name.t -> Unikernel.config ->
|
|
|
|
((string * string) list, [> R.msg ]) result
|
2017-05-26 14:30:34 +00:00
|
|
|
|
2019-09-28 17:09:45 +00:00
|
|
|
val exec : Name.t -> Unikernel.config -> (string * string) list ->
|
|
|
|
(string * Name.t) list -> (Unikernel.t, [> R.msg ]) result
|
2017-05-26 14:30:34 +00:00
|
|
|
|
2019-10-11 21:04:51 +00:00
|
|
|
val free_system_resources : Name.t -> string list -> (unit, [> R.msg ]) result
|
2017-05-26 14:30:34 +00:00
|
|
|
|
2018-11-13 00:02:05 +00:00
|
|
|
val destroy : Unikernel.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
|
2019-01-20 21:17:59 +00:00
|
|
|
|
|
|
|
val dump : Cstruct.t -> (unit, [> R.msg ]) result
|
|
|
|
|
|
|
|
val restore : unit -> (Cstruct.t, [> R.msg | `NoFile ]) result
|
2019-01-20 22:02:01 +00:00
|
|
|
|
|
|
|
val vm_device : Unikernel.t -> (string, [> R.msg ]) result
|