Module Debug


module Debug: sig .. end

Access to debugging elements and resources



val get_debug : unit -> bool
val set_debug : unit -> unit
val not_yet_implemented : string -> 'a
Raises failure with "not yet implemented" and the string argument.
val trace : string -> unit
val untrace : string -> unit
val sep : string
val print : ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
val output : string -> ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
val output_sep : string -> ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a