tests/rwc.pcc

   1 #include <AD/gc/gcobject.h>
   2 #include <iostream.h>
   3
   4 datatype Operator
   5   = OP (const char *)
   6   ;
   7
   8 datatype Expr
   9   = ID (const char *)
  10   | INT (int)
  11   | BINARY (Operator, Expr, Expr)
  12   ;
  13
  14 rewrite class Foo (Expr)  // Error: should be (Expr,Operator)
  15 {
  16   public:
  17     Foo() {}
  18 };
  19
  20 rewrite Foo
  21 {
  22    BINARY(OP("+"), INT(x), INT(y)) : INT(x+y)
  23  | BINARY(OP("-"), INT(x), INT(y)) : INT(x-y)
  24 };
  25
  26 int
  27 main()
  28 {
  29   Foo f;
  30   Expr ex = BINARY(OP("+"),INT(1),INT(2));
  31
  32   f(ex);
  33   return 0;
  34 }