From d1d69908ddc3d7ef08b6229ca3829bdf812a49a4 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Thu, 22 Aug 2024 16:29:07 -0400 Subject: [PATCH] rename tef.tldr to tef.tldrs --- bench/dune | 6 +++--- bench/{trace_tldr.ml => trace_tldrs.ml} | 2 +- bench_tldr.sh => bench_tldrs.sh | 2 +- src/tef-tldr/dune | 6 ------ src/tef-tldrs/dune | 6 ++++++ .../trace_tef_tldr.ml => tef-tldrs/trace_tef_tldrs.ml} | 4 ++-- .../trace_tef_tldr.mli => tef-tldrs/trace_tef_tldrs.mli} | 0 7 files changed, 13 insertions(+), 13 deletions(-) rename bench/{trace_tldr.ml => trace_tldrs.ml} (97%) rename bench_tldr.sh => bench_tldrs.sh (50%) delete mode 100644 src/tef-tldr/dune create mode 100644 src/tef-tldrs/dune rename src/{tef-tldr/trace_tef_tldr.ml => tef-tldrs/trace_tef_tldrs.ml} (97%) rename src/{tef-tldr/trace_tef_tldr.mli => tef-tldrs/trace_tef_tldrs.mli} (100%) diff --git a/bench/dune b/bench/dune index f9f9511..837ef79 100644 --- a/bench/dune +++ b/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) diff --git a/bench/trace_tldr.ml b/bench/trace_tldrs.ml similarity index 97% rename from bench/trace_tldr.ml rename to bench/trace_tldrs.ml index 6d73e83..ff8cc29 100644 --- a/bench/trace_tldr.ml +++ b/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 diff --git a/bench_tldr.sh b/bench_tldrs.sh similarity index 50% rename from bench_tldr.sh rename to bench_tldrs.sh index f774b3f..3c5eabf 100755 --- a/bench_tldr.sh +++ b/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 -- $@ diff --git a/src/tef-tldr/dune b/src/tef-tldr/dune deleted file mode 100644 index c0602cd..0000000 --- a/src/tef-tldr/dune +++ /dev/null @@ -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)) diff --git a/src/tef-tldrs/dune b/src/tef-tldrs/dune new file mode 100644 index 0000000..9f99684 --- /dev/null +++ b/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)) diff --git a/src/tef-tldr/trace_tef_tldr.ml b/src/tef-tldrs/trace_tef_tldrs.ml similarity index 97% rename from src/tef-tldr/trace_tef_tldr.ml rename to src/tef-tldrs/trace_tef_tldrs.ml index 978c5f2..ae09334 100644 --- a/src/tef-tldr/trace_tef_tldr.ml +++ b/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 diff --git a/src/tef-tldr/trace_tef_tldr.mli b/src/tef-tldrs/trace_tef_tldrs.mli similarity index 100% rename from src/tef-tldr/trace_tef_tldr.mli rename to src/tef-tldrs/trace_tef_tldrs.mli