sig
val newline : unit -> unit
val currentLoc : unit -> Lexing.position * Lexing.position
val setCurrentWorkingDirectory : string -> unit
val setCurrentFile : ?normalize:bool -> string -> unit
val setCurrentLine : int -> unit
val startParsing : string -> Lexing.lexbuf
val finishParsing : unit -> unit
val parse_error :
?source:Lexing.position ->
('a, Format.formatter, unit, 'b) Pervasives.format4 -> 'a
val had_errors : unit -> bool
val clear_errors : unit -> unit
end