simon/ocaml-trace
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-trace.git synced 2026-03-07 18:37:56 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

detect corrupt chunks in multiproc

Browse source
This commit is contained in:
Simon Cruanes 2024-08-21 14:10:19 -04:00
parent ff8c7e5353
commit 26b8648c82
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 14 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
src/tef-multiproc/trace_tef_multiproc.ml
View file

@ -27,13 +27,20 @@ let aggregate_into ~dir ~final_file () : unit =
let buf = Bytes.create 4096 in
let emit_chunk buf i len =
if !afternewline && !first then
first := false
else if !afternewline then (
output_string oc ",\n";
afternewline := false
);
output oc buf i len
if len = 0 then
()
else if Bytes.get buf i = '{' && Bytes.get buf (i + len - 1) <> '}' then
(* incomplete chunk *)
()
else (
if !afternewline && !first then
first := false
else if !afternewline then (
output_string oc ",\n";
afternewline := false
);
output oc buf i len
)
in
(* dump content of jsonl file into [oc]. Insert "," before every object