Inital import

[l4.git] / l4 / pkg / ocaml / contrib / camlp4 / examples / apply_operator.ml

diff --git a/l4/pkg/ocaml/contrib/camlp4/examples/apply_operator.ml b/l4/pkg/ocaml/contrib/camlp4/examples/apply_operator.ml
new file mode 100644 (file)
index 0000000..35b17e5
--- /dev/null
+++ b/l4/pkg/ocaml/contrib/camlp4/examples/apply_operator.ml
@@ -0,0 +1,6 @@
+open Camlp4.PreCast;
+AstFilters.register_str_item_filter
+  (Ast.map_expr
+    (fun
+     [ <:expr@loc< $e1$ & $e2$ >> -> <:expr@loc< $e1$ $e2$ >>
+     | e -> e ]))#str_item;