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.
44 lines
1.2 KiB
44 lines
1.2 KiB
(*
|
|
* 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.
|
|
*)
|
|
|
|
open! Utils
|
|
|
|
(** Type of functions to report issues to the error_log in a spec. *)
|
|
|
|
type log_t =
|
|
?loc: Location.t option ->
|
|
?node_id: (int * int) option ->
|
|
?session: int option ->
|
|
?ltr: Errlog.loc_trace option ->
|
|
?pre: Prop.normal Prop.t option ->
|
|
exn ->
|
|
unit
|
|
|
|
type log_issue = Procname.t -> log_t
|
|
|
|
type log_issue_from_errlog = Errlog.t -> log_t
|
|
|
|
(** Report an error in the given procedure. *)
|
|
val log_error : log_issue
|
|
|
|
(** Report a warning in the given procedure. *)
|
|
val log_warning : log_issue
|
|
|
|
(** Report an info in the given procedure. *)
|
|
val log_info : log_issue
|
|
|
|
(** Report an error in the given error log. *)
|
|
val log_error_from_errlog : log_issue_from_errlog
|
|
|
|
(** Report a warning in the given error log. *)
|
|
val log_warning_from_errlog : log_issue_from_errlog
|
|
|
|
(** Report an info in the given error log. *)
|
|
val log_info_from_errlog : log_issue_from_errlog
|