sig
  val error : Camlp4.PreCast.Loc.t -> Xhtmlparser.Error.t -> exn
  type attr_name = [ `AttrName of string | `CamlAttrName of string ]
  type attr_value = [ `AttrVal of string | `CamlAttrVal of string ]
  type attribute =
      [ `Attribute of
          Xhtmlparser.LexerArg.attr_name * Xhtmlparser.LexerArg.attr_value
      | `CamlAttributes of string ]
  type token =
      [ `CDATA of string
      | `CamlExpr of string
      | `CamlList of string
      | `CamlString of string
      | `Comment of string
      | `Endtag of string
      | `Eof
      | `PCData of string
      | `Tag of string * Xhtmlparser.LexerArg.attribute list * bool
      | `Whitespace of string ]
  val parse_dollar_attribute :
    Xmllexer.context -> '-> Lexing.lexbuf -> [> `CamlAttributes of string ]
  val parse_dollar_attrvalue :
    Xmllexer.context -> '-> Lexing.lexbuf -> [> `CamlAttrVal of string ]
  val parse_dollar_attrname :
    Xmllexer.context -> '-> Lexing.lexbuf -> [> `CamlAttrName of string ]
  val parse_dollar_token :
    Xmllexer.context ->
    Lexing.lexbuf ->
    [> `CamlExpr of string
     | `CamlList of string
     | `CamlString of string
     | `PCData of string ]
end