package miaou-core

  1. Overview
  2. Docs
Miaou core/widgets (no drivers, no SDL)

Install 

dune-project
 Dependency

github.com Edit opam file Versions (1)

Authors

  1. N
    Nomadic Labs <contact@nomadic-labs.com>

Maintainers

  1. N
    Nomadic Labs <contact@nomadic-labs.com>

Sources

v0.5.2.tar.gz
md5=60a3b9f181f24572a06a9492532bfdda
sha512=fcc35a275066be2900e6201782faf47503076fa4640f08cf78067835a6f447b74613009e55b2ac799adb7ca46f1bffa261fc5971753f2cc3c6bef327511c7ef6

doc/src/miaou-core.interfaces/clock.ml.html

Source file clock.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
(*****************************************************************************)
(*                                                                           *)
(* SPDX-License-Identifier: MIT                                              *)
(* Copyright (c) 2025 Nomadic Labs <contact@nomadic-labs.com>                *)
(*                                                                           *)
(*****************************************************************************)

[@@@warning "-32-34-37-69"]

type state = {
  origin : float;
  mutable prev_tick : float;
  mutable cur_tick : float;
}

type t = {dt : unit -> float; now : unit -> float; elapsed : unit -> float}

let key : t Capability.key = Capability.create ~name:"Clock"

let set v = Capability.set key v

let get () = Capability.get key

let require () = Capability.require key

let create_state () =
  let now = Unix.gettimeofday () in
  {origin = now; prev_tick = now; cur_tick = now}

let register (s : state) =
  let cap : t =
    {
      dt = (fun () -> s.cur_tick -. s.prev_tick);
      now = (fun () -> s.cur_tick);
      elapsed = (fun () -> s.cur_tick -. s.origin);
    }
  in
  set cap

let tick (s : state) =
  let now = Unix.gettimeofday () in
  s.prev_tick <- s.cur_tick ;
  s.cur_tick <- now