Module Xml_lexer

type error =
| EUnterminatedComment
| EUnterminatedString
| EIdentExpected
| ECloseExpected
| ENodeExpected
| EAttributeNameExpected
| EAttributeValueExpected
| EUnterminatedEntity
exception Error of error
type token =
| Tag of string * (string * string) list * bool
| PCData of string
| Endtag of string
| Eof
type pos = int * int * int * int
val init : Stdlib.Lexing.lexbuf -> unit
val close : unit -> unit
val token : Stdlib.Lexing.lexbuf -> token
val pos : Stdlib.Lexing.lexbuf -> pos
val restore : pos -> unit