package albatross

  1. Overview
  2. Docs
val let* : ('a, 'b) result -> ('a -> ('c, 'b) result) -> ('c, 'b) result
val sysconf_clock_tick : unit -> int
val sysctl_kinfo_proc : int -> Vmm_core.Stats.rusage * Vmm_core.Stats.kinfo_mem
val sysctl_ifcount : unit -> int
val sysctl_ifdata : int -> Vmm_core.Stats.ifdata
type vmctx
val vmmapi_open : string -> vmctx
val vmmapi_close : vmctx -> unit
val vmmapi_statnames : vmctx -> string list
val vmmapi_stats : vmctx -> int64 list
val descr : string list ref
type 'a t = {
  1. pid_nic : ((vmctx, int) result * string * (string * int * string) list) Vmm_core.IM.t;
  2. vmid_pid : int Vmm_trie.t;
  3. name_sockets : 'a Vmm_trie.t;
}
val pp_strings : Format.formatter -> string list -> unit
val pp_nics : Format.formatter -> (string * string) list -> unit
val empty : unit -> 'a t
val remove_entry : 'a t -> Vmm_core.Name.t -> 'b t
val wrap : ('a -> 'b) -> 'c -> 'd option
val vmmapi : [ `Close | `Open ] -> unit
val remove_vmid : 'a t -> Vmm_core.Name.t -> 'a t
val fill_descr : vmctx -> unit
val open_vmmapi : retries:int -> string -> (vmctx, int) result
val try_open_vmmapi : ((vmctx, int) result * string * 'a) Vmm_core.IM.t -> ((vmctx, int) result * string * 'b) Vmm_core.IM.t
val string_of_file : string -> (string, [> `Msg of string ]) result
val parse_proc_stat : string -> (string list, [> `Msg of string ]) result
val read_proc_status : int -> ((string * string) list, [> `Msg of string ]) result
val linux_rusage : int -> (Vmm_core.Stats.rusage * Vmm_core.Stats.kinfo_mem, [> `Msg of string ]) result
val rusage : int -> (Vmm_core.Stats.rusage * Vmm_core.Stats.kinfo_mem) option
val gather : int -> (vmctx, 'a) result -> (string * int * string) list -> Vmm_core.Stats.rusage option * Vmm_core.Stats.kinfo_mem option * int64 list option * Vmm_core.Stats.ifdata list
val tick : (Vmm_commands.version * 'a) t -> (Vmm_commands.version * 'a) t * ('b * Vmm_core.Name.t * (Vmm_commands.header * [> `Data of [> `Stats_data of Vmm_core.Stats.rusage * Vmm_core.Stats.kinfo_mem option * (string * int64) list option * Vmm_core.Stats.ifdata list ] ])) list
val add_pid : 'a t -> Vmm_core.Name.t -> string -> Vmm_core.IM.key -> (string * string) list -> ('b t, [> `Msg of string ]) result
val handle : (Vmm_commands.version * 'a) t -> 'b -> (Vmm_commands.header * Vmm_commands.res) -> ((Vmm_commands.version * 'a) t * (Vmm_commands.version * 'a) option * string, [> `Msg of string ]) result
OCaml

Innovation. Community. Security.