|
|
|
(*
|
|
|
|
* Copyright (c) 2015 - 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.
|
|
|
|
*)
|
|
|
|
|
|
|
|
(** Filter type for a source file *)
|
|
|
|
type path_filter = DB.source_file -> bool
|
|
|
|
|
|
|
|
val inferconfig_home : string option ref
|
|
|
|
|
|
|
|
val local_config : string option ref
|
|
|
|
|
|
|
|
(** Filter type for an error name. *)
|
|
|
|
type error_filter = Localise.t -> bool
|
|
|
|
|
|
|
|
type filters =
|
|
|
|
{
|
|
|
|
path_filter : path_filter;
|
|
|
|
error_filter: error_filter;
|
|
|
|
}
|
|
|
|
|
|
|
|
(** Filters that accept everything. *)
|
|
|
|
val do_not_filter : filters
|
|
|
|
|
|
|
|
(** Create filters based on the config file *)
|
|
|
|
val create_filters : Utils.analyzer -> filters
|
|
|
|
|
|
|
|
module NeverReturnNull : sig
|
|
|
|
type matcher = DB.source_file -> Procname.t -> bool
|
|
|
|
val load_matcher : Config.language -> matcher
|
|
|
|
end
|
|
|
|
|
|
|
|
(** Load the config file and list the files to report on *)
|
|
|
|
val test: unit -> unit
|