Implement opassign statements.

lib/phaad/generator.rb

@@ -102,6 +102,11 @@ def process(sexp)
           process r
           emit ";\n"
         end
+      when :opassign
+        raise NotImplementedError, sexp.inspect unless sexp[2][0] == :@op
+        process(sexp[1])
+        emit " #{sexp[2][1]} "
+        process(sexp[3])
       when :return
         emit "return "
         process sexp[1]

spec/generator/binary_spec.rb

@@ -52,4 +52,25 @@
   it "should parse << as ." do
     compile("'foo' << 'bar'").should == '"foo" . "bar";'
   end
+
+  context "operator assign" do
+    it "should parse += -= *= /= %=" do
+      compile("a += 1").should == "$a += 1;"
+      compile("a -= 1").should == "$a -= 1;"
+      compile("a *= 1").should == "$a *= 1;"
+      compile("a /= 1").should == "$a /= 1;"
+      compile("a %= 1").should == "$a %= 1;"
+    end
+
+    it "should parse |= &= ^=" do
+      compile("a |= 1").should == "$a |= 1;"
+      compile("a &= 1").should == "$a &= 1;"
+      compile("a ^= 1").should == "$a ^= 1;"
+    end
+
+    it "should parse && ||" do
+      compile("a &&= false").should == "$a &&= FALSE;"
+      compile("a ||= false").should == "$a ||= FALSE;"
+    end
+  end
 end