module type LIBOEVENT =sig..end
type 
type | | | 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 | | | ONCE | 
| | | NONBLOCK | 
val loop : loop_flags -> unit
        