You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
94 lines
3.8 KiB
94 lines
3.8 KiB
(*
|
|
* Copyright (c) 2017 - present Facebook, Inc.
|
|
* All rights reserved.
|
|
*
|
|
* This source code is licensed under the BSD style license found in the
|
|
* LICENSE file in the root directory of this source tree. An additional grant
|
|
* of patent rights can be found in the PATENTS file in the same directory.
|
|
*)
|
|
|
|
open! IStd
|
|
module L = Logging
|
|
module F = Format
|
|
module CLOpt = CommandLineOption
|
|
|
|
type compiler = Java | Javac [@@deriving compare]
|
|
|
|
let compile compiler build_prog build_args =
|
|
let prog, prog_args =
|
|
match (compiler, Config.java_jar_compiler) with
|
|
| _, None
|
|
-> (build_prog, ["-J-Duser.language=en"])
|
|
| Java, Some jar
|
|
-> (build_prog, ["-jar"; jar])
|
|
| _, Some jar
|
|
-> (* fall back to java in PATH to avoid passing -jar to javac *)
|
|
("java", ["-jar"; jar])
|
|
in
|
|
let cli_args, file_args =
|
|
let args =
|
|
"-verbose"
|
|
:: "-g"
|
|
:: (* Ensure that some form of "-d ..." is passed to javac. It's unclear whether this is strictly
|
|
needed but the tests break without this for now. See discussion in D4397716. *)
|
|
( match Config.javac_classes_out with
|
|
| Some _
|
|
-> build_args
|
|
| None
|
|
-> "-d" :: CLOpt.init_work_dir :: build_args )
|
|
in
|
|
List.partition_tf args ~f:(fun arg ->
|
|
(* As mandated by javac, argument files must not contain certain arguments. *)
|
|
String.is_prefix ~prefix:"-J" arg || String.is_prefix ~prefix:"@" arg )
|
|
in
|
|
(* Pass non-special args via a file to avoid exceeding the command line size limit. *)
|
|
let args_file =
|
|
let file = Filename.temp_file "args_" "" in
|
|
let quoted_file_args =
|
|
List.map file_args ~f:(fun arg ->
|
|
if String.contains arg '\'' then arg else F.sprintf "'%s'" arg )
|
|
in
|
|
Out_channel.with_file file ~f:(fun oc -> Out_channel.output_lines oc quoted_file_args) ;
|
|
file
|
|
in
|
|
let cli_file_args = cli_args @ [("@" ^ args_file)] in
|
|
let args = prog_args @ cli_file_args in
|
|
L.(debug Capture Quiet) "Current working directory: '%s'@." (Sys.getcwd ()) ;
|
|
let verbose_out_file = Filename.temp_file "javac_" ".out" in
|
|
let try_run cmd error_k =
|
|
let shell_cmd = Utils.shell_escape_command cmd in
|
|
let shell_cmd_redirected = Printf.sprintf "%s 2>'%s'" shell_cmd verbose_out_file in
|
|
L.(debug Capture Quiet) "Trying to execute: %s@." shell_cmd_redirected ;
|
|
let error_k_or_fail err_msg =
|
|
match (error_k, err_msg) with
|
|
| Some k, `UnixError (err, log)
|
|
-> L.(debug Capture Quiet)
|
|
"*** Failed: %s!@\n%s@." (Unix.Exit_or_signal.to_string_hum (Error err)) log ;
|
|
k ()
|
|
| Some k, `ExceptionError exn
|
|
-> L.(debug Capture Quiet) "*** Failed: %a!@\n" Exn.pp exn ; k ()
|
|
| None, `UnixError (err, log)
|
|
-> let verbose_errlog = Utils.with_file_in verbose_out_file ~f:In_channel.input_all in
|
|
L.(die UserError)
|
|
"@\n*** Failed to execute compilation command: %s@\n*** Command: %s@\n*** Output:@\n%s%s@\n*** Infer needs a working compilation command to run.@."
|
|
(Unix.Exit_or_signal.to_string_hum (Error err)) shell_cmd log verbose_errlog
|
|
| None, `ExceptionError exn
|
|
-> reraise exn
|
|
in
|
|
match Utils.with_process_in shell_cmd_redirected In_channel.input_all with
|
|
| log, Error err
|
|
-> error_k_or_fail (`UnixError (err, log))
|
|
| exception exn
|
|
-> error_k_or_fail (`ExceptionError exn)
|
|
| log, Ok ()
|
|
-> L.(debug Capture Quiet) "*** Success. Logs:@\n%s" log
|
|
in
|
|
let fallback () = try_run ("javac" :: cli_file_args) None in
|
|
try_run (prog :: args) (Some fallback) ;
|
|
verbose_out_file
|
|
|
|
let capture compiler ~prog ~args =
|
|
let verbose_out_file = compile compiler prog args in
|
|
if Config.analyzer <> Config.CompileOnly then JMain.from_verbose_out verbose_out_file ;
|
|
if not (Config.debug_mode || Config.stats_mode) then Unix.unlink verbose_out_file
|