val empty : unit -> treturn a new empty env *
val reset : t -> unitreset the given env to empty
val start : t -> ty_module -> ty_function -> unitsave the current timer and start the timer "ty_module x ty_function" *
val pause : t -> ty_module -> ty_function -> unitpause the timer "ty_module x ty_function" and restore the former timer *
val update : t -> unitupdate the value of the current timer *
val get_value : t -> ty_module -> ty_function -> floatget the value of the timer "ty_module x ty_function" *
get the sum of the "ty_function" timers for the given "ty_module" *
val current_timer : t -> ty_module * ty_function * intval string_of_ty_module : ty_module -> stringval string_of_ty_function : ty_function -> stringval get_stack : t -> (ty_module * ty_function * int) listval all_modules : ty_module listval all_functions : ty_function listval set_timer_start : (ty_module -> ty_function -> unit) -> unitThis functions assumes (asserts) that timers() yields true *
val set_timer_pause : (ty_module -> ty_function -> unit) -> unitThis functions assumes (asserts) that timers() yields true *
val with_timer : ty_module -> ty_function -> (unit -> 'a) -> 'awith_timer mod_ fun_ f wraps the call f () with the timer (mod_, fun_).