sig
  type error =
      Illegal_character of char
    | Bad_entity of string
    | Unterminated of string
    | Tag_expected
    | Attribute_expected
    | Other of string
  val error_string : Xml_lexer.error -> string
  exception Error of Xml_lexer.error * int
  type token =
      Tag of string * (string * string) list * bool
    | Chars of string
    | Endtag of string
    | EOF
  val strip_ws : bool Pervasives.ref
  val entities : (string * string) list Pervasives.ref
  val token : Lexing.lexbuf -> Xml_lexer.token
end