Module Raw_monitor

module Raw_monitor: sig .. end

val __pa_ounit_275876e34cf609db118f3d84b799a790 : string

val debug : bool

type t = {

val kill_index : t -> Kill_index.t

val set_kill_index : t -> Kill_index.t -> unit

val someone_is_listening : t -> bool

val set_someone_is_listening : t -> bool -> unit

val has_seen_error : t -> bool

val set_has_seen_error : t -> bool -> unit

val error_handlers : t -> (exn -> unit) list

val set_error_handlers : t -> (exn -> unit) list -> unit

val parent : t -> t option

val id : t -> int

val here : t -> Core.Std.Source_code_position.t option

val name : t -> Core.Std.Info.t

module Fields: sig .. end

module Pretty: sig .. end

val to_pretty : t -> Pretty.one Core.Std.List.t

val sexp_of_t : t -> Sexplib.Sexp.t

val next_id : unit -> int

val create_with_parent : ?here:Core.Std.Source_code_position.t ->
       ?info:Core.Std.Info.t ->
       ?name:string -> t option -> t

val main : t

exception Shutdown

val update_kill_index : t -> global_kill_index:Kill_index.t -> unit