Pre-processor example

pp_sample.erl

%{
  #define yes true
  #ignore (@) ; ignore shut up operator
  #token T_CONSTANT_ENCAPSED_STRING("foo") T_CONSTANT_ENCAPSED_STRING("bar")
  #translate <[T_STRING]>\<<T>\> => {
    class {
      public function mix(<T> $arg) {
        test::mix($this, $arg);
      }
    } 
  }
}%

-- TODO: Continue
entry-point = "%{", { definition, line-break }, "%}" ;
definition = define
           | ignore ;

line-break = "\n"
           | "\r"
           | "\r\n" ;

define = "#define", valid-value, valid-value ;
valid-value = T_STRING
            | "(", ? .* ?, ")" ;