module type LIBOEVENT =sig..end
type event 
type event_flags = 
| | 
TIMEOUT | 
| | 
READ | 
| | 
WRITE | 
| | 
SIGNAL | 
typeevent_callback =Unix.file_descr -> event_flags -> unit
val create : unit -> eventval set : event ->
       Unix.file_descr ->
       event_flags list ->
       persist:bool -> event_callback -> unitval add : event -> float option -> unitval del : event -> unittype loop_flags = 
| | 
ONCE | 
| | 
NONBLOCK | 
val loop : loop_flags -> unit