Module Common.DebugSource

Helper functions for debugging. *

Sourcemodule D : sig ... end

Printing functions.

Sourceval time_of : ((string -> float -> unit) Lplib.Base.outfmt -> string -> float -> unit) -> string -> (unit -> 'b) -> 'b

time_of log f x computes f x and prints the time for computing it.

Sourceval do_record_time : bool ref

To record time with record_time.

Sourceval do_print_time : bool ref
Sourcetype task =
  1. | Lexing
  2. | Parsing
  3. | Scoping
  4. | Rewriting
  5. | Typing
  6. | Solving
  7. | Reading
  8. | Sharing
  9. | Writing
Sourceval index : task -> int
Sourceval nb_tasks : int
Sourceval task_name : Format.formatter -> int -> unit
Sourceval record_time : task -> (unit -> unit) -> unit

record_time s f records under s the time spent in calling f. print_time () outputs the recorded times.

Sourceval print_time : float -> unit -> unit

record_time s f records under s the time spent in calling f. print_time () outputs the recorded times.

Sourceval stream_iter : ('a -> unit) -> 'a Stream.t -> unit

stream_iter f s is the same as Stream.iter f s but records the time in peeking the elements of the stream.