`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`