Up
module
Qast
:
sig
#
type
t =
#
| String
of
string
#
| Decl
of
t
*
t
#
| Rule
of
t
*
t
#
| Fun
of
t
*
t
#
| Comma
of
t
*
t
#
| ESeq
of
t
*
t
(*
sequence of elements
*)
#
| RSeq
of
t
*
t
(*
sequence of rules and declarations
*)
#
| Nil
#
| Ant
of
Camlp4.PreCast.Loc.t * string
Intermediate type for CSS fragments. Produced by the parser and consumed by the lifter
#
val
meta_t : Camlp4.PreCast.Ast.loc
->
t
->
Camlp4.PreCast.Ast.expr
end