Module Xhtmlsyntax.Parser5

module Parser5: Xhtmlparser.Make(Camlp4.PreCast.Syntax)(sig
val xml_encodedpcdata : Camlp4.PreCast.Ast.loc -> Camlp4.PreCast.Ast.expr
val xml_pcdata : Camlp4.PreCast.Ast.loc -> Camlp4.PreCast.Ast.expr
val xml_comment : Camlp4.PreCast.Ast.loc -> Camlp4.PreCast.Ast.expr
val xml_node : Camlp4.PreCast.Ast.loc -> Camlp4.PreCast.Ast.expr
val xml_string_attrib : Camlp4.PreCast.Ast.loc -> Camlp4.PreCast.Ast.expr
val tot : Camlp4.PreCast.Ast.loc -> Camlp4.PreCast.Ast.expr
val toeltl : Camlp4.PreCast.Ast.loc -> Camlp4.PreCast.Ast.expr
val to_xmlattribs : Camlp4.PreCast.Ast.loc -> Camlp4.PreCast.Ast.expr
val to_attrib : Camlp4.PreCast.Ast.loc -> Camlp4.PreCast.Ast.expr
val make_type : Camlp4.PreCast.Ast.loc -> string -> Camlp4.PreCast.Ast.ctyp
val make_content_type : Camlp4.PreCast.Ast.loc -> string -> Camlp4.PreCast.Ast.ctyp
val make_attrib_type : Camlp4.PreCast.Ast.loc -> string -> Camlp4.PreCast.Ast.ctyp
val make_attribs_type : Camlp4.PreCast.Ast.loc -> string -> Camlp4.PreCast.Ast.ctyp
end)

module Xmllexer: Xmllexer.Make(Xhtmlparser.LexerArg)
type state = {
   stream : (Xhtmlparser.LexerArg.token * Camlp4.PreCast.Loc.t) Stream.t;
   stack : Xhtmlparser.LexerArg.token Stack.t;
   loc : Camlp4.PreCast.Loc.t;
}
exception CamlListExc of string
module Error: sig .. end
val err : Error.t -> Camlp4.PreCast.Loc.t -> 'a
val pop : state -> Xhtmlparser.LexerArg.token * state
val push : Xhtmlparser.LexerArg.token -> state -> unit
val expr_of_list : Camlp4.PreCast.Ast.loc ->
[< `Elt of Camlp4.PreCast.Ast.expr | `List of Camlp4.PreCast.Ast.expr ] list ->
Camlp4.PreCast.Ast.expr
val parse : Xmllexer.Loc.t ->
bool -> string -> (Xhtmlparser.LexerArg.token * Xmllexer.Loc.t) Stream.t
val get_expr : string -> Syntax.Gram.Loc.t -> Syntax.Ast.expr
val read_node : state -> Syntax.Ast.expr
val read_elems : ?tag:string -> state -> Camlp4.PreCast.Ast.expr
val read_attlist : state ->
Xhtmlparser.LexerArg.attribute list -> Camlp4.PreCast.Ast.expr
val clean_ws : state -> state
val to_expr : (Xhtmlparser.LexerArg.token * Camlp4.PreCast.Loc.t) Stream.t ->
Camlp4.PreCast.Loc.t -> Syntax.Ast.expr
val to_expr_taglist : (Xhtmlparser.LexerArg.token * Camlp4.PreCast.Loc.t) Stream.t ->
Camlp4.PreCast.Loc.t -> Camlp4.PreCast.Ast.expr
val remove_ws : string -> string
val xml_exp : Xmllexer.Loc.t -> string option -> string -> Syntax.Ast.expr
val xml_expl : Xmllexer.Loc.t -> string option -> string -> Camlp4.PreCast.Ast.expr