sig
type 'a t
exception Reject
exception Terminate
exception Out_of_handlers
val create :
?string_of_event:('a -> string) -> ('a Equeue.t -> unit) -> 'a Equeue.t
val add_event : 'a Equeue.t -> 'a -> unit
val add_handler : 'a Equeue.t -> ('a Equeue.t -> 'a -> unit) -> unit
val run : 'a Equeue.t -> unit
val is_running : 'a Equeue.t -> bool
module Debug :
sig
type debug_target = [ `Any | `Process of int | `Thread of int ]
val enable : bool Pervasives.ref
val set_debug_mode : bool -> unit
val set_debug_target : Equeue.Debug.debug_target -> unit
val test_debug_target : Equeue.Debug.debug_target -> bool
end
end
