feature: add more info to "config" event

* argv
* environment
* dune version

Signed-off-by: Rudi Grinberg <[email protected]>

Author: rgrinberg

bin/common.ml

@@ -1424,7 +1424,11 @@ let init_with_root ~(root : Workspace_root.t) (builder : Builder.t) =
   Option.iter c.stats ~f:(fun stats ->
     if Dune_trace.extended_build_job_info stats
     then (
-      let event = Dune_trace.Event.config () in
+      let event =
+        Dune_trace.Event.config
+          ~version:
+            (Build_info.V1.version () |> Option.map ~f:Build_info.V1.Version.to_string)
+      in
       Dune_trace.emit stats event));
   (* Setup hook for printing GC stats to a file *)
   at_exit (fun () ->

src/dune_trace/dune_trace.ml

@@ -137,9 +137,21 @@ module Event = struct
     Event.counter common args
   ;;
 
-  let config () =
+  let config ~version =
     let open Chrome_trace in
-    let args = [ "build_dir", `String (Path.Build.to_string Path.Build.root) ] in
+    let args =
+      let args =
+        [ "build_dir", `String (Path.Build.to_string Path.Build.root)
+        ; "argv", `List (Array.to_list Sys.argv |> List.map ~f:Stdune.Json.string)
+        ; ( "env"
+          , `List (Unix.environment () |> Array.to_list |> List.map ~f:Stdune.Json.string)
+          )
+        ]
+      in
+      match version with
+      | None -> args
+      | Some v -> ("version", Stdune.Json.string v) :: args
+    in
     let ts = Event.Timestamp.of_float_seconds (Unix.gettimeofday ()) in
     let common = Event.common_fields ~cat:[ "config" ] ~name:"config" ~ts () in
     Event.instant ~args common

src/dune_trace/dune_trace.mli

@@ -69,7 +69,7 @@ module Event : sig
 
   val scan_source : name:string -> start:float -> stop:float -> dir:Path.Source.t -> t
   val scheduler_idle : unit -> t
-  val config : unit -> t
+  val config : version:string option -> t
 
   module Rpc : sig
     type stage =