sig
type t
exception Parse_error of string * Location.t
val none : Location.t
val mkloc : Lexing.position -> Lexing.position -> Location.t
val symbol_loc : unit -> Location.t
val rhs_loc : int -> Location.t
val sprint : Location.t -> string
val lineno_to_string : Location.t -> string
val print : Format.formatter -> Location.t -> unit
val lexbuf : Lexing.lexbuf option Pervasives.ref
end