Release coccinelle-0.2.4rc6

[bpt/coccinelle.git] / parsing_cocci / type_cocci.mli

diff --git a/parsing_cocci/type_cocci.mli b/parsing_cocci/type_cocci.mli
index 1672c0b..ab43a83 100644 (file)
--- a/parsing_cocci/type_cocci.mli
+++ b/parsing_cocci/type_cocci.mli
@@ -26,6 +26,8 @@ type inherited = bool (* true if inherited *)
 type keep_binding = Unitary (* need no info *)
   | Nonunitary (* need an env entry *) | Saved (* need a witness *)
 
+type meta_name = string * string (*Ast_cocci.meta_name*)
+
 type typeC =
     ConstVol        of const_vol * typeC
   | BaseType        of baseType
@@ -33,16 +35,22 @@ type typeC =
   | Pointer         of typeC
   | FunctionPointer of typeC (* only return type *)
   | Array           of typeC (* drop size info *)
-  | EnumName        of bool (* true if a metaId *) * string
-  | StructUnionName of structUnion * bool (* true if type metavar *) * string
+  | EnumName        of name
+  | StructUnionName of structUnion * name
   | TypeName        of string
-  | MetaType        of (string * string) * keep_binding * inherited
+  | MetaType        of meta_name * keep_binding * inherited
   | Unknown (* for metavariables of type expression *^* *)
 
+and name =
+    NoName
+  | Name of string
+  | MV of meta_name * keep_binding * inherited
+
 and tagged_string = string
 
 and baseType = VoidType | CharType | ShortType | IntType | DoubleType
 | FloatType | LongType | LongLongType | BoolType
+| SizeType | SSizeType | PtrDiffType
 
 and structUnion = Struct | Union