Copy risc compiler stuff to mom

Start to separate the layers. 
wip, just checkin in to see the following changes better

test/mom/test_block_compiler.rb

@@ -0,0 +1,85 @@
+require_relative "../helper"
+
+module Mom
+  class TestBlockCompiler < MiniTest::Test
+    include MomCompile
+
+    def setup
+      Parfait.boot!(Parfait.default_test_options)
+      @ins = compile_first_block( "local = 5")
+    end
+
+    def test_block_compiles
+      assert_equal Mom::SlotLoad , @ins.class , @ins
+    end
+    def test_slot_is_set
+      assert @ins.left
+    end
+    def test_slot_starts_at_message
+      assert_equal :message , @ins.left.known_object
+    end
+    def test_slots_left
+      assert_equal [:frame , :local] , @ins.left.slots
+    end
+    def test_slot_assigns_something
+      assert @ins.right
+    end
+    def test_slot_assigns_int
+      assert_equal Mom::IntegerConstant ,  @ins.right.known_object.class
+    end
+  end
+
+  class TestAssignMomInstanceToLocal < MiniTest::Test
+    include MomCompile
+    def setup
+      Parfait.boot!(Parfait.default_test_options)
+      @ins = compile_first_block( "local = @a" , "@a = 5") #second arg in method scope
+    end
+    def test_class_compiles
+      assert_equal Mom::SlotLoad , @ins.class , @ins
+    end
+    def test_slots_left
+      assert_equal [:frame, :local] , @ins.left.slots
+    end
+    def test_slots_right
+      assert_equal [:receiver, :a] , @ins.right.slots
+    end
+  end
+
+  class TestAssignToArg < MiniTest::Test
+    include MomCompile
+
+    def setup
+      Parfait.boot!(Parfait.default_test_options)
+      @ins = compile_first_block( "arg = 5")
+    end
+
+    def test_class_compiles
+      assert_equal Mom::SlotLoad , @ins.class , @ins
+    end
+    def test_slot_is_set
+      assert @ins.left
+    end
+    def test_slots_left
+      assert_equal [:caller,:caller, :arguments, :arg] , @ins.left.slots
+    end
+  end
+
+  class TestAssignMomToInstance < MiniTest::Test
+    include MomCompile
+    def setup
+      Parfait.boot!(Parfait.default_test_options)
+    end
+    def test_assigns_const
+      @ins = compile_first_block( "@a = 5")
+      assert_equal Mom::SlotLoad , @ins.class , @ins
+      assert_equal Mom::IntegerConstant , @ins.right.known_object.class , @ins
+    end
+    def test_assigns_move
+      @ins = compile_first_block( "@a = arg")
+      assert_equal Mom::SlotLoad , @ins.class , @ins
+      assert_equal Mom::SlotDefinition , @ins.right.class , @ins
+    end
+  end
+
+end

test/mom/test_method_compiler.rb

@@ -0,0 +1,40 @@
+require_relative "helper"
+
+module Mom
+  class TestMethodCompiler < MiniTest::Test
+    include MomCompile
+
+    def setup
+      Parfait.boot!(Parfait.default_test_options)
+      @comp = compile_mom( "class Test ; def main(); return 'Hi'; end; end;")
+    end
+
+    def test_class
+      assert_equal MomCompiler , @comp.class
+    end
+    def test_compilers
+      assert_equal 23 , @comp.compilers.length
+    end
+    def test_boot_compilers
+      assert_equal 22 , @comp.boot_compilers.length
+    end
+    def test_compilers_bare
+      assert_equal 22 , MomCompiler.new.compilers.length
+    end
+    def test_returns_constants
+      assert_equal Array , @comp.constants.class
+    end
+    def test_has_constant
+      assert_equal  "Hi" , @comp.constants[1].to_string
+    end
+    def test_has_translate
+      assert @comp.translate(:interpreter)
+    end
+    def test_append_class
+      assert_equal MomCompiler,  (@comp.append @comp).class
+    end
+    def test_append_length
+      assert_equal 2 ,  @comp.append(@comp).method_compilers.length
+    end
+  end
+end

test/mom/test_mom_collection.rb

@@ -0,0 +1,40 @@
+require_relative "helper"
+
+module Mom
+  class TestMomCollection < MiniTest::Test
+    include MomCompile
+
+    def setup
+      Parfait.boot!(Parfait.default_test_options)
+      @comp = compile_mom( "class Test ; def main(); return 'Hi'; end; end;")
+    end
+
+    def test_class
+      assert_equal MomCompiler , @comp.class
+    end
+    def test_compilers
+      assert_equal 23 , @comp.compilers.length
+    end
+    def test_boot_compilers
+      assert_equal 22 , @comp.boot_compilers.length
+    end
+    def test_compilers_bare
+      assert_equal 22 , MomCompiler.new.compilers.length
+    end
+    def test_returns_constants
+      assert_equal Array , @comp.constants.class
+    end
+    def test_has_constant
+      assert_equal  "Hi" , @comp.constants[1].to_string
+    end
+    def test_has_translate
+      assert @comp.translate(:interpreter)
+    end
+    def test_append_class
+      assert_equal MomCompiler,  (@comp.append @comp).class
+    end
+    def test_append_length
+      assert_equal 2 ,  @comp.append(@comp).method_compilers.length
+    end
+  end
+end