package async_kernel

  1. Overview
  2. Docs

Module Synchronous_time_source.Event

include module type of struct include T1.Event end
module Status = T1.Event.Status
type event
val sexp_of_event : event -> Ppx_sexp_conv_lib.Sexp.t
module Option = T1.Event.Option
type t = {
  1. mutable alarm : Async_kernel__.Types.Job_or_event.t Alarm.t;
  2. mutable at : Time_ns.t;
  3. callback : unit -> unit;
  4. execution_context : Execution_context.t;
  5. mutable interval : Time_ns.Span.t option;
  6. mutable next_fired : Option.t;
  7. mutable prev_fired : Option.t;
  8. mutable status : Status.t;
}
val status : t -> Status.t
val prev_fired : t -> Option.t
val set_prev_fired : t -> Option.t -> unit
val next_fired : t -> Option.t
val set_next_fired : t -> Option.t -> unit
val interval : t -> Time_ns.Span.t option
val set_interval : t -> Time_ns.Span.t option -> unit
val execution_context : t -> Execution_context.t
val callback : t -> unit -> unit
val set_at : t -> Time_ns.t -> unit
val alarm : t -> Async_kernel__.Types.Job_or_event.t Alarm.t
val set_alarm : t -> Async_kernel__.Types.Job_or_event.t Alarm.t -> unit
module Fields = T1.Event.Fields
val sexp_of_t : event -> Ppx_sexp_conv_lib.Sexp.t
val invariant : event -> unit
val set_status : t -> Status.t -> unit
val set_status_if : is:Status.t -> t -> Status.t -> unit
val scheduled_at : t -> Time_ns.t
val create_internal : 'a T1.t -> at:Time_ns.t -> interval:Time_ns.Span.t option -> callback:(unit -> unit) -> t
val add : 'a T1.t -> t -> unit
val create_and_add : 'a T1.t -> at:Time_ns.t -> interval:Time_ns.Span.t option -> callback:(unit -> unit) -> t
val at : 'a T1.t -> Time_ns.t -> (unit -> unit) -> t
val after : 'a T1.t -> Time_ns.Span.t -> (unit -> unit) -> t
val require_span_at_least_alarm_precision : 'a T1.t -> Time_ns.Span.t -> unit
val at_intervals : 'a T1.t -> Time_ns.Span.t -> (unit -> unit) -> t
module Abort_result : sig ... end
val abort : 'a T1.t -> t -> Abort_result.t
val abort_if_possible : 'a T1.t -> t -> unit
val abort_exn : 'a T1.t -> t -> unit
val create : 'a T1.t -> (unit -> unit) -> t
val schedule_at_internal : 'a T1.t -> t -> Time_ns.t -> interval:Time_ns.Span.t option -> unit Core.Or_error.t
val schedule_at : 'a T1.t -> t -> Time_ns.t -> unit Core.Or_error.t
val schedule_after : 'a T1.t -> t -> Time_ns.Span.t -> unit Core.Or_error.t
val schedule_at_intervals : 'a T1.t -> t -> Time_ns.Span.t -> unit Core.Or_error.t
val reschedule_at : 'a T1.t -> t -> Time_ns.t -> unit
val reschedule_after : 'a T1.t -> t -> Time_ns.Span.t -> unit