[infer][logging] support passing arbitrary scuba columns to infer

Summary:
`infer_events` table is a key-value storage that also have list of fields common for entire infer run.
Infer should be agnostic of many of such fields (e.g. diff number).
Hence we will pass such extra fields through CI.

Note that only "normals" (strings in scuba terminology) are currently supported.
Reason being: most of things that are technically ints (like IDs) should actually be normals (because average etc does not make sense for them; and group by, in contrast, does).

Reviewed By: jvillard

Differential Revision: D15376636

fbshipit-source-id: 729eaabfc

infer/man/man1/infer-full.txt

@@ -1579,6 +1579,10 @@ INTERNAL OPTIONS
            Activates: (direct) logging to scuba (Conversely:
            --no-scuba-logging)
 
+       --scuba-normal +key=value
+           add an extra string (normal) field to be set for each sample of
+           scuba, format <name>=<value>
+
        --seconds-per-iteration float
            Set the number of seconds per iteration (see --iterations)
 

infer/src/base/Config.ml

@@ -2017,6 +2017,11 @@ and select =
 
 and scuba_logging = CLOpt.mk_bool ~long:"scuba-logging" "(direct) logging to scuba "
 
+and scuba_normals =
+  CLOpt.mk_string_map ~long:"scuba-normal"
+    "add an extra string (normal) field to be set for each sample of scuba, format <name>=<value>"
+
+
 and siof_safe_methods =
   CLOpt.mk_string_list ~long:"siof-safe-methods"
     ~in_help:InferCommand.[(Analyze, manual_siof)]
@@ -2997,6 +3002,8 @@ and select = !select
 
 and scuba_logging = !scuba_logging
 
+and scuba_normals = !scuba_normals
+
 and show_buckets = !print_buckets
 
 and siof = !siof

infer/src/base/Config.mli

@@ -600,6 +600,8 @@ val results_dir : string
 
 val scuba_logging : bool
 
+val scuba_normals : string String.Map.t
+
 val seconds_per_iteration : float option
 
 val select : int option

infer/src/scuba/ScubaEventLogging.ml

@@ -17,6 +17,11 @@ let maybe_add_normal ~name ~value sample =
   match value with None -> sample | Some value -> Scuba.add_normal ~name ~value sample
 
 
+let set_command_line_normales sample =
+  let add_normal ~key ~data = Scuba.add_normal ~name:key ~value:data in
+  Map.fold Config.scuba_normals ~init:sample ~f:add_normal
+
+
 let set_common_fields sample =
   let open Scuba in
   sample
@@ -29,7 +34,7 @@ let set_common_fields sample =
 
 
 let create_sample ~event_name ~value =
-  Scuba.new_sample ~time:None |> set_common_fields
+  Scuba.new_sample ~time:None |> set_common_fields |> set_command_line_normales
   |> Scuba.add_normal ~name:"event" ~value:event_name
   |> Scuba.add_int ~name:"value" ~value