Clock (p.incr_dom.v0.15.0.doc.incr_dom.ui_incr.Ui

type t = state_witness Incremental.Clock.t

val sexp_of_t : t -> Sexplib0.Sexp.t

val default_timing_wheel_config : Timing_wheel.Config.t

val create : 
  ?timing_wheel_config:Timing_wheel.Config.t ->
  start:Core.Int63.t ->
  unit ->
  t

val alarm_precision : t -> Core.Time_ns.Span.t

val timing_wheel_length : t -> int

val now : t -> Core.Int63.t

val watch_now : t -> Core.Int63.t incremental

val advance_clock : t -> to_:Core.Int63.t -> unit

val advance_clock_by : t -> Core.Time_ns.Span.t -> unit

val at : t -> Core.Int63.t -> Before_or_after.t incremental

val after : t -> Core.Time_ns.Span.t -> Before_or_after.t incremental

val at_intervals : t -> Core.Time_ns.Span.t -> unit incremental

val step_function : t -> init:'a -> (Core.Int63.t * 'a) list -> 'a incremental

val incremental_step_function : 
  t ->
  'a Step_function.t incremental ->
  'a incremental

val snapshot : 
  t ->
  'a incremental ->
  at:Core.Int63.t ->
  before:'a ->
  'a incremental Core.Or_error.t