`sig
module type LIBOEVENT =
sig
type event
type event_flags = TIMEOUT | READ | WRITE | SIGNAL
type event_callback =
Unix.file_descr -> Uq_libevent.LIBOEVENT.event_flags -> unit
val create : unit -> Uq_libevent.LIBOEVENT.event
val set :
Uq_libevent.LIBOEVENT.event ->
Unix.file_descr ->
Uq_libevent.LIBOEVENT.event_flags list ->
persist:bool -> Uq_libevent.LIBOEVENT.event_callback -> unit
val add : Uq_libevent.LIBOEVENT.event -> float option -> unit
val del : Uq_libevent.LIBOEVENT.event -> unit
type loop_flags = ONCE | NONBLOCK
val loop : Uq_libevent.LIBOEVENT.loop_flags -> unit
end
module type POLLSET =
sig
val create_pollset : unit -> Netsys_pollset.pollset
val create_event_system : unit -> Unixqueue.event_system
end
module Make : functor (L : LIBOEVENT) -> POLLSET
end`