corosync 0.0.1 · OCaml Package

val (>>=) : ('a, 'b) result -> ('a -> ('c, 'b) result) -> ('c, 'b) result

val corosync_cfg_handle_t : Unsigned.uint64 Ctypes.typ

type corosync_cfg_callbacks_t

type corosync_cfg_node_address_t

val corosync_cfg_node_address_t : 
  corosync_cfg_node_address_t Ctypes.structure Ctypes.typ

val address_length : 
  (int, corosync_cfg_node_address_t Ctypes.structure) Ctypes.field

val address : 
  (char Ctypes_static.carray, corosync_cfg_node_address_t Ctypes.structure)
    Ctypes.field

module Corosync_cfg_shutdown_flags : sig ... end

val corosync_cfg_shutdown_flags_t : int Ctypes.typ

val corosync_cfg_shutdown_callback_t : 
  (Unsigned.uint64 -> int -> unit) Ctypes.fn

val corosync_cfg_callbacks_t : 
  corosync_cfg_callbacks_t Ctypes.structure Ctypes.typ

val corosync_cfg_shutdown_callback : 
  (Unsigned.uint64 -> int -> unit, corosync_cfg_callbacks_t Ctypes.structure)
    Ctypes.field

val corosync_cfg_initialize : 
  Unsigned.uint64 Ctypes_static.ptr ->
  corosync_cfg_callbacks_t Ctypes.structure Ctypes_static.ptr ->
  int

val corosync_cfg_finalize : Unsigned.uint64 -> int

val corosync_cfg_local_get : 
  Unsigned.uint64 ->
  Unsigned.uint Ctypes_static.ptr ->
  int

val corosync_cfg_get_node_addrs : 
  Unsigned.uint64 ->
  Unsigned.uint ->
  Unsigned.uint64 ->
  int Ctypes_static.ptr ->
  corosync_cfg_node_address_t Ctypes.structure Ctypes_static.ptr ->
  int

val corosync_cfg_reload_config : Unsigned.uint64 -> int

val cfg_local_get : Unsigned.uint64 -> (int, Corotypes.CsError.t) result

type cfg_node_address = {

addr_len : int;
addr : string;

}

val cfg_get_node_addrs : 
  Unsigned.uint64 ->
  int ->
  (cfg_node_address list, Corotypes.CsError.t) result

val cfg_reload_config : Unsigned.uint64 -> (unit, Corotypes.CsError.t) result

val with_handle : 
  (Unsigned.uint64 -> ('a, Corotypes.CsError.t) result) ->
  ('b, Corotypes.CsError.t) result

package corosync