(*
- * Copyright 2010, INRIA, University of Copenhagen
+ * Copyright 2012, INRIA
+ * Julia Lawall, Gilles Muller
+ * Copyright 2010-2011, INRIA, University of Copenhagen
* Julia Lawall, Rene Rydhof Hansen, Gilles Muller, Nicolas Palix
* Copyright 2005-2009, Ecole des Mines de Nantes, University of Copenhagen
* Yoann Padioleau, Julia Lawall, Rene Rydhof Hansen, Henrik Stuart, Gilles Muller, Nicolas Palix
| A.Init (stg, typa, sa, _, expa, _) -> ()
| A.TyDecl (typa, _) -> ()
| A.MacroDecl(fn, _, eas, _, _) -> ()
+ | A.MacroDeclInit(fn, _, eas, _, _, _, _) -> ()
| A.Ddots(dots,whencode) -> ()
| A.MetaDecl _ -> ()
| A.MetaField _ -> ()
| A.MetaFieldList _ -> ()
+ | A.AsDecl _ -> ()
| A.Typedef(d,ty1,ty2,pv) -> ()
| A.DisjDecl xs -> ()
| A.OptDecl _ | A.UniqueDecl _ -> ()
-let dumb_astcocci_initialiser = function
+let dumb_astcocci_initialiser = function (* seems same as the above *)
A.Init(stg,ty,id,eq,ini,sem) -> ()
| A.UnInit(stg,ty,id,sem) -> ()
| A.MacroDecl(fn, _, eas, _, _) -> ()
+ | A.MacroDeclInit(fn, _, eas, _, _, _, _) -> ()
| A.TyDecl(ty,sem) -> ()
| A.Typedef(d,ty1,ty2,pv) -> ()
| A.DisjDecl(decls) -> ()
| A.MetaDecl(name,_,_) -> ()
| A.MetaField(name,_,_) -> ()
| A.MetaFieldList(name,_,_,_) -> ()
+ | A.AsDecl(_,_) -> ()
| A.OptDecl(decl) -> ()
| A.UniqueDecl(decl) -> ()
let dumb_astcocci_expr = function
| A.MetaExpr (ida,_,_, opttypa, _, _) -> ()
+ | A.AsExpr (_,_) -> ()
| A.Edots (_,_) -> ()
| A.MetaErr _ -> ()
| A.Ident ida -> ()
| A.Constant (A.Float sa,_,_,_) -> ()
| A.FunCall (ea1, _, eas, _) -> ()
| A.Assignment (ea1, opa, ea2, _) -> ()
+ | A.Sequence (ea1, opa, ea2) -> ()
| A.CondExpr (ea1,_,ea2opt,_,ea3) -> ()
| A.Postfix (ea, opa) -> ()
| A.Infix (ea, opa) -> ()
| A.OptExp _ -> ()
let dumb_astcocci_fulltype = function
- A.Type(cv,ty) -> ()
+ A.Type(_,cv,ty) -> ()
+ | A.AsType(_,_) -> ()
| A.DisjType(types) -> ()
| A.OptType(ty) -> ()
| A.UniqueType(ty) -> ()