Module Tcstiming.SimpleTiming

type timing_state =
  1. | InactiveTimingObject
  2. | ActiveTimingObject
type timing_object
val init : bool -> timing_object
val start : timing_object -> unit
val stop : timing_object -> unit
val read : timing_object -> float
val run_count : timing_object -> int
val format : timing_object -> string
val read_avg : timing_object -> float
val format_avg : timing_object -> string
val increment_by : timing_object -> timing_object -> unit
val timed_function : timing_object -> ('a -> 'b) -> 'a -> 'b