sig
  exception Eof_in_comment
  exception Invalid_char of string * Location.location
  val set_filename : string -> unit
  val get_filename : unit -> string
  val print_location : unit -> unit
  val string_of_location : unit -> string
  val evatoken : Lexing.lexbuf -> Evaparse.token
end