Source file `poll.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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