| MetaId of Ast_cocci.meta_name mcode * Ast_cocci.idconstraint * pure
| MetaFunc of Ast_cocci.meta_name mcode * Ast_cocci.idconstraint * pure
| MetaLocalFunc of Ast_cocci.meta_name mcode * Ast_cocci.idconstraint * pure
+ | DisjId of string mcode * ident list *
+ string mcode list (* the |s *) * string mcode
| OptIdent of ident
| UniqueIdent of ident
string mcode (* ) *)
| Array of typeC * string mcode (* [ *) *
expression option * string mcode (* ] *)
- | EnumName of string mcode (*enum*) * ident (* name *)
+ | EnumName of string mcode (*enum*) * ident option (* name *)
+ | EnumDef of typeC (* either StructUnionName or metavar *) *
+ string mcode (* { *) * expression dots * string mcode (* } *)
| StructUnionName of Ast_cocci.structUnion mcode * ident option (* name *)
| StructUnionDef of typeC (* either StructUnionName or metavar *) *
string mcode (* { *) * declaration dots * string mcode (* } *)
split out into multiple declarations of a single variable each. *)
and base_declaration =
- Init of Ast_cocci.storage mcode option * typeC * ident *
+ MetaDecl of Ast_cocci.meta_name mcode * pure (* variables *)
+ | MetaField of Ast_cocci.meta_name mcode * pure (* structure fields *)
+ | MetaFieldList of Ast_cocci.meta_name mcode * listlen * pure
+ | Init of Ast_cocci.storage mcode option * typeC * ident *
string mcode (*=*) * initialiser * string mcode (*;*)
| UnInit of Ast_cocci.storage mcode option * typeC * ident *
string mcode (* ; *)
and base_initialiser =
MetaInit of Ast_cocci.meta_name mcode * pure
| InitExpr of expression
- | InitList of string mcode (*{*) * initialiser_list * string mcode (*}*)
+ | InitList of string mcode (*{*) * initialiser_list * string mcode (*}*) *
+ bool (* true if ordered, false if unordered *)
| InitGccExt of
designator list (* name *) * string mcode (*=*) *
initialiser (* gccext: *)
string mcode (* { *) * statement dots *
string mcode (* } *)
| Include of string mcode (* #include *) * Ast_cocci.inc_file mcode(* file *)
+ | Undef of string mcode (* #define *) * ident (* name *)
| Define of string mcode (* #define *) * ident (* name *) *
define_parameters (*params*) * statement dots
| OptStm of statement
| ScriptRule of string (* name *) *
string * Ast_cocci.dependency *
(Ast_cocci.script_meta_name *
- Ast_cocci.meta_name * Ast_cocci.metavar) list *
+ Ast_cocci.meta_name * Ast_cocci.metavar) list (*inherited vars*) *
+ Ast_cocci.meta_name list (*script vars*) *
string
| InitialScriptRule of string (* name *) *
string (*language*) * Ast_cocci.dependency * string (*code*)
val set_mcode_data : 'a -> 'a mcode -> 'a mcode
val make_mcode : 'a -> 'a mcode
val make_mcode_info : 'a -> info -> 'a mcode
+val make_minus_mcode : 'a -> 'a mcode
val ast0_type_to_type : typeC -> Type_cocci.typeC
val reverse_type : Type_cocci.typeC -> base_typeC