rename tef.tldr to tef.tldrs

This commit is contained in:
Simon Cruanes 2024-08-22 16:29:07 -04:00
parent cfa17743be
commit d1d69908dd
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
7 changed files with 13 additions and 13 deletions

View file

@ -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)

View file

@ -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

View file

@ -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 -- $@

View file

@ -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
View 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))

View file

@ -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