albatross 2.1.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 get_ifindex_by_name : string -> int

val sysctl_ifdata : int -> Vmm_core.Stats.ifdata

type vmctx

type vcpu

val vmmapi_open : string -> vmctx * vcpu

val vmmapi_close : vmctx -> vcpu -> unit

val vmmapi_stats : vmctx -> vcpu -> (string * int64) list

type 'a t = {

pid_nic : ((vmctx * vcpu, 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 -> 'a t

val wrap : ('a -> 'b) -> 'a -> 'b option

val vmmapi : [ `Close | `Open ] -> unit

val remove_vmid : 'a t -> Vmm_core.Name.t -> 'a t

val open_vmmapi : retries:int -> string -> (vmctx * vcpu, int) result

val try_open_vmmapi : 
  ((vmctx * vcpu, int) result * string * 'a) Vmm_core.IM.t ->
  ((vmctx * vcpu, int) result * string * 'a) 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 * vcpu, 'a) result ->
  (string * int * string) list ->
  Vmm_core.Stats.rusage option
  * Vmm_core.Stats.kinfo_mem option
  * (string * int64) list option
  * Vmm_core.Stats.ifdata list

val tick : 
  bool ->
  (Vmm_commands.version * 'a) t ->
  (Vmm_commands.version * 'a) t
  * ('a
     * 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 ->
  ('a t, 'b) result

val handle : 
  (Vmm_commands.version * 'a) t ->
  'a ->
  (Vmm_commands.header * Vmm_commands.res) ->
  ((Vmm_commands.version * 'a) t * (Vmm_commands.version * 'a) option * string,
    [> `Msg of string ])
    result

package albatross