xenstore 1.1.0 · OCaml Package

type logger = {

}

val create : int -> logger

val get : logger -> string list Lwt.t

val logger : logger

val access_logger : logger

type level =

val log_level : level Pervasives.ref

val int_of_level : level -> int

val string_of_level : level -> string

val log : level -> string -> ('a, unit, string, unit) Pervasives.format4 -> 'a

val debug : string -> ('a, unit, string, unit) Pervasives.format4 -> 'a

val info : string -> ('a, unit, string, unit) Pervasives.format4 -> 'a

val warn : string -> ('a, unit, string, unit) Pervasives.format4 -> 'a

val error : string -> ('a, unit, string, unit) Pervasives.format4 -> 'a

type access_type =

val string_of_tid : con:string -> int32 -> string

val string_of_access_type : access_type -> string

val disable_coalesce : bool Pervasives.ref

val disable_conflict : bool Pervasives.ref

val disable_commit : bool Pervasives.ref

val disable_newconn : bool Pervasives.ref

val disable_endconn : bool Pervasives.ref

val disable_transaction : bool Pervasives.ref

val disable_request : string list Pervasives.ref

val disable_reply_ok : string list Pervasives.ref

val disable_reply_err : string list Pervasives.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

package xenstore