Source file `instrumentation.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
open! Core
open! Incr_dom
open! Js_of_ocaml

let is_profiling = ref false

let () =
  Js.Unsafe.global##.startProfilingPrt
  := Js.wrap_callback (fun () -> is_profiling := true)
;;

let () =
  Js.Unsafe.global##.stopProfilingPrt
  := Js.wrap_callback (fun () -> is_profiling := false)
;;

let instrument name =
  { Incr.Map.Instrumentation.f =
      (fun f -> if !is_profiling then Javascript_profiling.record name ~f else f ())
  }
;;