Permalink
Browse files

* lang_cpp/parsing/export_ast_cpp.ml: vof_any

  • Loading branch information...
1 parent 8229ff1 commit d87f7979507d41059bb42c8e9b9889c3b29137bb @aryx aryx committed Sep 14, 2012
@@ -75,3 +75,6 @@ let string_of_v precision v =
let ml_pattern_string_of_program ?(precision=no_info) ast =
Meta_ast_cpp.vof_program precision ast +> string_of_v precision
+
+let ml_pattern_string_of_any ?(precision=no_info) ast =
+ Meta_ast_cpp.vof_any precision ast +> string_of_v precision
@@ -3,5 +3,9 @@ val ml_pattern_string_of_program:
?precision:Meta_ast_generic.precision ->
Ast_cpp.program -> string
+val ml_pattern_string_of_any:
+ ?precision:Meta_ast_generic.precision ->
+ Ast_cpp.any -> string
+
val string_json_of_program: Ast_cpp.program -> string
@@ -1158,3 +1158,8 @@ let vof_program precision x =
vof_program x
)
+let vof_any precision x =
+ Common.save_excursion _current_precision precision (fun () ->
+ vof_any x
+ )
+
@@ -1,2 +1,4 @@
val vof_program: Meta_ast_generic.precision -> Ast_cpp.program -> Ocaml.v
+
+val vof_any: Meta_ast_generic.precision -> Ast_cpp.any -> Ocaml.v
View
@@ -65,6 +65,7 @@ let all_actions () =
Test_parsing_ml.actions()++
Test_parsing_php.actions()++
Test_parsing_js.actions()++
+ Test_parsing_c.actions()++
Test_parsing_cpp.actions()++
Test_parsing_nw.actions()++
Test_parsing_lisp.actions()++

0 comments on commit d87f797

Please sign in to comment.