type source = string
type location = source * Lexing.position * Lexing.position

val print_loc : Format.formatter -> location -> unit
val print_loc_option : Format.formatter -> location option -> unit

val of_lexbuf : source -> Lexing.lexbuf -> location