|
|
|
|
(*
|
|
|
|
|
* Copyright (c) 2009 - 2013 Monoidics ltd.
|
|
|
|
|
* Copyright (c) 2013 - 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
|
|
|
|
|
open Javalib_pack
|
|
|
|
|
|
|
|
|
|
val add_models : string -> unit
|
|
|
|
|
(** Adds the set of procnames for the models of Java libraries so that methods
|
|
|
|
|
with similar names are skipped during the capture *)
|
|
|
|
|
|
|
|
|
|
val is_model : Typ.Procname.t -> bool
|
|
|
|
|
(** Check if there is a model for the given procname *)
|
|
|
|
|
|
|
|
|
|
(** map entry for source files with potential basename collision within the same compiler call *)
|
|
|
|
|
type file_entry = Singleton of SourceFile.t | Duplicate of (string * SourceFile.t) list
|
|
|
|
|
|
|
|
|
|
type t = string * file_entry String.Map.t * JBasics.ClassSet.t
|
|
|
|
|
|
|
|
|
|
val load_from_verbose_output : string -> t
|
|
|
|
|
(** load the list of source files and the list of classes from the javac verbose file *)
|
|
|
|
|
|
|
|
|
|
val load_from_arguments : string -> t
|
|
|
|
|
(** load the list of source files and the list of classes from Config.generated_classes *)
|
|
|
|
|
|
|
|
|
|
type classmap = JCode.jcode Javalib.interface_or_class JBasics.ClassMap.t
|
|
|
|
|
|
|
|
|
|
type program
|
|
|
|
|
|
|
|
|
|
val get_classmap : program -> classmap
|
|
|
|
|
|
|
|
|
|
val get_models : program -> classmap
|
|
|
|
|
|
|
|
|
|
val cleanup : program -> unit
|
|
|
|
|
|
|
|
|
|
val load_program : string -> JBasics.ClassSet.t -> program
|
|
|
|
|
(** load a java program *)
|
|
|
|
|
|
|
|
|
|
val lookup_node : JBasics.class_name -> program -> JCode.jcode Javalib.interface_or_class option
|
|
|
|
|
(** retrieve a Java node from the classname *)
|
|
|
|
|
|
|
|
|
|
val add_missing_callee :
|
|
|
|
|
program -> Typ.Procname.t -> JBasics.class_name -> JBasics.method_signature -> unit
|
|
|
|
|
(** add the class name of method signature to the list of callees *)
|
|
|
|
|
|
|
|
|
|
val set_callee_translated : program -> Typ.Procname.t -> unit
|
|
|
|
|
(** set that the CFG for the procedure has been created *)
|
|
|
|
|
|
|
|
|
|
val iter_missing_callees :
|
|
|
|
|
program -> f:(Typ.Procname.t -> JBasics.class_name -> JBasics.method_signature -> unit) -> unit
|
