[java] ability to call directly into the Java source parser for debug

Summary:
This is to be able to run the Java source file parser (that detects the position of class definitions and other things) on individual .java files for debugging.
Use with `infer --java-debug-source-file-info SomeFile.java`.

Reviewed By: ngorogiannis

Differential Revision: D21594327

fbshipit-source-id: 2f6d747b7

infer/man/man1/infer-full.txt

@@ -1431,6 +1431,13 @@ INTERNAL OPTIONS
            expressed as a multiple of symbolic operations and a multiple of
            seconds of elapsed time
 
+       --java-debug-source-file-info path
+           For debugging only: Call the Java declarations source file parser
+           on the given file and do not run anything else.
+
+       --java-debug-source-file-info-reset
+           Cancel the effect of --java-debug-source-file-info.
+
        --java-jar-compiler-reset
            Cancel the effect of --java-jar-compiler.
 

infer/src/base/Config.ml

@@ -1396,6 +1396,12 @@ and iterations =
      symbolic operations and a multiple of seconds of elapsed time"
 
 
+and java_debug_source_file_info =
+  CLOpt.mk_path_opt ~long:"java-debug-source-file-info" ~meta:"path"
+    "For debugging only: Call the Java declarations source file parser on the given file and do \
+     not run anything else."
+
+
 and java_jar_compiler =
   CLOpt.mk_path_opt ~long:"java-jar-compiler"
     ~in_help:InferCommand.[(Capture, manual_java)]
@@ -2737,6 +2743,8 @@ and issues_tests_fields = !issues_tests_fields
 
 and iterations = !iterations
 
+and java_debug_source_file_info = !java_debug_source_file_info
+
 and java_jar_compiler = !java_jar_compiler
 
 and java_version = !java_version

infer/src/base/Config.mli

@@ -344,6 +344,8 @@ val issues_tests_fields : IssuesTestField.t list
 
 val iterations : int
 
+val java_debug_source_file_info : string option
+
 val java_jar_compiler : string option
 
 val java_version : int option

infer/src/dune.in

@@ -63,12 +63,13 @@ let infer_exe_stanza =
  (name infer)
  (modes byte_complete exe)
  (modules Infer)
- (flags (:standard -open Core -open IStdlib -open IStd -open IBase -open IR -open Backend -open Integration -open Biabduction -open TestDeterminators -open ClangFrontend -open ASTLanguage %s))
+ (flags (:standard -open Core -open IStdlib -open IStd -open IBase -open IR -open Backend -open Integration -open Biabduction -open TestDeterminators -open ClangFrontend -open ASTLanguage %s -open JavaFrontend %s))
  (libraries %s core IStdlib IBase IR Backend Integration Biabduction TestDeterminators ClangFrontend ASTLanguage)
  (preprocess (pps ppx_compare))
  (promote (until-clean) (into ../bin))
 )|}
     (if clang then "" else "-open ClangFrontendStubs")
+    (if java then "" else "-open JavaFrontendStubs")
     extlib_if_java
 
 

infer/src/infer.ml

@@ -136,10 +136,11 @@ let () =
   if Config.debug_mode && CLOpt.is_originator then (
     L.progress "Logs in %s@." (ResultsDir.get_path Logs) ;
     L.progress "Execution ID %Ld@." Config.execution_id ) ;
-  ( if Config.test_determinator && not Config.process_clang_ast then
+  ( match Config.command with
+  | _ when Config.test_determinator && not Config.process_clang_ast ->
       TestDeterminator.compute_and_emit_test_to_run ()
-  else
+  | _ when Option.is_some Config.java_debug_source_file_info ->
-    match Config.command with
+      JSourceFileInfo.debug_on_file (Option.value_exn Config.java_debug_source_file_info)
   | Analyze ->
       run Driver.Analyze
   | Capture | Compile | Run ->
@@ -155,7 +156,7 @@ let () =
       (* at least one report must be passed in input to compute differential *)
       ( match Config.(report_current, report_previous, costs_current, costs_previous) with
       | None, None, None, None ->
-            L.(die UserError)
+          L.die UserError
             "Expected at least one argument among '--report-current', '--report-previous', \
              '--costs-current', and '--costs-previous'"
       | _ ->
@@ -180,9 +181,8 @@ let () =
         else
           L.result "%a"
             Config.(
-                Procedures.pp_all ~filter ~proc_name:procedures_name
+              Procedures.pp_all ~filter ~proc_name:procedures_name ~attr_kind:procedures_definedness
-                  ~attr_kind:procedures_definedness ~source_file:procedures_source_file
+                ~source_file:procedures_source_file ~proc_attributes:procedures_attributes)
-                  ~proc_attributes:procedures_attributes)
             ()
     | false, true ->
         let filter = Lazy.force Filtering.source_files_filter in

infer/src/java/JavaFrontendStubs.ml

@@ -12,3 +12,7 @@ module JMain = struct
 
   let from_verbose_out _ = ()
 end
+
+module JSourceFileInfo = struct
+  let debug_on_file _ = ()
+end

infer/src/java/JavaFrontendStubs.mli

@@ -15,8 +15,10 @@ open! IStd
 
 module JMain : sig
   val from_arguments : string -> unit
-  (** loads the source files from command line arguments and translates them *)
 
   val from_verbose_out : string -> unit
-  (** loads the source files from javac's verbose output translates them *)
+end
+
+module JSourceFileInfo : sig
+  val debug_on_file : string -> unit
 end

infer/src/java/jSourceFileInfo.mll

@@ -401,4 +401,8 @@ and skip_comments action = parse
             (SourceFile.to_abs_path file);
           In_channel.close cin
     )
+
+  let debug_on_file _path =
+    (* TODO: do something here *)
+    ()
 }