test_debug_log_prefixed.ml

module Debug_runtime =
  (val Minidebug_runtime.debug_flushing ~filename:"debugger_show_log_prefixed" ())

[%%global_debug_log_level 2]

let%diagn_show rec loop_exceeded (x : int) : int =
  let z : int =
    [%log2 "inside loop", (x : int)];
    [%log3 "this is detail"];
    (x - 1) / 2
  in
  if x <= 0 then 0 else z + loop_exceeded (z + (x / 2))

let () =
  try print_endline @@ Int.to_string @@ loop_exceeded 7
  with _ -> print_endline "Raised exception."

let%track_show bar () : unit =
  for i = 0 to 10 do
    let _baz : int = i * 2 in
    [%log2 "loop step", (i : int), "value", (_baz : int)];
    [%log3 "this is detail"]
  done

let () = try bar () with _ -> print_endline "Raised exception."