diff --git a/.ocamlformat b/.ocamlformat new file mode 100644 index 0000000..2e68665 --- /dev/null +++ b/.ocamlformat @@ -0,0 +1,2 @@ +version = 0.15.0 +disable = true diff --git a/lib/bindings/clock_stubs.c b/lib/bindings/clock_stubs.c index 1d54f6e..809ed4d 100644 --- a/lib/bindings/clock_stubs.c +++ b/lib/bindings/clock_stubs.c @@ -39,3 +39,10 @@ caml_get_monotonic_time(value v_unit) CAMLparam1(v_unit); CAMLreturn(caml_copy_int64(solo5_clock_monotonic())); } + +CAMLprim value +caml_get_wall_clock(value v_unit) +{ + CAMLparam1(v_unit); + CAMLreturn(caml_copy_int64(solo5_clock_wall())); +} diff --git a/lib/dune b/lib/dune index ee3655b..300d6b2 100644 --- a/lib/dune +++ b/lib/dune @@ -5,17 +5,21 @@ (libraries mirage-runtime bheap lwt cstruct metrics duration)) (rule - (deps (source_tree bindings)) + (deps + (source_tree bindings)) (target libmirage-solo5_bindings.a) (action (no-infer (progn - (chdir bindings (run %{make})) + (chdir + bindings + (run %{make})) (copy bindings/libmirage-solo5_bindings.a libmirage-solo5_bindings.a))))) (include_subdirs unqualified) (install (section lib) - (files (bindings/mirage-solo5.pc as ../pkgconfig/mirage-solo5.pc) - libmirage-solo5_bindings.a)) \ No newline at end of file + (files + (bindings/mirage-solo5.pc as ../pkgconfig/mirage-solo5.pc) + libmirage-solo5_bindings.a))