Source file `tracer.ml`

1
2
3
4
5
6
7
8
9
let tracer_send : (Pid.t -> Process.t -> Message.t -> unit) ref =
  ref (fun _sender _proc _msg -> ())

let trace_send fn = tracer_send := fn

let tracer_proc_run : (int -> Process.t -> unit) ref =
  ref (fun _sch _proc -> ())

let trace_proc_run fn = tracer_proc_run := fn