Source file poll.ml

open Gluon_common
open Gluon_sys

type t = { selector : Sys.Selector.t }

let make () =
  let* selector = Sys.Selector.make () in
  Ok { selector }

let poll ?max_events ?timeout t =
  Sys.Selector.select ?timeout ?max_events t.selector

let register (t : t) token interests source =
  Source.register source t.selector token interests

let reregister (t : t) token interests source =
  Source.reregister source t.selector token interests

let deregister (t : t) source = Source.deregister source t.selector