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