type group = Unixqueue.group
exception Abort of (group * exn)
type wait_id = Unixqueue.wait_id
type operation =
  Unixqueue.operation =
    Wait_in of Unix.file_descr
  | Wait_out of Unix.file_descr
  | Wait_oob of Unix.file_descr
  | Wait of wait_id
type event =
  Unixqueue.event =
    Input_arrived of (group * Unix.file_descr)
  | Output_readiness of (group * Unix.file_descr)
  | Out_of_band of (group * Unix.file_descr)
  | Timeout of (group * operation)
  | Signal
  | Extra of exn
class type event_system =
  object
    method add_abort_action : group -> (group -> exn -> unit) -> unit
    method add_close_action :
      group -> Unix.file_descr * (Unix.file_descr -> unit) -> unit
    method add_event : event -> unit
    method add_handler :
      group -> (event_system -> event Equeue.t -> event -> unit) -> unit
    method add_resource : group -> operation * float -> unit
    method clear : group -> unit
    method debug_log : ?label:string -> string -> unit
    method exists_resource : operation -> bool
    method exn_log :
      ?suppressed:bool ->
      ?to_string:(exn -> string) -> ?label:string -> exn -> unit
    method is_running : bool
    method new_group : unit -> group
    method new_wait_id : unit -> wait_id
    method once : group -> float -> (unit -> unit) -> unit
    method private queue_events :
      Unix.file_descr list * Unix.file_descr list * Unix.file_descr list ->
      bool
    method remove_resource : group -> operation -> unit
    method run : unit -> unit
    method private setup :
      unit ->
      Unix.file_descr list * Unix.file_descr list * Unix.file_descr list *
      float
    method private source : event Equeue.t -> unit
  end
class unix_event_system : unit -> event_system
val create_unix_event_system : unit -> event_system
val new_group : event_system -> group
val new_wait_id : event_system -> wait_id
val exists_resource : event_system -> operation -> bool
val add_resource : event_system -> group -> operation * float -> unit
val add_close_action :
  event_system ->
  group -> Unix.file_descr * (Unix.file_descr -> unit) -> unit
val add_abort_action :
  event_system -> group -> (group -> exn -> unit) -> unit
val remove_resource : event_system -> group -> operation -> unit
val add_handler :
  event_system ->
  group -> (event_system -> event Equeue.t -> event -> unit) -> unit
val add_event : event_system -> event -> unit
val clear : event_system -> group -> unit
val run : event_system -> unit
val is_running : event_system -> bool
val once : event_system -> group -> float -> (unit -> unit) -> unit
val exn_log :
  event_system ->
  ?suppressed:bool ->
  ?to_string:(exn -> string) -> ?label:string -> exn -> unit
val debug_log : event_system -> ?label:string -> string -> unit
val set_debug_mode : bool -> unit
val init_mt : (unit -> (unit -> unit) * (unit -> unit)) -> unit