14 lines
398 B
OCaml
14 lines
398 B
OCaml
let print_mtime c =
|
|
Printf.printf "Monotonic clock says: %Ld nanoseconds\n"
|
|
(Mirage_mtime.elapsed_ns c)
|
|
|
|
let print_period_mono c =
|
|
match Mirage_mtime.period_ns c with
|
|
| Some ns ->
|
|
Printf.printf "The monotonic clock period is: %Ld nanoseconds\n" ns
|
|
| None -> Printf.printf "Monotonic clock period unavailable\n"
|
|
|
|
let () =
|
|
print_mtime ();
|
|
print_mtime ();
|
|
print_period_mono ()
|