module Xmllexer: sig
.. end
type
lexing_error =
| |
|
| |
EUnterminatedString |
| |
EIdentExpected |
| |
ECloseExpected |
| |
ENodeExpected |
| |
EAttributeNameExpected |
| |
EAttributeValueExpected |
| |
EUnterminatedEntity |
| |
ECamlIdentExpected |
| |
|
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: