Module CDebug
type flagtype t= (unit -> Pp.t) -> unit
val create : name:string -> unit -> tCreates a debug component, which may be used to print debug messages.
A debug component is named by the string
name. It is either active or inactive.The special component
"all"may be used to control all components.There is also a special component
"backtrace"to control backtrace recording.
val create_full : name:string -> unit -> flag * tUseful when interacting with a component from code, typically when doing something more complicated than printing.
Note that the printer function prints some metadata compared to
fun pp -> if get_flag flag then Feedback.msg_debug (pp ())
val get_flag : flag -> boolval set_flag : flag -> bool -> unitval get_flags : unit -> stringget_flagsandset_flagsuse the user syntax: a comma separated list of activated "component" and "-component"s.get_flagsstarts with "all" or "-all" and lists all components after it (even if redundant).