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