albatross 1.4.0 · OCaml Package

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 = {

pid_nic : ((vmctx, int) result * string * (string * int * string) list) Vmm_core.IM.t;
vmid_pid : int Vmm_trie.t;
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.t) 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

package albatross