sig
type location = Ploc.t
exception Exc_located of Stdpp.location * exn
val raise_with_loc : Stdpp.location -> exn -> 'a
val make_lined_loc : int -> int -> int * int -> Stdpp.location
val make_loc : int * int -> Stdpp.location
val dummy_loc : Stdpp.location
val first_pos : Stdpp.location -> int
val last_pos : Stdpp.location -> int
val line_nb : Stdpp.location -> int
val bol_pos : Stdpp.location -> int
val encl_loc : Stdpp.location -> Stdpp.location -> Stdpp.location
val shift_loc : int -> Stdpp.location -> Stdpp.location
val sub_loc : Stdpp.location -> int -> int -> Stdpp.location
val after_loc : Stdpp.location -> int -> int -> Stdpp.location
val loc_name : string Pervasives.ref
val line_of_loc : string -> Stdpp.location -> string * int * int * int
end