Module Archetype.Error

val flag : [ `Exit | `Raise | `Resume ] Stdlib.ref
val exit_on_error : unit -> unit
val raise_on_error : unit -> unit
val resume_on_error : unit -> unit
val errors : (Position.t list * string) list Stdlib.ref
exception Error of Position.t list * string
exception ParseError of (Position.t list * string) list
exception Stop of int
val print_error : Position.t list -> string -> string
val error_alert : Position.t list -> string -> (unit -> 'a) -> 'a
val global_error : string -> string -> (unit -> 'a) -> 'a
val errorN : string -> Position.t list -> string -> (unit -> 'a) -> 'a
val error : string -> Position.t -> string -> (unit -> 'a) -> 'a
val error2 : string -> Position.t -> Position.t -> string -> (unit -> 'a) -> 'a