Module Xenstore_server.Connection

val info : ('a, unit, string, unit) format4 -> 'a
val error : ('a, unit, string, unit) format4 -> 'a
exception End_of_file
type watch = {
  1. con : t;
  2. token : string;
  3. name : Store.Name.t;
  4. mutable count : int;
}
and t = {
  1. address : Xs_protocol.address;
  2. interface : (module Namespace.IO) option;
  3. domid : int;
  4. domstr : string;
  5. idx : int;
  6. transactions : (int32, Transaction.t) Hashtbl.t;
  7. mutable next_tid : int32;
  8. watches : (Store.Name.t, watch list) Hashtbl.t;
  9. mutable nb_watches : int;
  10. mutable nb_dropped_watches : int;
  11. mutable stat_nb_ops : int;
  12. mutable perm : Perms.t;
  13. watch_events : (string * string) Queue.t;
  14. cvar : unit Lwt_condition.t;
  15. domainpath : Store.Path.t;
}
val by_address : (Xs_protocol.address, t) Hashtbl.t
val by_index : (int, t) Hashtbl.t
val watches : (string, watch list) Trie.t 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 ref
val destroy : Xs_protocol.address -> unit
val counter : int 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