Module Raw_monitor

module Raw_monitor: sig .. end

val debug : bool
type t = {
   name : Core.Std.Info.t;
   here : Core.Std.Source_code_position.t option;
   id : int;
   parent : t option;
   mutable error_handlers : (exn -> unit) list;
   mutable has_seen_error : bool;
   mutable someone_is_listening : bool;
   mutable kill_index : Kill_index.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