module type LexerArgSig = sig
.. end
val error : Camlp4.PreCast.Loc.t -> Xmllexer.lexing_error -> exn
type
attr_name = private [> `AttrName of string ]
type
attr_value = private [> `AttrVal of string ]
type
attribute = private [> `Attribute of
attr_name * attr_value ]
type
token = private [> `CDATA of string
| `Comment of string
| `Endtag of string
| `Eof
| `PCData of string
| `Tag of string * attribute list * bool
| `Whitespace of string ]
val parse_dollar_token : Xmllexer.context -> Lexing.lexbuf -> token
val parse_dollar_attrname : Xmllexer.context ->
Xmllexer.Loc.t -> Lexing.lexbuf -> attr_name
val parse_dollar_attrvalue : Xmllexer.context ->
Xmllexer.Loc.t -> Lexing.lexbuf -> attr_value
val parse_dollar_attribute : Xmllexer.context ->
Xmllexer.Loc.t -> Lexing.lexbuf -> attribute