coccinelle release 1.0.0-rc6

[bpt/coccinelle.git] / ocaml / ocamlcocci_aux.ml

diff --git a/ocaml/ocamlcocci_aux.ml b/ocaml/ocamlcocci_aux.ml
index fd182a6..74cfa16 100644 (file)
--- a/ocaml/ocamlcocci_aux.ml
+++ b/ocaml/ocamlcocci_aux.ml
@@ -17,14 +17,23 @@ let stringrep = function
 | Ast_c.MetaFuncVal      s -> s
 | Ast_c.MetaLocalFuncVal s -> s
 | Ast_c.MetaExprVal      (expr,_) -> exprrep expr
-| Ast_c.MetaExprListVal  expr_list -> "TODO: <<exprlist>>"
+| Ast_c.MetaExprListVal  expr_list ->
+    call_pretty Pretty_print_c.pp_arg_list_gen expr_list
 | Ast_c.MetaTypeVal      typ -> call_pretty Pretty_print_c.pp_type_gen typ
 | Ast_c.MetaInitVal      ini -> call_pretty Pretty_print_c.pp_init_gen ini
+| Ast_c.MetaInitListVal  ini -> call_pretty Pretty_print_c.pp_init_list_gen ini
+| Ast_c.MetaDeclVal      declaration ->
+    call_pretty Pretty_print_c.pp_decl_gen declaration
+| Ast_c.MetaFieldVal      field ->
+    call_pretty Pretty_print_c.pp_field_gen field
+| Ast_c.MetaFieldListVal field ->
+    call_pretty Pretty_print_c.pp_field_list_gen field
 | Ast_c.MetaStmtVal      statement ->
     call_pretty Pretty_print_c.pp_statement_gen statement
 | Ast_c.MetaParamVal     param ->
     call_pretty Pretty_print_c.pp_param_gen param
-| Ast_c.MetaParamListVal params -> "TODO: <<paramlist>>"
+| Ast_c.MetaParamListVal params ->
+    call_pretty Pretty_print_c.pp_param_list_gen params
 | Ast_c.MetaListlenVal n -> string_of_int n
 | Ast_c.MetaPosVal (pos1, pos2) ->
     let print_pos = function