module type Messages =sig
..end
typecategory = private
string
val register_category : string -> category
module Category_set:Set.S
with type elt = category
val get_category : string -> Category_set.t
val get_all_categories : unit -> Category_set.t
val verbose_atleast : int -> bool
val debug_atleast : int -> bool
val add_debug_keys : Category_set.t -> unit
val del_debug_keys : Category_set.t -> unit
val get_debug_keys : unit -> Category_set.t
val is_debug_key_enabled : category -> bool
true
if the given category is currently activeval get_debug_keyset : unit -> category list
val result : ?level:int -> ?dkey:category -> 'a Log.pretty_printer
val feedback : ?level:int -> ?dkey:category -> 'a Log.pretty_printer
val debug : ?level:int -> ?dkey:category -> 'a Log.pretty_printer
set_debug_keys
and set_debug_keyset
.dkey
val warning : 'a Log.pretty_printer
val error : 'a Log.pretty_printer
val abort : ('a, 'b) Log.pretty_aborter
AbortError
with the channel name.val failure : 'a Log.pretty_printer
val fatal : ('a, 'b) Log.pretty_aborter
AbortFatal
with the channel name.val verify : bool -> ('a, bool) Log.pretty_aborter
true
, return true
and do nothing else,
otherwise, send the message on the fatal channel and return
false
.
The intended usage is: assert (verify e "Bla...") ;
.
Since Beryllium-20090601-beta1
Consult the Plugin Development Guide for additional details.
val not_yet_implemented : ('a, Format.formatter, unit, 'b) Pervasives.format4 -> 'a
FeatureRequest
but does not send any message.
If the exception is not catched, Frama-C displays a feature-request
message to the user.val deprecated : string -> now:string -> ('a -> 'b) -> 'a -> 'b
deprecated s ~now f
indicates that the use of f
of name s
is now
deprecated. It should be replaced by now
.val with_result : (Log.event -> 'b) -> ('a, 'b) Log.pretty_aborter
val with_warning : (Log.event -> 'b) -> ('a, 'b) Log.pretty_aborter
val with_error : (Log.event -> 'b) -> ('a, 'b) Log.pretty_aborter
val with_failure : (Log.event -> 'b) -> ('a, 'b) Log.pretty_aborter
val log : ?kind:Log.kind -> ?verbose:int -> ?debug:int -> 'a Log.pretty_printer
Result
. Use cases (with
n,m > 0
):log ~verbose:n
: emit the message only when verbosity level is
at least n
.log ~debug:n
: emit the message only when debugging level is
at least n
.log ~verbose:n ~debug:m
: any debugging or verbosity level is
sufficient.val with_log : (Log.event -> 'b) -> ?kind:Log.kind -> ('a, 'b) Log.pretty_aborter
val register : Log.kind -> (Log.event -> unit) -> unit
val register_tag_handlers : (string -> string) * (string -> string) -> unit