Module Xmllexer

module Xmllexer: sig .. end

type lexing_error = 
| EUnterminatedComment
| EUnterminatedString
| EIdentExpected
| ECloseExpected
| ENodeExpected
| EAttributeNameExpected
| EAttributeValueExpected
| EUnterminatedEntity
| ECamlIdentExpected
| WNestedComments
val lex_error_to_string : lexing_error -> string
module Loc: Camlp4.PreCast.Loc
type context = {
   loc : Loc.t;
   lexbuf : Lexing.lexbuf;
   buffer : Buffer.t;
   entity : bool;
}
val default_context : Lexing.lexbuf -> context
val store : context -> unit
val istore_char : context -> int -> unit
val buff_contents : context -> string
val loc : context -> Loc.t
val with_curr_loc : (context -> Lexing.lexbuf -> 'a) -> context -> 'a
val parse : (context -> Lexing.lexbuf -> 'a) -> context -> 'a
val lexeme : context -> string
val store_string : context -> string -> unit
val entities : (string * int * string) list
val idents : (string, string) Hashtbl.t
val update_loc : context -> int -> bool -> int -> unit
module type LexerArgSig = sig .. end
module Make: 
functor (X : LexerArgSig) -> sig .. end