Stdpp
type location = Ploc.t
val raise_with_loc : location -> exn -> 'a
val make_lined_loc : int -> int -> (int * int) -> location
val make_loc : (int * int) -> location
val dummy_loc : location
val first_pos : location -> int
val last_pos : location -> int
val line_nb : location -> int
val bol_pos : location -> int
val loc_name : string ref
val line_of_loc : string -> location -> string * int * int * int