Coccinelle release-1.0.0-rc11

[bpt/coccinelle.git] / parsing_c / token_helpers.ml

diff --git a/parsing_c/token_helpers.ml b/parsing_c/token_helpers.ml
index e333cb1..598a77a 100644 (file)
--- a/parsing_c/token_helpers.ml
+++ b/parsing_c/token_helpers.ml
@@ -189,6 +189,7 @@ let is_stuff_taking_parenthized = function
 (* used in the algorithms for "10 most problematic errors" *)
 let is_ident_like = function
   | TIdent _
+  | TKRParam _
   | TypedefIdent _
   | TIdentDefine  _
   | TDefParamVariadic _
@@ -222,6 +223,8 @@ let info_of_tok = function
   | TAssign  (assignOp, i) -> i
 
   | TIdent  (s, i) -> i
+  | TKRParam  (s, i) -> i
+  | Tconstructorname  (s, i) -> i
   | TypedefIdent  (s, i) -> i
 
   | TInt  (s, i) -> i
@@ -357,6 +360,9 @@ let info_of_tok = function
   | TattributeNoarg           (i) -> i
   | Tinline              (i) -> i
   | Ttypeof              (i) -> i
+  | Tnew                 (i) -> i
+  | Tdelete              (i) -> i
+  | TOParCplusplusInit   (i) -> i
 
   | EOF                  (i) -> i
 
@@ -370,9 +376,11 @@ let visitor_info_of_tok f = function
   | TFloat ((s, floatType), i) -> TFloat ((s, floatType), f i)
   | TAssign  (assignOp, i)     -> TAssign  (assignOp, f i)
 
-  | TIdent  (s, i)       -> TIdent  (s, f i)
-  | TypedefIdent  (s, i) -> TypedefIdent  (s, f i)
-  | TInt  (s, i)         -> TInt  (s, f i)
+  | TIdent  (s, i)         -> TIdent  (s, f i)
+  | TKRParam(s, i)         -> TKRParam(s, f i)
+  | Tconstructorname(s, i) -> Tconstructorname  (s, f i)
+  | TypedefIdent  (s, i)   -> TypedefIdent  (s, f i)
+  | TInt  (s, i)           -> TInt  (s, f i)
 
   | TDefine (i1) -> TDefine(f i1)
 
@@ -507,9 +515,12 @@ let visitor_info_of_tok f = function
   | Tsizeof              (i) -> Tsizeof              (f i)
   | Tasm                 (i) -> Tasm                 (f i)
   | Tattribute           (i) -> Tattribute           (f i)
-  | TattributeNoarg           (i) -> TattributeNoarg           (f i)
+  | TattributeNoarg      (i) -> TattributeNoarg      (f i)
   | Tinline              (i) -> Tinline              (f i)
   | Ttypeof              (i) -> Ttypeof              (f i)
+  | Tnew                 (i) -> Tnew                 (f i)
+  | Tdelete              (i) -> Tdelete              (f i)
+  | TOParCplusplusInit   (i) -> TOParCplusplusInit   (f i)
   | EOF                  (i) -> EOF                  (f i)