rename tef.tldr to tef.tldrs

bench/dune

@@ -11,10 +11,10 @@
   (libraries trace.core trace-fuchsia))
 
 (executable
-  (name trace_tldr)
-  (modules trace_tldr)
+  (name trace_tldrs)
+  (modules trace_tldrs)
   (preprocess (pps ppx_trace))
-  (libraries trace.core trace-tef.tldr))
+  (libraries trace.core trace-tef.tldrs))
 
 (executable
   (name bench_fuchsia_write)

bench/trace_tldr.ml → bench/trace_tldrs.ml

@@ -43,7 +43,7 @@ let main ~n ~j ~child () : unit =
       procs
 
 let () =
-  let@ () = Trace_tef_tldr.with_setup () in
+  let@ () = Trace_tef_tldrs.with_setup () in
 
   let n = ref 10_000 in
   let j = ref 4 in

bench_tldr.sh → bench_tldrs.sh

@@ -1,3 +1,3 @@
 #!/bin/sh
 DUNE_OPTS="--profile=release --display=quiet"
-exec dune exec $DUNE_OPTS bench/trace_tldr.exe -- $@
+exec dune exec $DUNE_OPTS bench/trace_tldrs.exe -- $@

src/tef-tldrs/dune

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

src/tef-tldr/trace_tef_tldr.ml → src/tef-tldrs/trace_tef_tldrs.ml

@@ -15,7 +15,7 @@ let get_unix_socket () =
   match Sys.getenv_opt env_var_unix_socket with
   | Some s -> s
   | None ->
-    let s = "/tmp/tldr.socket" in
+    let s = "/tmp/tldrs.socket" in
     (* children must agree on the socket file *)
     Unix.putenv env_var_unix_socket s;
     s
@@ -90,7 +90,7 @@ let collector_ (client : as_client) : collector =
   (try Unix.connect sock (Unix.ADDR_UNIX client.socket)
    with exn ->
      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));
   let out = Unix.out_channel_of_descr sock in