Module Location

Source code locations (ranges of positions), used in parsetree.

type t = Warnings.loc = {
loc_start : Stdlib.Lexing.position;
loc_end : Stdlib.Lexing.position;
loc_ghost : bool;
}
val none : t

An arbitrary value of type t; describes an empty ghost range.

val in_file : string -> t

Return an empty ghost range located in a given file.

val init : Stdlib.Lexing.lexbuf -> string -> unit

Set the file name and line number of the lexbuf to be the start of the named file.

val curr : Stdlib.Lexing.lexbuf -> t

Get the location of the current token from the lexbuf.

val symbol_rloc : unit -> t
val symbol_gloc : unit -> t
val rhs_loc : int -> t

rhs_loc n returns the location of the symbol at position n, starting at 1, in the current parser rule.

val input_name : string Stdlib.ref
val input_lexbuf : Stdlib.Lexing.lexbuf option Stdlib.ref
val get_pos_info : Stdlib.Lexing.position -> string * int * int
val print_loc : Stdlib.Format.formatter -> t -> unit
val print_error_prefix : Stdlib.Format.formatter -> unit
val print_error : Stdlib.Format.formatter -> t -> unit
val print_error_cur_file : Stdlib.Format.formatter -> unit -> unit
val print_warning : t -> Stdlib.Format.formatter -> Warnings.t -> unit
val formatter_for_warnings : Stdlib.Format.formatter Stdlib.ref
val prerr_warning : t -> Warnings.t -> unit
val echo_eof : unit -> unit
val reset : unit -> unit
val default_printer : Stdlib.Format.formatter -> t -> unit
val printer : (Stdlib.Format.formatter -> t -> unit) Stdlib.ref
val warning_printer : (t -> Stdlib.Format.formatter -> Warnings.t -> unit) Stdlib.ref

Hook for intercepting warnings.

val default_warning_printer : t -> Stdlib.Format.formatter -> Warnings.t -> unit

Original warning printer for use in hooks.

val highlight_locations : Stdlib.Format.formatter -> t list -> bool
val show_code_at_location : Stdlib.Format.formatter -> Stdlib.Lexing.lexbuf -> t -> unit
type 'a loc = {
txt : 'a;
loc : t;
}
val mknoloc : 'a -> 'a loc
val mkloc : 'a -> t -> 'a loc
val print : Stdlib.Format.formatter -> t -> unit
val print_compact : Stdlib.Format.formatter -> t -> unit
val print_filename : Stdlib.Format.formatter -> string -> unit
val rewrite_absolute_path : string -> string

rewrite absolute path to honor the BUILD_PATH_PREFIX_MAP variable (https://reproducible-builds.org/specs/build-path-prefix-map/) if it is set.

val absolute_path : string -> string
val show_filename : string -> string

In -absname mode, return the absolute path for this filename. Otherwise, returns the filename unchanged.

val absname : bool Stdlib.ref
type error = {
loc : t;
msg : string;
sub : error list;
if_highlight : string;
}
exception Already_displayed_error
exception Error of error
val error : ?⁠loc:t -> ?⁠sub:error list -> ?⁠if_highlight:string -> string -> error
val errorf : ?⁠loc:t -> ?⁠sub:error list -> ?⁠if_highlight:string -> ('aStdlib.Format.formatter, unit, error) Stdlib.format4 -> 'a
val raise_errorf : ?⁠loc:t -> ?⁠sub:error list -> ?⁠if_highlight:string -> ('aStdlib.Format.formatter, unit, 'b) Stdlib.format4 -> 'a
val error_of_printer : t -> (Stdlib.Format.formatter -> 'a -> unit) -> 'a -> error
val error_of_printer_file : (Stdlib.Format.formatter -> 'a -> unit) -> 'a -> error
val error_of_exn : exn -> [ `Ok of error | `Already_displayed ] option
val register_error_of_exn : (exn -> error option) -> unit

Each compiler module which defines a custom type of exception which can surface as a user-visible error should register a "printer" for this exception using register_error_of_exn. The result of the printer is an error value containing a location, a message, and optionally sub-messages (each of them being located as well).

val report_error : Stdlib.Format.formatter -> error -> unit
val error_reporter : (Stdlib.Format.formatter -> error -> unit) Stdlib.ref

Hook for intercepting error reports.

val default_error_reporter : Stdlib.Format.formatter -> error -> unit

Original error reporter for use in hooks.

val report_exception : Stdlib.Format.formatter -> exn -> unit

Reraise the exception if it is unknown.

val deprecated : ?⁠def:t -> ?⁠use:t -> t -> string -> unit