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.
40 lines
1.0 KiB
40 lines
1.0 KiB
10 years ago
|
(*
|
||
10 years ago
|
* 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.
|
||
|
*)
|
||
10 years ago
|
|
||
8 years ago
|
open! IStd
|
||
9 years ago
|
|
||
10 years ago
|
(** Module for user-defined checkers. *)
|
||
|
|
||
|
|
||
|
(** State that persists in the .specs files. *)
|
||
|
module ST : sig
|
||
|
|
||
|
(** Report an error. *)
|
||
|
val report_error:
|
||
8 years ago
|
Tenv.t ->
|
||
8 years ago
|
Typ.Procname.t ->
|
||
8 years ago
|
Procdesc.t ->
|
||
8 years ago
|
Localise.t ->
|
||
10 years ago
|
Location.t ->
|
||
10 years ago
|
?advice: string option ->
|
||
8 years ago
|
?field_name: Fieldname.t option ->
|
||
10 years ago
|
?origin_loc: Location.t option ->
|
||
10 years ago
|
?exception_kind: (string -> Localise.error_desc -> exn) ->
|
||
|
?always_report: bool ->
|
||
|
string ->
|
||
|
unit
|
||
10 years ago
|
|
||
|
end (* ST *)
|
||
|
|
||
|
module PP : sig
|
||
10 years ago
|
(** Print a range of lines of the source file in [loc], including [nbefore] lines before loc
|
||
|
and [nafter] lines after [loc] *)
|
||
10 years ago
|
val pp_loc_range : Printer.LineReader.t -> int -> int -> Format.formatter -> Location.t -> unit
|
||
10 years ago
|
end (* PP *)
|