mirror of https://github.com/nealey/irc-bot
10 lines
192 B
OCaml
10 lines
192 B
OCaml
|
external poll : 'a -> 'b -> 'c = "ocaml_poll"
|
||
|
|
|
||
|
|
type event = POLLIN | POLLPRI | POLLOUT | POLLERR | POLLHUP | POLLNVAL
|
||
|
|
|
||
|
|
let _ =
|
||
|
|
poll [
|
||
|
|
(10, [POLLIN; POLLOUT]);
|
||
|
|
(20, [POLLOUT])
|
||
|
|
] ()
|