sig
type t = {
loc_start : Lexing.position;
loc_end : Lexing.position;
loc_ghost : bool;
}
val none : Location.t
val in_file : string -> Location.t
val init : Lexing.lexbuf -> string -> unit
val curr : Lexing.lexbuf -> Location.t
val symbol_rloc : unit -> Location.t
val symbol_gloc : unit -> Location.t
val rhs_loc : int -> Location.t
val input_name : string Pervasives.ref
val input_lexbuf : Lexing.lexbuf option Pervasives.ref
val get_pos_info : Lexing.position -> string * int * int
val print_error : Format.formatter -> Location.t -> unit
val print_error_cur_file : Format.formatter -> unit
val print_warning : Location.t -> Format.formatter -> Warnings.t -> unit
val prerr_warning : Location.t -> Warnings.t -> unit
val echo_eof : unit -> unit
val reset : unit -> unit
val highlight_locations :
Format.formatter -> Location.t -> Location.t -> bool
val print : Format.formatter -> Location.t -> unit
end