Module Synchronous_time_source0.T1
module Event : sig ... end
module Job_or_event : sig ... end
type -'rw t
= 'rw Async_kernel__.Types.Time_source.t1
=
{
id : Id.t;
mutable advance_errors : Core_kernel.Error.t list;
mutable am_advancing : bool;
events : Job_or_event.t Timing_wheel.t;
mutable fired_events : Event.t;
mutable most_recently_fired : Event.t;
handle_fired : Job_or_event.t Alarm.t -> unit;
is_wall_clock : bool;
scheduler : Async_kernel__.Scheduler0.t;
}
val scheduler : 'a t -> Async_kernel__.Scheduler0.t
val is_wall_clock : 'a t -> bool
val handle_fired : 'a t -> Job_or_event.t Alarm.t -> unit
val most_recently_fired : 'a t -> Event.t
val set_most_recently_fired : 'a t -> Event.t -> unit
val fired_events : 'a t -> Event.t
val set_fired_events : 'a t -> Event.t -> unit
val events : 'a t -> Job_or_event.t Timing_wheel.t
val am_advancing : 'a t -> bool
val set_am_advancing : 'a t -> bool -> unit
val advance_errors : 'a t -> Core_kernel.Error.t list
val set_advance_errors : 'a t -> Core_kernel.Error.t list -> unit
val id : 'a t -> Id.t
module Fields : sig ... end
val sexp_of_t : 'a -> 'b t -> Ppx_sexp_conv_lib.Sexp.t
val timing_wheel_now : 'a t -> Core_kernel.Time_ns.t
val is_in_fired_events : 'a t -> Event.t -> bool
val invariant_with_jobs : job:(Async_kernel__.Job.t -> unit) -> 'rw t -> unit
val invariant : 'a t -> unit