Source file timer.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
(* 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. *)



type t = [ `Timer ] Handle.t

let init ?loop () =
  let timer = Handle.allocate C.Types.Timer.t in
  C.Functions.Timer.init (Loop.or_default loop) timer
  |> Error.to_result timer

let trampoline =
  C.Functions.Timer.get_trampoline ()

let start ?(call_update_time = true) ?(repeat = 0) timer timeout callback =
  Handle.set_reference timer (Error.catch_exceptions callback);

  if call_update_time then begin
    Loop.update_time (Handle.get_loop timer)
  end;

  C.Functions.Timer.start
    timer
    trampoline
    (Unsigned.UInt64.of_int timeout)
    (Unsigned.UInt64.of_int repeat)
  |> Error.to_result ()

let stop timer =
  C.Functions.Timer.stop timer
  |> Error.to_result ()

let again timer =
  C.Functions.Timer.again timer
  |> Error.to_result ()

let set_repeat timer repeat =
  C.Functions.Timer.set_repeat timer (Unsigned.UInt64.of_int repeat)

let get_repeat timer =
  C.Functions.Timer.get_repeat timer
  |> Unsigned.UInt64.to_int