Module Raw_signal_manager

module Raw_signal_manager: sig .. end

module Signal: Core.Signal

module Handlers: sig .. end

type t = {

	`handlers_by_signal :Handlers.t Signal.Table.t;`
	`delivered :(Signal.t * Handlers.t) Core.Std.Thread_safe_queue.t Core.Std.sexp_opaque;`
	`thread_safe_notify_signal_delivered :unit -> unit;`

}

val sexp_of_t : t -> Sexplib.Sexp.t

val invariant : 'a -> unit

val create : thread_safe_notify_signal_delivered:(unit -> unit) -> t

module Handler: sig .. end

type handler = Handler.t

val get_handlers : t ->
       Signal.Table.key Core.Std.Hashtbl.key ->
       Handlers.t

val handle_signal : t ->
       Signal.Table.key Core.Std.Hashtbl.key -> unit

val install_handler : t ->
       Signal.Table.key Core.Std.Hashtbl.key Core.Std.List.t ->
       (Signal.t -> unit) Core.Std.sexp_opaque ->
       Handler.t

val remove_handler : 'a -> Handler.t -> unit

val handle_delivered : t -> unit