Source file loop.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
(* This file is part of Luv, released under the MIT license. See LICENSE.md for
   details, or visit https://github.com/aantron/luv/blob/master/LICENSE.md. *)



include C.Functions.Loop

type t = C.Types.Loop.t Ctypes.ptr

let init () =
  let loop = Ctypes.addr (Ctypes.make C.Types.Loop.t) in
  let result = C.Functions.Loop.init loop in
  Error.to_result loop result

let configure loop option value =
  C.Functions.Loop.configure loop option (Obj.magic value)
  |> Error.to_result ()

let close loop =
  C.Functions.Loop.close loop
  |> Error.to_result ()

let or_default maybe_loop =
  match maybe_loop with
  | Some loop -> loop
  | None -> C.Functions.Loop.default ()

module Run_mode = C.Types.Loop.Run_mode

module Option =
struct
  include C.Types.Loop.Option
  type 'value t = int
end

(* run must always release the runtime lock, even if called with
   Run_mode.nowait. This is because calling run can trigger callbacks, and
   callbacks expect to be able to take the lock (eventually). If the lock is
   *not* released by run and a callback is called, there will be a deadlock. *)
let run ?loop ?(mode = `DEFAULT) () =
  let loop = or_default loop in
  C.Blocking.Loop.run loop mode

let backend_fd loop =
  let result = C.Functions.Loop.backend_fd loop in
  if result >= 0 then
    Some result
  else
    None

let backend_timeout loop =
  let result = C.Functions.Loop.backend_timeout loop in
  if result >= 0 then
    Some result
  else
    None

let fork loop =
  C.Functions.Loop.fork loop
  |> Error.to_result ()

let library_shutdown =
  C.Functions.Loop.library_shutdown