Module Xenstore_server.Connection

val info : ('a, unit, string, unit) Stdlib.format4 -> 'a
val error : ('a, unit, string, unit) Stdlib.format4 -> 'a
exception End_of_file
type watch = {
con : t;
token : string;
name : Store.Name.t;
mutable count : int;
}
and t = {
address : Xs_protocol.address;
interface : (module Namespace.IO) option;
domid : int;
domstr : string;
idx : int;
transactions : (int32, Transaction.t) Stdlib.Hashtbl.t;
mutable next_tid : int32;
watches : (Store.Name.t, watch list) Stdlib.Hashtbl.t;
mutable nb_watches : int;
mutable nb_dropped_watches : int;
mutable stat_nb_ops : int;
mutable perm : Perms.t;
watch_events : (string * string) Stdlib.Queue.t;
cvar : unit Lwt_condition.t;
domainpath : Store.Path.t;
}
val by_address : (Xs_protocol.address, t) Stdlib.Hashtbl.t
val by_index : (int, t) Stdlib.Hashtbl.t
val watches : (string, watch list) Trie.t Stdlib.ref
val list_of_watches : unit -> string list
val watch_create : con:t -> name:Store.Name.t -> token:string -> watch
val get_con : watch -> t
val number_of_transactions : t -> int
val anon_id_next : int Stdlib.ref
val destroy : Xs_protocol.address -> unit
val counter : int Stdlib.ref
val create : Xs_protocol.address -> (module Namespace.IO) option -> t
val restrict : t -> int -> unit
val get_watches : t -> Store.Name.t -> watch list
val add_watch : t -> Store.Name.t -> string -> watch
val del_watch : t -> Store.Name.t -> string -> unit
val fire_one : Store.Name.t option -> watch -> unit
val fire : (Xs_protocol.Op.t * Store.Name.t) -> unit
val find_next_tid : t -> int32
val register_transaction : t -> Store.t -> int32
val unregister_transaction : t -> int32 -> unit
val get_transaction : t -> int32 -> Transaction.t
val mark_symbols : t -> unit
val stats : t -> int * int
val debug : t -> string
module Interface : sig ... end