Previous  Up  

Module Raw_scheduler.T

module T: sig .. end
type t = {
   mutable check_access :(unit -> unit) option;
   jobs :Raw_scheduler.Execution_context.t Job.t Jobs.t Core.Std.sexp_opaque;
   mutable main_execution_context :Raw_scheduler.Execution_context.t;
   mutable current_execution_context :Raw_scheduler.Execution_context.t;
   mutable max_num_jobs_per_priority_per_cycle :int;
   mutable uncaught_exn :Core.Std.Error.t option;
   mutable num_jobs_run :int;
   mutable cycle_count :int;
   mutable cycle_start :Core.Std.Time.t;
   mutable last_cycle_time :Core.Std.Time.Span.t;
   cycle_times :Core.Std.Time.Span.t Raw_scheduler.tail;
   mutable last_cycle_num_jobs :int;
   cycle_num_jobs :int Raw_scheduler.tail;
   events :Raw_scheduler.Execution_context.t Raw_scheduler.Clock_event.t Events.t;
} 
val sexp_of_t : t -> Sexplib.Sexp.t
val events : t ->
       Raw_scheduler.Execution_context.t Raw_scheduler.Clock_event.t Events.t
val cycle_num_jobs : t -> int Raw_scheduler.tail
val last_cycle_num_jobs : t -> int
val set_last_cycle_num_jobs : t -> int -> unit
val cycle_times : t -> Core.Std.Time.Span.t Raw_scheduler.tail
val last_cycle_time : t -> Core.Std.Time.Span.t
val set_last_cycle_time : t -> Core.Std.Time.Span.t -> unit
val cycle_start : t -> Core.Std.Time.t
val set_cycle_start : t -> Core.Std.Time.t -> unit
val cycle_count : t -> int
val set_cycle_count : t -> int -> unit
val num_jobs_run : t -> int
val set_num_jobs_run : t -> int -> unit
val uncaught_exn : t -> Core.Std.Error.t option
val set_uncaught_exn : t -> Core.Std.Error.t option -> unit
val max_num_jobs_per_priority_per_cycle : t -> int
val set_max_num_jobs_per_priority_per_cycle : t -> int -> unit
val current_execution_context : t -> Raw_scheduler.Execution_context.t
val set_current_execution_context : t -> Raw_scheduler.Execution_context.t -> unit
val main_execution_context : t -> Raw_scheduler.Execution_context.t
val set_main_execution_context : t -> Raw_scheduler.Execution_context.t -> unit
val jobs : t ->
       Raw_scheduler.Execution_context.t Job.t Jobs.t Core.Std.sexp_opaque
val check_access : t -> (unit -> unit) option
val set_check_access : t -> (unit -> unit) option -> unit
module Fields: sig .. end