sig
val newline : unit -> unit
val getPosition : unit -> Lexing.position * Lexing.position
val setCurrentWorkingDirectory : string -> unit
val setCurrentFile : ?normalize:bool -> string -> unit
val setCurrentLine : int -> unit
type location = { file : string; line : int; }
val d_loc : Errorloc.location Pretty_utils.formatter
val parse_error : string -> 'a
val locUnknown : Errorloc.location
val startParsing : ?useBasename:bool -> string -> Lexing.lexbuf
val finishParsing : unit -> unit
end