Module Direct

val iter : t -> check_access:(([< ], t, (unit -> unit) option) Fieldslib.Field.t_with_perm -> t -> (unit -> unit) option -> unit) -> job_pool:(([< ], t, Async_kernel.Job_pool.t) Fieldslib.Field.t_with_perm -> t -> Async_kernel.Job_pool.t -> unit) -> normal_priority_jobs:(([< ], t, Async_kernel.Job_queue.t) Fieldslib.Field.t_with_perm -> t -> Async_kernel.Job_queue.t -> unit) -> low_priority_jobs:(([< ], t, Async_kernel.Job_queue.t) Fieldslib.Field.t_with_perm -> t -> Async_kernel.Job_queue.t -> unit) -> main_execution_context:(([< ], t, Async_kernel.Execution_context.t) Fieldslib.Field.t_with_perm -> t -> Async_kernel.Execution_context.t -> unit) -> current_execution_context:(([< ], t, Async_kernel.Execution_context.t) Fieldslib.Field.t_with_perm -> t -> Async_kernel.Execution_context.t -> unit) -> uncaught_exn:(([< ], t, Core_kernel.Std.Error.t option) Fieldslib.Field.t_with_perm -> t -> Core_kernel.Std.Error.t option -> unit) -> cycle_count:(([< ], t, int) Fieldslib.Field.t_with_perm -> t -> int -> unit) -> cycle_start:(([< ], t, Async_kernel.Import.Time_ns.t) Fieldslib.Field.t_with_perm -> t -> Async_kernel.Import.Time_ns.t -> unit) -> run_every_cycle_start:(([< ], t, (unit -> unit) list) Fieldslib.Field.t_with_perm -> t -> (unit -> unit) list -> unit) -> last_cycle_time:(([< ], t, Async_kernel.Import.Time_ns.Span.t) Fieldslib.Field.t_with_perm -> t -> Async_kernel.Import.Time_ns.Span.t -> unit) -> last_cycle_num_jobs:(([< ], t, int) Fieldslib.Field.t_with_perm -> t -> int -> unit) -> events:(([< ], t, Async_kernel.Job.t Core_kernel.Std.Timing_wheel_ns.t) Fieldslib.Field.t_with_perm -> t -> Async_kernel.Job.t Core_kernel.Std.Timing_wheel_ns.t -> unit) -> handle_fired:(([< ], t, Async_kernel.Job.t Core_kernel.Std.Timing_wheel_ns.Alarm.t -> unit) Fieldslib.Field.t_with_perm -> t -> (Async_kernel.Job.t Core_kernel.Std.Timing_wheel_ns.Alarm.t -> unit) -> unit) -> external_jobs:(([< ], t, Async_kernel.External_job.t Core_kernel.Std.Thread_safe_queue.t) Fieldslib.Field.t_with_perm -> t -> Async_kernel.External_job.t Core_kernel.Std.Thread_safe_queue.t -> unit) -> thread_safe_external_job_hook:(([< ], t, unit -> unit) Fieldslib.Field.t_with_perm -> t -> (unit -> unit) -> unit) -> job_queued_hook:(([< ], t, (Async_kernel.Priority.t -> unit) option) Fieldslib.Field.t_with_perm -> t -> (Async_kernel.Priority.t -> unit) option -> unit) -> event_added_hook:(([< ], t, (Async_kernel.Import.Time_ns.t -> unit) option) Fieldslib.Field.t_with_perm -> t -> (Async_kernel.Import.Time_ns.t -> unit) option -> unit) -> yield_ivar:(([< ], t, unit Async_kernel.Types.Ivar.t Core_kernel.Std.sexp_opaque option) Fieldslib.Field.t_with_perm -> t -> unit Async_kernel.Types.Ivar.t Core_kernel.Std.sexp_opaque option -> unit) -> check_invariants:(([< ], t, bool) Fieldslib.Field.t_with_perm -> t -> bool -> unit) -> max_num_jobs_per_priority_per_cycle:(([< ], t, Async_kernel.Import.Max_num_jobs_per_priority_per_cycle.t) Fieldslib.Field.t_with_perm -> t -> Async_kernel.Import.Max_num_jobs_per_priority_per_cycle.t -> unit) -> record_backtraces:(([< ], t, bool) Fieldslib.Field.t_with_perm -> t -> bool -> 'a) -> 'a

val fold : t -> init:'a -> check_access:('a -> ([< ], t, (unit -> unit) option) Fieldslib.Field.t_with_perm -> t -> (unit -> unit) option -> 'b) -> job_pool:('b -> ([< ], t, Async_kernel.Job_pool.t) Fieldslib.Field.t_with_perm -> t -> Async_kernel.Job_pool.t -> 'c) -> normal_priority_jobs:('c -> ([< ], t, Async_kernel.Job_queue.t) Fieldslib.Field.t_with_perm -> t -> Async_kernel.Job_queue.t -> 'd) -> low_priority_jobs:('d -> ([< ], t, Async_kernel.Job_queue.t) Fieldslib.Field.t_with_perm -> t -> Async_kernel.Job_queue.t -> 'e) -> main_execution_context:('e -> ([< ], t, Async_kernel.Execution_context.t) Fieldslib.Field.t_with_perm -> t -> Async_kernel.Execution_context.t -> 'f) -> current_execution_context:('f -> ([< ], t, Async_kernel.Execution_context.t) Fieldslib.Field.t_with_perm -> t -> Async_kernel.Execution_context.t -> 'g) -> uncaught_exn:('g -> ([< ], t, Core_kernel.Std.Error.t option) Fieldslib.Field.t_with_perm -> t -> Core_kernel.Std.Error.t option -> 'h) -> cycle_count:('h -> ([< ], t, int) Fieldslib.Field.t_with_perm -> t -> int -> 'i) -> cycle_start:('i -> ([< ], t, Async_kernel.Import.Time_ns.t) Fieldslib.Field.t_with_perm -> t -> Async_kernel.Import.Time_ns.t -> 'j) -> run_every_cycle_start:('j -> ([< ], t, (unit -> unit) list) Fieldslib.Field.t_with_perm -> t -> (unit -> unit) list -> 'k) -> last_cycle_time:('k -> ([< ], t, Async_kernel.Import.Time_ns.Span.t) Fieldslib.Field.t_with_perm -> t -> Async_kernel.Import.Time_ns.Span.t -> 'l) -> last_cycle_num_jobs:('l -> ([< ], t, int) Fieldslib.Field.t_with_perm -> t -> int -> 'm) -> events:('m -> ([< ], t, Async_kernel.Job.t Core_kernel.Std.Timing_wheel_ns.t) Fieldslib.Field.t_with_perm -> t -> Async_kernel.Job.t Core_kernel.Std.Timing_wheel_ns.t -> 'n) -> handle_fired:('n -> ([< ], t, Async_kernel.Job.t Core_kernel.Std.Timing_wheel_ns.Alarm.t -> unit) Fieldslib.Field.t_with_perm -> t -> (Async_kernel.Job.t Core_kernel.Std.Timing_wheel_ns.Alarm.t -> unit) -> 'o) -> external_jobs:('o -> ([< ], t, Async_kernel.External_job.t Core_kernel.Std.Thread_safe_queue.t) Fieldslib.Field.t_with_perm -> t -> Async_kernel.External_job.t Core_kernel.Std.Thread_safe_queue.t -> 'p) -> thread_safe_external_job_hook:('p -> ([< ], t, unit -> unit) Fieldslib.Field.t_with_perm -> t -> (unit -> unit) -> 'q) -> job_queued_hook:('q -> ([< ], t, (Async_kernel.Priority.t -> unit) option) Fieldslib.Field.t_with_perm -> t -> (Async_kernel.Priority.t -> unit) option -> 'r) -> event_added_hook:('r -> ([< ], t, (Async_kernel.Import.Time_ns.t -> unit) option) Fieldslib.Field.t_with_perm -> t -> (Async_kernel.Import.Time_ns.t -> unit) option -> 's) -> yield_ivar:('s -> ([< ], t, unit Async_kernel.Types.Ivar.t Core_kernel.Std.sexp_opaque option) Fieldslib.Field.t_with_perm -> t -> unit Async_kernel.Types.Ivar.t Core_kernel.Std.sexp_opaque option -> 't) -> check_invariants:('t -> ([< ], t, bool) Fieldslib.Field.t_with_perm -> t -> bool -> 'u) -> max_num_jobs_per_priority_per_cycle:('u -> ([< ], t, Async_kernel.Import.Max_num_jobs_per_priority_per_cycle.t) Fieldslib.Field.t_with_perm -> t -> Async_kernel.Import.Max_num_jobs_per_priority_per_cycle.t -> 'v) -> record_backtraces:('v -> ([< ], t, bool) Fieldslib.Field.t_with_perm -> t -> bool -> 'w) -> 'w

val set_all_mutable_fields : t -> check_access:(unit -> unit) option -> job_pool:Async_kernel.Job_pool.t -> main_execution_context:Async_kernel.Execution_context.t -> current_execution_context:Async_kernel.Execution_context.t -> uncaught_exn:Core_kernel.Std.Error.t option -> cycle_count:int -> cycle_start:Async_kernel.Import.Time_ns.t -> run_every_cycle_start:(unit -> unit) list -> last_cycle_time:Async_kernel.Import.Time_ns.Span.t -> last_cycle_num_jobs:int -> handle_fired:(Async_kernel.Job.t Core_kernel.Std.Timing_wheel_ns.Alarm.t -> unit) -> thread_safe_external_job_hook:(unit -> unit) -> job_queued_hook:(Async_kernel.Priority.t -> unit) option -> event_added_hook:(Async_kernel.Import.Time_ns.t -> unit) option -> yield_ivar:unit Async_kernel.Types.Ivar.t Core_kernel.Std.sexp_opaque option -> check_invariants:bool -> max_num_jobs_per_priority_per_cycle:Async_kernel.Import.Max_num_jobs_per_priority_per_cycle.t -> record_backtraces:bool -> unit