module Direct: sig .. end
val iter : Raw_scheduler.T.t ->
check_access:(([< `Read | `Set_and_create ], Raw_scheduler.T.t,
(unit -> unit) option)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> (unit -> unit) option -> 'a) ->
jobs:(([< `Read | `Set_and_create ], Raw_scheduler.T.t, Jobs.t)
Fieldslib.Field.t_with_perm -> Raw_scheduler.T.t -> Jobs.t -> 'b) ->
main_execution_context:(([< `Read | `Set_and_create ], Raw_scheduler.T.t,
Execution_context.t)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> Execution_context.t -> 'c) ->
current_execution_context:(([< `Read | `Set_and_create ], Raw_scheduler.T.t,
Execution_context.t)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> Execution_context.t -> 'd) ->
uncaught_exn:(([< `Read | `Set_and_create ], Raw_scheduler.T.t,
Core.Std.Error.t option)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> Core.Std.Error.t option -> 'e) ->
global_kill_index:(([< `Read | `Set_and_create ], Raw_scheduler.T.t,
Kill_index.t)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> Kill_index.t -> 'f) ->
num_jobs_run:(([< `Read | `Set_and_create ], Raw_scheduler.T.t, int)
Fieldslib.Field.t_with_perm -> Raw_scheduler.T.t -> int -> 'g) ->
cycle_count:(([< `Read | `Set_and_create ], Raw_scheduler.T.t, int)
Fieldslib.Field.t_with_perm -> Raw_scheduler.T.t -> int -> 'h) ->
cycle_start:(([< `Read | `Set_and_create ], Raw_scheduler.T.t,
Core.Std.Time.t)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> Core.Std.Time.t -> 'i) ->
run_every_cycle_start:(([< `Read | `Set_and_create ], Raw_scheduler.T.t,
(unit -> unit) list)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> (unit -> unit) list -> 'j) ->
last_cycle_time:(([< `Read | `Set_and_create ], Raw_scheduler.T.t,
Core.Std.Time.Span.t)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> Core.Std.Time.Span.t -> 'k) ->
last_cycle_num_jobs:(([< `Read | `Set_and_create ], Raw_scheduler.T.t, int)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> int -> 'l) ->
events:(([< `Read | `Set_and_create ], Raw_scheduler.T.t,
Job.t Core.Std.Timing_wheel.t)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> Job.t Core.Std.Timing_wheel.t -> 'm) ->
finalizer_jobs:(([< `Read | `Set_and_create ], Raw_scheduler.T.t,
Job.t Core.Std.Thread_safe_queue.t Core.Std.sexp_opaque)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t ->
Job.t Core.Std.Thread_safe_queue.t Core.Std.sexp_opaque -> 'n) ->
thread_safe_finalizer_hook:(([< `Read | `Set_and_create ], Raw_scheduler.T.t,
unit -> unit)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> (unit -> unit) -> 'o) ->
check_invariants:(([< `Read | `Set_and_create ], Raw_scheduler.T.t, bool)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> bool -> 'p) ->
max_num_jobs_per_priority_per_cycle:(([< `Read | `Set_and_create ],
Raw_scheduler.T.t,
Import.Max_num_jobs_per_priority_per_cycle.t)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t ->
Import.Max_num_jobs_per_priority_per_cycle.t ->
'q) ->
record_backtraces:(([< `Read | `Set_and_create ], Raw_scheduler.T.t, bool)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> bool -> 'r) ->
'r
val fold : Raw_scheduler.T.t ->
init:'a ->
check_access:('a ->
([< `Read | `Set_and_create ], Raw_scheduler.T.t,
(unit -> unit) option)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> (unit -> unit) option -> 'b) ->
jobs:('b ->
([< `Read | `Set_and_create ], Raw_scheduler.T.t, Jobs.t)
Fieldslib.Field.t_with_perm -> Raw_scheduler.T.t -> Jobs.t -> 'c) ->
main_execution_context:('c ->
([< `Read | `Set_and_create ], Raw_scheduler.T.t,
Execution_context.t)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> Execution_context.t -> 'd) ->
current_execution_context:('d ->
([< `Read | `Set_and_create ], Raw_scheduler.T.t,
Execution_context.t)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> Execution_context.t -> 'e) ->
uncaught_exn:('e ->
([< `Read | `Set_and_create ], Raw_scheduler.T.t,
Core.Std.Error.t option)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> Core.Std.Error.t option -> 'f) ->
global_kill_index:('f ->
([< `Read | `Set_and_create ], Raw_scheduler.T.t,
Kill_index.t)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> Kill_index.t -> 'g) ->
num_jobs_run:('g ->
([< `Read | `Set_and_create ], Raw_scheduler.T.t, int)
Fieldslib.Field.t_with_perm -> Raw_scheduler.T.t -> int -> 'h) ->
cycle_count:('h ->
([< `Read | `Set_and_create ], Raw_scheduler.T.t, int)
Fieldslib.Field.t_with_perm -> Raw_scheduler.T.t -> int -> 'i) ->
cycle_start:('i ->
([< `Read | `Set_and_create ], Raw_scheduler.T.t,
Core.Std.Time.t)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> Core.Std.Time.t -> 'j) ->
run_every_cycle_start:('j ->
([< `Read | `Set_and_create ], Raw_scheduler.T.t,
(unit -> unit) list)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> (unit -> unit) list -> 'k) ->
last_cycle_time:('k ->
([< `Read | `Set_and_create ], Raw_scheduler.T.t,
Core.Std.Time.Span.t)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> Core.Std.Time.Span.t -> 'l) ->
last_cycle_num_jobs:('l ->
([< `Read | `Set_and_create ], Raw_scheduler.T.t, int)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> int -> 'm) ->
events:('m ->
([< `Read | `Set_and_create ], Raw_scheduler.T.t,
Job.t Core.Std.Timing_wheel.t)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> Job.t Core.Std.Timing_wheel.t -> 'n) ->
finalizer_jobs:('n ->
([< `Read | `Set_and_create ], Raw_scheduler.T.t,
Job.t Core.Std.Thread_safe_queue.t Core.Std.sexp_opaque)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t ->
Job.t Core.Std.Thread_safe_queue.t Core.Std.sexp_opaque -> 'o) ->
thread_safe_finalizer_hook:('o ->
([< `Read | `Set_and_create ], Raw_scheduler.T.t,
unit -> unit)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> (unit -> unit) -> 'p) ->
check_invariants:('p ->
([< `Read | `Set_and_create ], Raw_scheduler.T.t, bool)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> bool -> 'q) ->
max_num_jobs_per_priority_per_cycle:('q ->
([< `Read | `Set_and_create ],
Raw_scheduler.T.t,
Import.Max_num_jobs_per_priority_per_cycle.t)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t ->
Import.Max_num_jobs_per_priority_per_cycle.t ->
'r) ->
record_backtraces:('r ->
([< `Read | `Set_and_create ], Raw_scheduler.T.t, bool)
Fieldslib.Field.t_with_perm ->
Raw_scheduler.T.t -> bool -> 's) ->
's