demos/camltococci.cocci

   1 @a@
   2 identifier x;
   3 @@
   4
   5 foo(x);
   6
   7 @script:ocaml b@
   8 x << a.x;
   9 y;
  10 z;
  11 @@
  12
  13 y := x;
  14 z := "something"
  15
  16 @c@
  17 identifier b.y;
  18 identifier b.z;
  19 identifier a.x;
  20 @@
  21
  22 - bar();
  23 + matched_bar(y,z,x);