module D : sig ... end

Printing functions.

Logging function for command handling.

val log_hndl : 'a Lplib.Base.outfmt -> 'a
val time_of : string -> ( unit -> 'b ) -> 'b

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

val do_record_time : bool ref

To record time with record_time.

val do_print_time : bool ref
type task =
| Lexing
| Parsing
| Scoping
| Rewriting
| Typing
| Solving
| Reading
| Sharing
| Writing
val index : task -> int
val nb_tasks : int
val task_name : Format.formatter -> int -> unit
val 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.

val print_time : float -> unit -> unit

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

val 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.