module Debug: sig .. end
Debugging control.
val dodebug : bool Pervasives.ref
Set to true if debug messages should be displayed.
val debuglevel : int Pervasives.ref
Maximum debug level to display
val dbglevel : unit -> int
dbglevel () returns the maximum debug level (0 for none)
val dbg : ?level:int -> string -> unit
dbg msg prints msg^"\n" to standard error channel.
val dbg_noendl : ?level:int -> string -> unit
dbg_noendl prints msg to standard error channel.
val tic : unit -> float
val toc : ?level:int -> ?label:string -> float -> unit