mirror of
https://github.com/ocaml-tracing/ocaml-trace.git
synced 2026-03-09 12:23:32 -04:00
190f70d7c9
- separate exporter, writer, subscriber - use the subscriber span tbl to keep track of context - use a `Buf_chain.t` to keep multiple buffers in use, and keep a set of ready buffers - batch write the ready buffers and then recycle them
22 lines
488 B
OCaml
22 lines
488 B
OCaml
module A = Trace_core.Internal_.Atomic_
|
|
module Sub = Trace_subscriber
|
|
|
|
let on_tracing_error =
|
|
ref (fun s -> Printf.eprintf "trace-fuchsia error: %s\n%!" s)
|
|
|
|
let ( let@ ) = ( @@ )
|
|
let spf = Printf.sprintf
|
|
|
|
let with_lock lock f =
|
|
Mutex.lock lock;
|
|
try
|
|
let res = f () in
|
|
Mutex.unlock lock;
|
|
res
|
|
with e ->
|
|
let bt = Printexc.get_raw_backtrace () in
|
|
Mutex.unlock lock;
|
|
Printexc.raise_with_backtrace e bt
|
|
|
|
(** Buffer size we use. *)
|
|
let fuchsia_buf_size = 1 lsl 16
|