Module Xenstore_server.Logging

type logger = {
  1. stream : string Lwt_stream.t;
  2. push : string -> unit;
  3. elements : int Stdlib.ref;
  4. max_elements : int;
  5. dropped_elements : int Stdlib.ref;
}
val create : int -> logger
val get : logger -> string list Lwt.t
val logger : logger
val access_logger : logger
type level =
  1. | Debug
  2. | Info
  3. | Warn
  4. | Error
  5. | Null
val log_level : level Stdlib.ref
val int_of_level : level -> int
val string_of_level : level -> string
val log : level -> string -> ('a, unit, string, unit) Stdlib.format4 -> 'b
val debug : string -> ('a, unit, string, unit) Stdlib.format4 -> 'a
val info : string -> ('a, unit, string, unit) Stdlib.format4 -> 'a
val warn : string -> ('a, unit, string, unit) Stdlib.format4 -> 'a
val error : string -> ('a, unit, string, unit) Stdlib.format4 -> 'a
type access_type =
  1. | Coalesce
  2. | Conflict
  3. | Commit
  4. | Newconn
  5. | Endconn
  6. | Debug of string
  7. | Start_transaction
  8. | End_transaction
  9. | Request of Xs_protocol.Request.payload
  10. | Response of Xs_protocol.Response.payload * string option
val string_of_tid : con:string -> int32 -> string
val string_of_access_type : access_type -> string
val disable_coalesce : bool Stdlib.ref
val disable_conflict : bool Stdlib.ref
val disable_commit : bool Stdlib.ref
val disable_newconn : bool Stdlib.ref
val disable_endconn : bool Stdlib.ref
val disable_transaction : bool Stdlib.ref
val disable_request : string list Stdlib.ref
val disable_reply_ok : string list Stdlib.ref
val disable_reply_err : string list Stdlib.ref
val access_type_disabled : access_type -> bool
val access_type_enabled : access_type -> bool
val sanitize_data : string -> string
val access_logging : con:string -> tid:int32 -> ?data:string -> access_type -> unit
val new_connection : con:string -> tid:int32 -> unit
val end_connection : con:string -> tid:int32 -> unit
val read_coalesce : tid:int32 -> con:string -> string -> unit
val write_coalesce : string -> con:string -> tid:int32 -> unit
val conflict : con:string -> tid:int32 -> unit
val commit : con:string -> tid:int32 -> unit
val request : tid:int32 -> con:string -> Xs_protocol.Request.payload -> unit
val response : tid:int32 -> con:string -> ?info:string -> Xs_protocol.Response.payload -> unit
val debug_print : tid:int32 -> con:string -> string -> unit
val start_transaction : tid:int32 -> con:string -> unit
val end_transaction : tid:int32 -> con:string -> unit