module Signal = Core.Signal
module Handlers : sig ... end
type t
=
{
handlers_by_signal : Handlers.t Signal.Table.t; |
delivered : delivered Core.sexp_opaque; |
thread_safe_notify_signal_delivered : unit ‑> unit; |
}
val sexp_of_t : t ‑> Base.Sexp.t
val create : thread_safe_notify_signal_delivered:(unit ‑> unit) ‑> t
val is_managing : t ‑> Signal.Table.key Core.Hashtbl.key ‑> bool
module Handler : sig ... end
val get_handlers : t ‑> Signal.Table.key Core.Hashtbl.key ‑> Handlers.t
val manage : t ‑> Signal.Table.key Core.Hashtbl.key ‑> unit
val install_handler : t ‑> Signal.Table.key Core.Hashtbl.key Core.List.t ‑> (Signal.t ‑> unit) Core.sexp_opaque ‑> Handler.t
val remove_handler : 'a ‑> Handler.t ‑> unit
val handle_delivered : t ‑> unit