Module Location

type location =
  1. | Loc of int * int
val input_name : string ref
val input_chan : in_channel ref
val initialize : string -> unit
val no_location : location
val error_prompt : string
val output_lines : Format.formatter -> int -> int -> int -> int -> int -> unit
val output_loc : Format.formatter -> (unit -> char) -> (int -> 'a) -> bool -> location -> unit
val output_location : Format.formatter -> location -> unit
val output_input_name : Format.formatter -> unit