starting to fix builtin

start at Object get_interna_word
using the pattern to replace the whole risc method with a single mom instruction. Copying the original risc code into the instrucitons to_risc
also adding some very basic tests

lib/risc/builtin.rb

@@ -1,4 +1,16 @@
-require_relative "builtin/compile_helper"
+module Risc
+  module Builtin
+    module CompileHelper
+
+      def compiler_for( clazz_name , method_name , arguments , locals = {})
+        frame = Parfait::NamedList.type_for( locals )
+        args = Parfait::NamedList.type_for( arguments )
+        Mom::MethodCompiler.compiler_for_class(clazz_name , method_name , args, frame )
+      end
+    end
+  end
+end
+
 require_relative "builtin/space"
 require_relative "builtin/integer"
 require_relative "builtin/object"
@@ -25,22 +37,23 @@ module Risc
       end
 
       obj_type = space.get_type_by_class_name(:Object)
-      [ :get_internal_word , :set_internal_word , :_method_missing,
-        :exit , :__init__].each do |f|
+      [ :get_internal_word , #:set_internal_word , :_method_missing,
+        #:exit , :__init__
+      ].each do |f|
         compilers << compiler_for( obj_type , Object , f)
       end
 
       word_type = space.get_type_by_class_name(:Word)
       [:putstring , :get_internal_byte , :set_internal_byte ].each do |f|
-        compilers << compiler_for( word_type , Word , f)
+        #compilers << compiler_for( word_type , Word , f)
       end
 
       int_type = space.get_type_by_class_name(:Integer)
       Risc.operators.each do |op|
-        compilers << operator_compiler( int_type , op)
+        #compilers << operator_compiler( int_type , op)
       end
       [:putint, :div4, :div10 , :<,:<= , :>=, :>].each do |f|   #div4 is just a forward declaration
-        compilers << compiler_for( int_type , Integer , f)
+        #compilers << compiler_for( int_type , Integer , f)
       end
       compilers
     end

lib/risc/builtin/compile_helper.rb

@@ -1,14 +0,0 @@
-
-module Risc
-  module Builtin
-    module CompileHelper
-
-      def compiler_for( clazz_name , method_name , arguments , locals = {})
-        frame = Parfait::NamedList.type_for( locals )
-        args = Parfait::NamedList.type_for( arguments )
-        MethodCompiler.compiler_for_class(clazz_name , method_name , args, frame )
-      end
-
-    end
-  end
-end

lib/risc/builtin/object.rb

@@ -8,17 +8,21 @@ module Risc
         # return is stored in return_value
         def get_internal_word( context )
           compiler = compiler_for(:Object , :get_internal_word ,{at: :Integer})
-          compiler.builder(compiler.source).build do
-            object! << message[:receiver]
-            integer! << message[:arguments]
-            integer << integer[Parfait::NamedList.type_length + 0] #"at" is at index 0
-            integer.reduce_int
-            object << object[integer]
-            message[:return_value] << object
-          end
-          compiler.add_mom( Mom::ReturnSequence.new)
+          compiler.add_code GetInternalWord.new("get_internal_word")
           return compiler
         end
+        class GetInternalWord < ::Mom::Instruction
+          def to_risc(compiler)
+            compiler.builder(compiler.source).build do
+              object! << message[:receiver]
+              integer! << message[:arguments]
+              integer << integer[Parfait::NamedList.type_length + 0] #"at" is at index 0
+              integer.reduce_int
+              object << object[integer]
+              message[:return_value] << object
+            end
+          end
+        end
 
         # self[index] = val basically. Index is the first arg , value the second
         # return the value passed in

lib/risc/builtin/space.rb

@@ -8,7 +8,6 @@ module Risc
         # defined here as empty, to be redefined
         def main(context)
           compiler = compiler_for(:Space , :main ,{args: :Integer})
-          compiler.add_mom( Mom::ReturnSequence.new)
           return compiler
         end
 

lib/risc/method_compiler.rb

@@ -34,7 +34,7 @@ module Risc
     #
     # return compiler_for_type with the resolved type
     #
-    def self.compiler_for_class( class_name , method_name , args , frame )
+    def self.compiler_for_clazz( class_name , method_name , args , frame )
       raise "create_method #{class_name}.#{class_name.class}" unless class_name.is_a? Symbol
       clazz = Parfait.object_space.get_class_by_name! class_name
       compiler_for_type( clazz.instance_type , method_name , args , frame)
@@ -53,7 +53,7 @@ module Risc
     # args a hash that will be converted to a type
     # the created method is set as the current and the given type too
     # return the compiler
-    def self.compiler_for_type( type , method_name , args , frame)
+    def self.compiler_for_typez( type , method_name , args , frame)
       raise "create_method #{type.inspect} is not a Type" unless type.is_a? Parfait::Type
       raise "Args must be Type #{args}" unless args.is_a?(Parfait::Type)
       raise "create_method #{method_name}.#{method_name.class}" unless method_name.is_a? Symbol