Module Clock.Fields

val names : string list
val fired_alarm_values : ([< `Read | `Set_and_create ], t, Incremental__.Alarm_value.t Incremental__.Import.Uopt.t) Fieldslib.Field.t_with_perm
val handle_fired : ([< `Read | `Set_and_create ], t, Incremental__.Alarm.t -> unit) Fieldslib.Field.t_with_perm
val now : ([< `Read | `Set_and_create ], t, Incremental__.Import.Time_ns.t Incremental__.Var.t) Fieldslib.Field.t_with_perm
val timing_wheel : ([< `Read | `Set_and_create ], t, Incremental__.Alarm_value.t Core_kernel.Timing_wheel_ns.t) Fieldslib.Field.t_with_perm
val make_creator : timing_wheel:(([< `Read | `Set_and_create ], t, Incremental__.Alarm_value.t Core_kernel.Timing_wheel_ns.t) Fieldslib.Field.t_with_perm -> 'a -> ('b -> Incremental__.Alarm_value.t Core_kernel.Timing_wheel_ns.t) * 'c) -> now:(([< `Read | `Set_and_create ], t, Incremental__.Import.Time_ns.t Incremental__.Var.t) Fieldslib.Field.t_with_perm -> 'c -> ('b -> Incremental__.Import.Time_ns.t Incremental__.Var.t) * 'd) -> handle_fired:(([< `Read | `Set_and_create ], t, Incremental__.Alarm.t -> unit) Fieldslib.Field.t_with_perm -> 'd -> ('b -> Incremental__.Alarm.t -> unit) * 'e) -> fired_alarm_values:(([< `Read | `Set_and_create ], t, Incremental__.Alarm_value.t Incremental__.Import.Uopt.t) Fieldslib.Field.t_with_perm -> 'e -> ('b -> Incremental__.Alarm_value.t Incremental__.Import.Uopt.t) * 'f) -> 'a -> ('b -> t) * 'f
val create : timing_wheel:Incremental__.Alarm_value.t Core_kernel.Timing_wheel_ns.t -> now:Incremental__.Import.Time_ns.t Incremental__.Var.t -> handle_fired:(Incremental__.Alarm.t -> unit) -> fired_alarm_values:Incremental__.Alarm_value.t Incremental__.Import.Uopt.t -> t
val map : timing_wheel:(([< `Read | `Set_and_create ], t, Incremental__.Alarm_value.t Core_kernel.Timing_wheel_ns.t) Fieldslib.Field.t_with_perm -> Incremental__.Alarm_value.t Core_kernel.Timing_wheel_ns.t) -> now:(([< `Read | `Set_and_create ], t, Incremental__.Import.Time_ns.t Incremental__.Var.t) Fieldslib.Field.t_with_perm -> Incremental__.Import.Time_ns.t Incremental__.Var.t) -> handle_fired:(([< `Read | `Set_and_create ], t, Incremental__.Alarm.t -> unit) Fieldslib.Field.t_with_perm -> Incremental__.Alarm.t -> unit) -> fired_alarm_values:(([< `Read | `Set_and_create ], t, Incremental__.Alarm_value.t Incremental__.Import.Uopt.t) Fieldslib.Field.t_with_perm -> Incremental__.Alarm_value.t Incremental__.Import.Uopt.t) -> t
val iter : timing_wheel:(([< `Read | `Set_and_create ], t, Incremental__.Alarm_value.t Core_kernel.Timing_wheel_ns.t) Fieldslib.Field.t_with_perm -> unit) -> now:(([< `Read | `Set_and_create ], t, Incremental__.Import.Time_ns.t Incremental__.Var.t) Fieldslib.Field.t_with_perm -> unit) -> handle_fired:(([< `Read | `Set_and_create ], t, Incremental__.Alarm.t -> unit) Fieldslib.Field.t_with_perm -> unit) -> fired_alarm_values:(([< `Read | `Set_and_create ], t, Incremental__.Alarm_value.t Incremental__.Import.Uopt.t) Fieldslib.Field.t_with_perm -> unit) -> unit
val fold : init:'a -> timing_wheel:('a -> ([< `Read | `Set_and_create ], t, Incremental__.Alarm_value.t Core_kernel.Timing_wheel_ns.t) Fieldslib.Field.t_with_perm -> 'b) -> now:('b -> ([< `Read | `Set_and_create ], t, Incremental__.Import.Time_ns.t Incremental__.Var.t) Fieldslib.Field.t_with_perm -> 'c) -> handle_fired:('c -> ([< `Read | `Set_and_create ], t, Incremental__.Alarm.t -> unit) Fieldslib.Field.t_with_perm -> 'd) -> fired_alarm_values:('d -> ([< `Read | `Set_and_create ], t, Incremental__.Alarm_value.t Incremental__.Import.Uopt.t) Fieldslib.Field.t_with_perm -> 'e) -> 'e
val map_poly : ([< `Read | `Set_and_create ], t, 'a) Fieldslib.Field.user -> 'a list
val for_all : timing_wheel:(([< `Read | `Set_and_create ], t, Incremental__.Alarm_value.t Core_kernel.Timing_wheel_ns.t) Fieldslib.Field.t_with_perm -> bool) -> now:(([< `Read | `Set_and_create ], t, Incremental__.Import.Time_ns.t Incremental__.Var.t) Fieldslib.Field.t_with_perm -> bool) -> handle_fired:(([< `Read | `Set_and_create ], t, Incremental__.Alarm.t -> unit) Fieldslib.Field.t_with_perm -> bool) -> fired_alarm_values:(([< `Read | `Set_and_create ], t, Incremental__.Alarm_value.t Incremental__.Import.Uopt.t) Fieldslib.Field.t_with_perm -> bool) -> bool
val exists : timing_wheel:(([< `Read | `Set_and_create ], t, Incremental__.Alarm_value.t Core_kernel.Timing_wheel_ns.t) Fieldslib.Field.t_with_perm -> bool) -> now:(([< `Read | `Set_and_create ], t, Incremental__.Import.Time_ns.t Incremental__.Var.t) Fieldslib.Field.t_with_perm -> bool) -> handle_fired:(([< `Read | `Set_and_create ], t, Incremental__.Alarm.t -> unit) Fieldslib.Field.t_with_perm -> bool) -> fired_alarm_values:(([< `Read | `Set_and_create ], t, Incremental__.Alarm_value.t Incremental__.Import.Uopt.t) Fieldslib.Field.t_with_perm -> bool) -> bool
val to_list : timing_wheel:(([< `Read | `Set_and_create ], t, Incremental__.Alarm_value.t Core_kernel.Timing_wheel_ns.t) Fieldslib.Field.t_with_perm -> 'a) -> now:(([< `Read | `Set_and_create ], t, Incremental__.Import.Time_ns.t Incremental__.Var.t) Fieldslib.Field.t_with_perm -> 'a) -> handle_fired:(([< `Read | `Set_and_create ], t, Incremental__.Alarm.t -> unit) Fieldslib.Field.t_with_perm -> 'a) -> fired_alarm_values:(([< `Read | `Set_and_create ], t, Incremental__.Alarm_value.t Incremental__.Import.Uopt.t) Fieldslib.Field.t_with_perm -> 'a) -> 'a list
module Direct : sig ... end