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