Module Astlib.Location

type t = Ocaml_common.Location.t = {
  1. loc_start : Lexing.position;
  2. loc_end : Lexing.position;
  3. loc_ghost : bool;
}
type !'a loc = 'a Ocaml_common.Location.loc = {
  1. txt : 'a;
  2. loc : t;
}
module Error : sig ... end
val set_input_name : string -> unit
val set_input_lexbuf : Lexing.lexbuf option -> unit
val none : t
val register_error_of_exn : (exn -> Error.t option) -> unit
exception Error of Error.t
val raise_errorf : ?loc:t -> ('a, Format.formatter, unit, 'b) format4 -> 'a
val report_exception : Format.formatter -> exn -> unit