mirror of
https://github.com/ocaml-multicore/eio.git
synced 2025-11-14 00:04:38 -05:00
8f5043c458
- Set up a box so that wrapping works correctly. - Print a `+` at the start of each trace line to show it is trace output. - Format location tag with the rest of the output (fixes wrapping). - Add tests for traceln.
18 lines
587 B
OCaml
18 lines
587 B
OCaml
let mutex = Mutex.create ()
|
|
|
|
let default_traceln ?__POS__:pos fmt =
|
|
let b = Buffer.create 512 in
|
|
let k f =
|
|
Option.iter (fun (file, lnum, _, _) -> Format.fprintf f " [%s:%d]" file lnum) pos;
|
|
Format.pp_close_box f ();
|
|
Format.pp_print_flush f ();
|
|
let msg = Buffer.contents b in
|
|
Ctf.label msg;
|
|
let lines = String.split_on_char '\n' msg in
|
|
Mutex.lock mutex;
|
|
Fun.protect ~finally:(fun () -> Mutex.unlock mutex) @@ fun () ->
|
|
List.iter (Printf.eprintf "+%s\n") lines;
|
|
flush stderr
|
|
in
|
|
Format.kfprintf k (Format.formatter_of_buffer b) ("@[" ^^ fmt)
|