mirror of
https://github.com/ocaml-tracing/ocaml-trace.git
synced 2026-03-07 18:37:56 -05:00
rename tef.tldr to tef.tldrs
This commit is contained in:
parent
cfa17743be
commit
d1d69908dd
7 changed files with 13 additions and 13 deletions
|
|
@ -11,10 +11,10 @@
|
||||||
(libraries trace.core trace-fuchsia))
|
(libraries trace.core trace-fuchsia))
|
||||||
|
|
||||||
(executable
|
(executable
|
||||||
(name trace_tldr)
|
(name trace_tldrs)
|
||||||
(modules trace_tldr)
|
(modules trace_tldrs)
|
||||||
(preprocess (pps ppx_trace))
|
(preprocess (pps ppx_trace))
|
||||||
(libraries trace.core trace-tef.tldr))
|
(libraries trace.core trace-tef.tldrs))
|
||||||
|
|
||||||
(executable
|
(executable
|
||||||
(name bench_fuchsia_write)
|
(name bench_fuchsia_write)
|
||||||
|
|
|
||||||
|
|
@ -43,7 +43,7 @@ let main ~n ~j ~child () : unit =
|
||||||
procs
|
procs
|
||||||
|
|
||||||
let () =
|
let () =
|
||||||
let@ () = Trace_tef_tldr.with_setup () in
|
let@ () = Trace_tef_tldrs.with_setup () in
|
||||||
|
|
||||||
let n = ref 10_000 in
|
let n = ref 10_000 in
|
||||||
let j = ref 4 in
|
let j = ref 4 in
|
||||||
|
|
@ -1,3 +1,3 @@
|
||||||
#!/bin/sh
|
#!/bin/sh
|
||||||
DUNE_OPTS="--profile=release --display=quiet"
|
DUNE_OPTS="--profile=release --display=quiet"
|
||||||
exec dune exec $DUNE_OPTS bench/trace_tldr.exe -- $@
|
exec dune exec $DUNE_OPTS bench/trace_tldrs.exe -- $@
|
||||||
|
|
@ -1,6 +0,0 @@
|
||||||
|
|
||||||
(library
|
|
||||||
(name trace_tef_tldr)
|
|
||||||
(public_name trace-tef.tldr)
|
|
||||||
(synopsis "Multiprocess tracing using the `tldr` daemon")
|
|
||||||
(libraries trace.core trace.private.util trace-tef unix threads))
|
|
||||||
6
src/tef-tldrs/dune
Normal file
6
src/tef-tldrs/dune
Normal file
|
|
@ -0,0 +1,6 @@
|
||||||
|
|
||||||
|
(library
|
||||||
|
(name trace_tef_tldrs)
|
||||||
|
(public_name trace-tef.tldrs)
|
||||||
|
(synopsis "Multiprocess tracing using the `tldrs` daemon")
|
||||||
|
(libraries trace.core trace.private.util trace-tef unix threads))
|
||||||
|
|
@ -15,7 +15,7 @@ let get_unix_socket () =
|
||||||
match Sys.getenv_opt env_var_unix_socket with
|
match Sys.getenv_opt env_var_unix_socket with
|
||||||
| Some s -> s
|
| Some s -> s
|
||||||
| None ->
|
| None ->
|
||||||
let s = "/tmp/tldr.socket" in
|
let s = "/tmp/tldrs.socket" in
|
||||||
(* children must agree on the socket file *)
|
(* children must agree on the socket file *)
|
||||||
Unix.putenv env_var_unix_socket s;
|
Unix.putenv env_var_unix_socket s;
|
||||||
s
|
s
|
||||||
|
|
@ -90,7 +90,7 @@ let collector_ (client : as_client) : collector =
|
||||||
(try Unix.connect sock (Unix.ADDR_UNIX client.socket)
|
(try Unix.connect sock (Unix.ADDR_UNIX client.socket)
|
||||||
with exn ->
|
with exn ->
|
||||||
failwith
|
failwith
|
||||||
@@ spf "Could not open socket to `tldr` demon at %S: %s" client.socket
|
@@ spf "Could not open socket to `tldrs` demon at %S: %s" client.socket
|
||||||
(Printexc.to_string exn));
|
(Printexc.to_string exn));
|
||||||
let out = Unix.out_channel_of_descr sock in
|
let out = Unix.out_channel_of_descr sock in
|
||||||
|
|
||||||
Loading…
Add table
Reference in a new issue