|
|
@ -58,8 +58,8 @@ let () =
|
|
|
|
(if not Config.absolute_paths then [] else
|
|
|
|
(if not Config.absolute_paths then [] else
|
|
|
|
["--absolute-paths"]) @
|
|
|
|
["--absolute-paths"]) @
|
|
|
|
(match Config.analyzer with None -> [] | Some a ->
|
|
|
|
(match Config.analyzer with None -> [] | Some a ->
|
|
|
|
["--analyzer";
|
|
|
|
["--analyzer";
|
|
|
|
IList.assoc (=) a (IList.map (fun (n,a) -> (a,n)) Config.string_to_analyzer)]) @
|
|
|
|
IList.assoc (=) a (IList.map (fun (n,a) -> (a,n)) Config.string_to_analyzer)]) @
|
|
|
|
(match Config.blacklist with
|
|
|
|
(match Config.blacklist with
|
|
|
|
| Some s when in_buck_mode -> ["--blacklist-regex"; s]
|
|
|
|
| Some s when in_buck_mode -> ["--blacklist-regex"; s]
|
|
|
|
| _ -> []) @
|
|
|
|
| _ -> []) @
|
|
|
@ -67,6 +67,8 @@ let () =
|
|
|
|
["--android-harness"]) @
|
|
|
|
["--android-harness"]) @
|
|
|
|
(if not Config.buck then [] else
|
|
|
|
(if not Config.buck then [] else
|
|
|
|
["--buck"]) @
|
|
|
|
["--buck"]) @
|
|
|
|
|
|
|
|
(match Config.java_jar_compiler with None -> [] | Some p ->
|
|
|
|
|
|
|
|
["--java-jar-compiler"; p]) @
|
|
|
|
(match IList.rev Config.buck_build_args with
|
|
|
|
(match IList.rev Config.buck_build_args with
|
|
|
|
| args when in_buck_mode ->
|
|
|
|
| args when in_buck_mode ->
|
|
|
|
IList.map (fun arg -> ["--Xbuck"; "'" ^ arg ^ "'"]) args |> IList.flatten
|
|
|
|
IList.map (fun arg -> ["--Xbuck"; "'" ^ arg ^ "'"]) args |> IList.flatten
|
|
|
@ -88,7 +90,7 @@ let () =
|
|
|
|
(if Option.is_none Config.use_compilation_database || not in_buck_mode then [] else
|
|
|
|
(if Option.is_none Config.use_compilation_database || not in_buck_mode then [] else
|
|
|
|
["--use-compilation-database"]) @
|
|
|
|
["--use-compilation-database"]) @
|
|
|
|
(match Config.infer_cache with None -> [] | Some s ->
|
|
|
|
(match Config.infer_cache with None -> [] | Some s ->
|
|
|
|
["--infer_cache"; s]) @
|
|
|
|
["--infer_cache"; s]) @
|
|
|
|
"-j" :: (string_of_int Config.jobs) ::
|
|
|
|
"-j" :: (string_of_int Config.jobs) ::
|
|
|
|
"-l" :: (string_of_float Config.load_average) ::
|
|
|
|
"-l" :: (string_of_float Config.load_average) ::
|
|
|
|
(if not Config.pmd_xml then [] else
|
|
|
|
(if not Config.pmd_xml then [] else
|
|
|
@ -97,9 +99,9 @@ let () =
|
|
|
|
["--reactive"]) @
|
|
|
|
["--reactive"]) @
|
|
|
|
"--out" :: Config.results_dir ::
|
|
|
|
"--out" :: Config.results_dir ::
|
|
|
|
(match Config.project_root with None -> [] | Some pr ->
|
|
|
|
(match Config.project_root with None -> [] | Some pr ->
|
|
|
|
["--project_root"; pr]) @
|
|
|
|
["--project_root"; pr]) @
|
|
|
|
(match Config.xcode_developer_dir with None -> [] | Some d ->
|
|
|
|
(match Config.xcode_developer_dir with None -> [] | Some d ->
|
|
|
|
["--xcode-developer-dir"; d]) @
|
|
|
|
["--xcode-developer-dir"; d]) @
|
|
|
|
(if Config.rest = [] then [] else
|
|
|
|
(if Config.rest = [] then [] else
|
|
|
|
("--" :: build_cmd))
|
|
|
|
("--" :: build_cmd))
|
|
|
|
) in
|
|
|
|
) in
|
|
|
|