sig
module Handler : sig type ('a, 'execution_context) t end
type ('a, 'execution_context) t
type ('a, 'execution_context) ivar = ('a, 'execution_context) Raw_ivar.t
val create : unit -> ('a, 'b) Raw_ivar.t
val peek : ('a, 'b) Raw_ivar.t -> 'a option
val is_empty : ('a, 'b) Raw_ivar.t -> bool
val is_full : ('a, 'b) Raw_ivar.t -> bool
module Scheduler_dependent :
functor (Scheduler : Import.Basic_scheduler) ->
functor
(Ivar : sig
type 'a t
val of_raw :
('a, Scheduler.Execution_context.t) ivar -> 'a t
val to_raw :
'a t -> ('a, Scheduler.Execution_context.t) ivar
end) ->
sig
type 'a t = 'a Ivar.t
val equal :
'a Raw_ivar.Scheduler_dependent.t ->
'a Raw_ivar.Scheduler_dependent.t -> bool
val create : unit -> 'a Raw_ivar.Scheduler_dependent.t
val create_full : 'a -> 'a Raw_ivar.Scheduler_dependent.t
val peek : 'a Raw_ivar.Scheduler_dependent.t -> 'a option
val is_empty : 'a Raw_ivar.Scheduler_dependent.t -> bool
val is_full : 'a Raw_ivar.Scheduler_dependent.t -> bool
val connect :
bind_result:'a Raw_ivar.Scheduler_dependent.t ->
bind_rhs:'a Raw_ivar.Scheduler_dependent.t -> unit
val fill : 'a Raw_ivar.Scheduler_dependent.t -> 'a -> unit
val install_removable_handler :
'a Raw_ivar.Scheduler_dependent.t ->
('a, Scheduler.Execution_context.t) Raw_handler.t -> Unregister.t
val upon :
'a Raw_ivar.Scheduler_dependent.t -> ('a -> unit) -> unit
val upon' :
'a Raw_ivar.Scheduler_dependent.t -> ('a -> unit) -> Unregister.t
val of_raw : ('a, Scheduler.Execution_context.t) ivar -> 'a t
val to_raw : 'a t -> ('a, Scheduler.Execution_context.t) ivar
val sexp_of_t :
('a -> Sexplib.Sexp.t) ->
'a Raw_ivar.Scheduler_dependent.t -> Sexplib.Sexp.t
end
val debug_space_leaks : int option Pervasives.ref
val sexp_of_t :
('a -> Sexplib.Sexp.t) ->
('execution_context -> Sexplib.Sexp.t) ->
('a, 'execution_context) Raw_ivar.t -> Sexplib.Sexp.t
val ounit_tests : unit -> OUnit.test
end