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