module type Messages =sig
..end
val verbose_atleast : int -> bool
val debug_atleast : int -> bool
val printf : ?level:int ->
?dkey:Log.category ->
?current:bool ->
?source:Lexing.position ->
?append:(Format.formatter -> unit) ->
?header:(Format.formatter -> unit) ->
?prefix:string ->
?suffix:string -> ('a, Format.formatter, unit) Pervasives.format -> 'a
stdout
. Levels and
key-categories are taken into account like event messages.
The header formatted message is emitted as a regular result
message. Prefix and suffix strings, if provided, are emitted
on stdout
as is, at the beginning of an empty line and with
a terminal newline character.val result : ?level:int -> ?dkey:Log.category -> 'a Log.pretty_printer
val feedback : ?ontty:Log.ontty -> ?level:int -> ?dkey:Log.category -> 'a Log.pretty_printer
?dkey
?ontty
val debug : ?level:int -> ?dkey:Log.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 caught, 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
val register_category : string -> Log.category
add_debug_keys
)
after registration.val get_category : string -> Log.Category_set.t
val get_all_categories : unit -> Log.Category_set.t
val add_debug_keys : Log.Category_set.t -> unit
Plugin.S.Debug_category.add
.val del_debug_keys : Log.Category_set.t -> unit
val get_debug_keys : unit -> Log.Category_set.t
val is_debug_key_enabled : Log.category -> bool
true
if the given category is currently activeval get_debug_keyset : unit -> Log.category list