|
|
|
|
(*
|
|
|
|
|
* 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
|
|
|
|
|
|
|
|
|
|
(** pattern matcher for Java/C++ methods NB matching is modulo template arguments in C++ classes and
|
|
|
|
|
functions *)
|
|
|
|
|
type t = Tenv.t -> Procname.t -> HilExp.t list -> bool
|
|
|
|
|
|
|
|
|
|
type record =
|
|
|
|
|
{ search_superclasses: bool
|
|
|
|
|
; method_prefix: bool
|
|
|
|
|
; actuals_pred: HilExp.t list -> bool
|
|
|
|
|
; classname: string
|
|
|
|
|
; methods: string list }
|
|
|
|
|
|
|
|
|
|
val default : record
|
|
|
|
|
(** record encapsulating the default arguments of [call_matches]. [classname=""] and [methods=\[\]].
|
|
|
|
|
Useful for [with] expressions *)
|
|
|
|
|
|
|
|
|
|
val of_record : record -> t
|
|
|
|
|
(** make a matcher out of a record; optional values use defaults *)
|
|
|
|
|
|
|
|
|
|
val of_json : Yojson.Basic.t -> t
|
|
|
|
|
(** Parse a JSon object into a matcher. The Json object must be a list of records, each
|
|
|
|
|
corresponding to a single matcher. Each record must have a ["classname"] field with a [string]
|
|
|
|
|
value, and a ["methods"] field with a list of strings. The record may also have boolean fields
|
|
|
|
|
["search_superclasses"] and ["method_prefix"]. If absent, the defaults are used. The resulting
|
|
|
|
|
matcher matches if one of the matchers in the list does. *)
|
|
|
|
|
|
|
|
|
|
val of_list : t list -> t
|
|
|
|
|
(** Or combinator *)
|
|
|
|
|
|
|
|
|
|
val of_records : record list -> t
|
|
|
|
|
(** shorthand for [of_list (List.map ~f:of_record r)] *)
|
