Reviewed By: jberdine Differential Revision: D20438569 fbshipit-source-id: 7db527273master
Martin Trojer
5 years ago
committed by
Facebook GitHub Bot
parent
04543938ab
commit
36b8ee7198
@ -1,84 +0,0 @@
|
|||||||
# Copyright (c) Facebook, Inc. and its affiliates.
|
|
||||||
#
|
|
||||||
# This source code is licensed under the MIT license found in the
|
|
||||||
# LICENSE file in the root directory of this source tree.
|
|
||||||
|
|
||||||
import logging
|
|
||||||
import os
|
|
||||||
|
|
||||||
from . import util
|
|
||||||
from inferlib import jwlib
|
|
||||||
|
|
||||||
MODULE_NAME = __name__
|
|
||||||
MODULE_DESCRIPTION = '''Run analysis of code built with a command like:
|
|
||||||
ant [options] [target]
|
|
||||||
|
|
||||||
Analysis examples:
|
|
||||||
infer -- ant compile'''
|
|
||||||
LANG = ['java']
|
|
||||||
|
|
||||||
|
|
||||||
def gen_instance(*args):
|
|
||||||
return AntCapture(*args)
|
|
||||||
|
|
||||||
|
|
||||||
# This creates an empty argparser for the module, which provides only
|
|
||||||
# description/usage information and no arguments.
|
|
||||||
create_argparser = util.base_argparser(MODULE_DESCRIPTION, MODULE_NAME)
|
|
||||||
|
|
||||||
|
|
||||||
class AntCapture:
|
|
||||||
|
|
||||||
def __init__(self, args, cmd):
|
|
||||||
self.args = args
|
|
||||||
util.log_java_version()
|
|
||||||
logging.info(util.run_cmd_ignore_fail([cmd[0], '-version']))
|
|
||||||
# TODO: make the extraction of targets smarter
|
|
||||||
self.build_cmd = [cmd[0], '-verbose'] + cmd[1:]
|
|
||||||
|
|
||||||
def is_interesting(self, content):
|
|
||||||
return self.is_quoted(content) or content.endswith('.java')
|
|
||||||
|
|
||||||
def is_quoted(self, argument):
|
|
||||||
quote = '\''
|
|
||||||
return len(argument) > 2 and argument[0] == quote\
|
|
||||||
and argument[-1] == quote
|
|
||||||
|
|
||||||
def remove_quotes(self, argument):
|
|
||||||
if self.is_quoted(argument):
|
|
||||||
return argument[1:-1]
|
|
||||||
else:
|
|
||||||
return argument
|
|
||||||
|
|
||||||
def get_infer_commands(self, verbose_output):
|
|
||||||
javac_pattern = '[javac]'
|
|
||||||
argument_start_pattern = 'Compilation arguments'
|
|
||||||
calls = []
|
|
||||||
javac_arguments = []
|
|
||||||
collect = False
|
|
||||||
for line in verbose_output.split('\n'):
|
|
||||||
if javac_pattern in line:
|
|
||||||
if argument_start_pattern in line:
|
|
||||||
collect = True
|
|
||||||
if javac_arguments != []:
|
|
||||||
capture = jwlib.create_infer_command(javac_arguments)
|
|
||||||
calls.append(capture)
|
|
||||||
javac_arguments = []
|
|
||||||
if collect:
|
|
||||||
pos = line.index(javac_pattern) + len(javac_pattern)
|
|
||||||
content = line[pos:].strip()
|
|
||||||
if self.is_interesting(content):
|
|
||||||
arg = self.remove_quotes(content)
|
|
||||||
javac_arguments.append(arg)
|
|
||||||
if javac_arguments != []:
|
|
||||||
capture = jwlib.create_infer_command(javac_arguments)
|
|
||||||
calls.append(capture)
|
|
||||||
javac_arguments = []
|
|
||||||
return calls
|
|
||||||
|
|
||||||
def capture(self):
|
|
||||||
(code, (verbose_out, _)) = util.get_build_output(self.build_cmd)
|
|
||||||
if code != os.EX_OK:
|
|
||||||
return code
|
|
||||||
cmds = self.get_infer_commands(verbose_out)
|
|
||||||
return util.run_compilation_commands(cmds)
|
|
||||||
@ -0,0 +1,73 @@
|
|||||||
|
(*
|
||||||
|
* Copyright (c) Facebook, Inc. and its affiliates.
|
||||||
|
*
|
||||||
|
* This source code is licensed under the MIT license found in the
|
||||||
|
* LICENSE file in the root directory of this source tree.
|
||||||
|
*)
|
||||||
|
open! IStd
|
||||||
|
module L = Logging
|
||||||
|
|
||||||
|
let javac_pattern = "[javac]"
|
||||||
|
|
||||||
|
let arg_start_pattern = "Compilation arguments"
|
||||||
|
|
||||||
|
let extract_javac_args line =
|
||||||
|
let is_quoted s =
|
||||||
|
String.length s > 2 && String.is_prefix s ~prefix:"'" && String.is_suffix s ~suffix:"'"
|
||||||
|
in
|
||||||
|
let remove_quotes s = if is_quoted s then String.sub s ~pos:1 ~len:(String.length s - 2) else s in
|
||||||
|
let is_interesting s = String.is_suffix s ~suffix:".java" || is_quoted s in
|
||||||
|
Option.map (String.substr_index line ~pattern:javac_pattern) ~f:(fun pos ->
|
||||||
|
let content = String.drop_prefix line (pos + String.length javac_pattern) |> String.strip in
|
||||||
|
if is_interesting content then Some (remove_quotes content) else None )
|
||||||
|
|> Option.join
|
||||||
|
|
||||||
|
|
||||||
|
let do_javac_capture rev_javac_args =
|
||||||
|
let prog = Config.bin_dir ^/ "infer" in
|
||||||
|
let args =
|
||||||
|
"capture" :: "--continue" :: "--" :: "javac"
|
||||||
|
:: List.rev_filter_map rev_javac_args ~f:(fun arg ->
|
||||||
|
if String.equal "-Werror" arg then None
|
||||||
|
else if String.is_substring arg ~substring:"-g:" then Some "-g"
|
||||||
|
else Some arg )
|
||||||
|
in
|
||||||
|
L.debug Capture Verbose "%s %s@." prog (String.concat ~sep:" " args) ;
|
||||||
|
Process.create_process_and_wait ~prog ~args
|
||||||
|
|
||||||
|
|
||||||
|
type fold_state = {collecting: bool; rev_javac_args: string list}
|
||||||
|
|
||||||
|
let capture ~prog ~args =
|
||||||
|
let _, java_version =
|
||||||
|
Process.create_process_and_wait_with_output ~prog:"java" ~args:["-version"]
|
||||||
|
in
|
||||||
|
let _, javac_version =
|
||||||
|
Process.create_process_and_wait_with_output ~prog:"javac" ~args:["-version"]
|
||||||
|
in
|
||||||
|
let ant_version, _ = Process.create_process_and_wait_with_output ~prog ~args:["-version"] in
|
||||||
|
L.environment_info "%s %s %s@." java_version javac_version ant_version ;
|
||||||
|
L.debug Capture Verbose "%s %s@." prog @@ String.concat ~sep:" " args ;
|
||||||
|
let ant_out, _ = Process.create_process_and_wait_with_output ~prog ~args:("-verbose" :: args) in
|
||||||
|
L.debug Capture Verbose "%s" ant_out ;
|
||||||
|
let res =
|
||||||
|
List.fold (String.split_lines ant_out) ~init:{collecting= false; rev_javac_args= []}
|
||||||
|
~f:(fun {collecting; rev_javac_args} line ->
|
||||||
|
let is_line_interesting = String.is_substring line ~substring:javac_pattern in
|
||||||
|
if is_line_interesting then
|
||||||
|
let start_collecting = String.is_substring line ~substring:arg_start_pattern in
|
||||||
|
let collecting = collecting || start_collecting in
|
||||||
|
let rev_javac_args =
|
||||||
|
if start_collecting && not (List.is_empty rev_javac_args) then (
|
||||||
|
do_javac_capture rev_javac_args ; [] )
|
||||||
|
else rev_javac_args
|
||||||
|
in
|
||||||
|
let rev_javac_args =
|
||||||
|
if collecting then
|
||||||
|
Option.fold (extract_javac_args line) ~init:rev_javac_args ~f:(Fn.flip List.cons)
|
||||||
|
else rev_javac_args
|
||||||
|
in
|
||||||
|
{collecting; rev_javac_args}
|
||||||
|
else {collecting; rev_javac_args} )
|
||||||
|
in
|
||||||
|
if not (List.is_empty res.rev_javac_args) then do_javac_capture res.rev_javac_args
|
||||||
@ -0,0 +1,11 @@
|
|||||||
|
(*
|
||||||
|
* Copyright (c) Facebook, Inc. and its affiliates.
|
||||||
|
*
|
||||||
|
* This source code is licensed under the MIT license found in the
|
||||||
|
* LICENSE file in the root directory of this source tree.
|
||||||
|
*)
|
||||||
|
|
||||||
|
open! IStd
|
||||||
|
|
||||||
|
val capture : prog:string -> args:string list -> unit
|
||||||
|
(** do an ant capture with the given prog (i.e. ant) and args *)
|
||||||
Loading…
Reference in new issue