corosync 0.0.1 · OCaml Package

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

val votequorum_qdevice_max_name_len : int

val votequorum_handle_t : Unsigned.uint64 Ctypes.typ

type votequorum_node_t

val votequorm_node_t : votequorum_node_t Ctypes.structure Ctypes.typ

val vnode_nodeid : 
  (Unsigned.uint32, votequorum_node_t Ctypes.structure) Ctypes.field

val vnode_state : 
  (Unsigned.uint32, votequorum_node_t Ctypes.structure) Ctypes.field

type votequorum_ring_id_t

val votequorum_ring_id_t : votequorum_ring_id_t Ctypes.structure Ctypes.typ

val ring_nodeid : 
  (Unsigned.uint32, votequorum_ring_id_t Ctypes.structure) Ctypes.field

val ring_seq : 
  (Unsigned.uint64, votequorum_ring_id_t Ctypes.structure) Ctypes.field

val votequorum_quorum_notification_fn_t : 
  (Unsigned.uint64 ->
    Unsigned.uint64 ->
    Unsigned.uint32 ->
    Unsigned.uint32 ->
    votequorum_node_t Ctypes.structure Ctypes_static.ptr ->
    unit Ctypes_static.ptr)
    Ctypes.fn

val votequorum_nodelist_notification_fn_t : 
  (Unsigned.uint64 ->
    Unsigned.uint64 ->
    votequorum_ring_id_t Ctypes.structure ->
    Unsigned.uint32 ->
    unit Ctypes_static.ptr)
    Ctypes.fn

val votequorum_expectedvotes_notification_fn_t : 
  (Unsigned.uint64 ->
    Unsigned.uint64 ->
    Unsigned.uint32 ->
    unit Ctypes_static.ptr)
    Ctypes.fn

type votequorum_callbacks_t

val votequorum_callbacks_t : votequorum_callbacks_t Ctypes.structure Ctypes.typ

val votequorum_quorum_notify_fn : 
  (Unsigned.uint64 ->
    Unsigned.uint64 ->
    Unsigned.uint32 ->
    Unsigned.uint32 ->
    votequorum_node_t Ctypes.structure Ctypes_static.ptr ->
    unit Ctypes_static.ptr,
    votequorum_callbacks_t Ctypes.structure)
    Ctypes.field

val votequorum_expectedvotes_notify_fn : 
  (Unsigned.uint64 ->
    Unsigned.uint64 ->
    votequorum_ring_id_t Ctypes.structure ->
    Unsigned.uint32 ->
    unit Ctypes_static.ptr,
    votequorum_callbacks_t Ctypes.structure)
    Ctypes.field

val votequorum_nodelist_notify_fn : 
  (Unsigned.uint64 ->
    Unsigned.uint64 ->
    votequorum_ring_id_t Ctypes.structure ->
    Unsigned.uint32 ->
    unit Ctypes_static.ptr,
    votequorum_callbacks_t Ctypes.structure)
    Ctypes.field

type votequorum_info

val votequorum_info : votequorum_info Ctypes.structure Ctypes.typ

val node_id : (Unsigned.uint, votequorum_info Ctypes.structure) Ctypes.field

val node_state : (Unsigned.uint, votequorum_info Ctypes.structure) Ctypes.field

val node_votes : (Unsigned.uint, votequorum_info Ctypes.structure) Ctypes.field

val node_expected_votes : 
  (Unsigned.uint, votequorum_info Ctypes.structure) Ctypes.field

val highest_votes : 
  (Unsigned.uint, votequorum_info Ctypes.structure) Ctypes.field

val total_votes : 
  (Unsigned.uint, votequorum_info Ctypes.structure) Ctypes.field

val quorum : (Unsigned.uint, votequorum_info Ctypes.structure) Ctypes.field

val flags : (Unsigned.uint, votequorum_info Ctypes.structure) Ctypes.field

val qdevice_votes : 
  (Unsigned.uint, votequorum_info Ctypes.structure) Ctypes.field

val qdevice_name : 
  (char Ctypes_static.carray, votequorum_info Ctypes.structure) Ctypes.field

val votequorum_initialize : 
  Unsigned.uint64 Ctypes_static.ptr ->
  votequorum_callbacks_t Ctypes.structure Ctypes_static.ptr ->
  int

val votequorum_finalize : Unsigned.uint64 -> int

val votequorum_getinfo : 
  Unsigned.uint64 ->
  Unsigned.uint ->
  votequorum_info Ctypes.structure Ctypes_static.ptr ->
  int

type vinfo = {

node_id : Unsigned.uint;
node_state : Unsigned.uint;
node_votes : Unsigned.uint;
node_expected_votes : Unsigned.uint;
highest_votes : Unsigned.uint;
total_votes : Unsigned.uint;
quorum : Unsigned.uint;
flags : Unsigned.uint;
qdevice_votes : Unsigned.uint;
qdevice_name : string;

}

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

val get_my_info : Unsigned.uint64 -> (vinfo, Corotypes.CsError.t) result

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

package corosync