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.
43 lines
1.3 KiB
43 lines
1.3 KiB
(*
|
|
* Copyright (c) 2013-present, Facebook, Inc.
|
|
*
|
|
* 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 to register and invoke callbacks *)
|
|
|
|
type proc_callback_args =
|
|
{ get_proc_desc: Typ.Procname.t -> Procdesc.t option
|
|
; get_procs_in_file: Typ.Procname.t -> Typ.Procname.t list
|
|
; tenv: Tenv.t
|
|
; summary: Summary.t
|
|
; proc_desc: Procdesc.t
|
|
; exe_env: Exe_env.t }
|
|
|
|
(** Type of a procedure callback:
|
|
- List of all the procedures the callback will be called on.
|
|
- get_proc_desc to get a proc desc from a proc name
|
|
- Type environment.
|
|
- Procedure for the callback to act on. *)
|
|
type proc_callback_t = proc_callback_args -> Summary.t
|
|
|
|
type cluster_callback_args =
|
|
{ procedures: (Tenv.t * Procdesc.t) list
|
|
; source_file: SourceFile.t
|
|
; get_proc_desc: Typ.Procname.t -> Procdesc.t option
|
|
; exe_env: Exe_env.t }
|
|
|
|
type cluster_callback_t = cluster_callback_args -> unit
|
|
|
|
val register_procedure_callback : ?dynamic_dispatch:bool -> Language.t -> proc_callback_t -> unit
|
|
(** register a procedure callback *)
|
|
|
|
val register_cluster_callback : Language.t -> cluster_callback_t -> unit
|
|
(** register a cluster callback *)
|
|
|
|
val analyze_file : Exe_env.t -> SourceFile.t -> unit
|
|
(** Invoke all the registered callbacks on the given file. *)
|