getting basics to work

lib/debugger.rb

@@ -39,7 +39,10 @@ class MainView < ListView
 
   def initialize
     machine = Register.machine.boot
-    code = s(:statements, s(:return, s(:operator_value, :+, s(:int, 5), s(:int, 7))))
+    code = s(:statements, s(:call,
+                  s(:name, :set_internal_byte),
+                  s(:arguments, s(:int, 1), s(:int, 104)),
+                    s(:receiver, s(:string, "Hello"))))
     Typed.compile( code  )
     machine.collect
     @interpreter = Register::Interpreter.new

lib/views/source_view.rb

@@ -29,6 +29,8 @@ class SourceView < ElementView
       end
     when String
       @ticker.text = i.source
+    when Typed::Code
+      @ticker.text = i.source.to_s
     else
       raise i.source.class.name
     end
@@ -45,14 +47,14 @@ class SourceView < ElementView
       i = link
     end
     return unless (i.is_a? Register::Label)
-    if i.is_method
+    return unless i.is_method
-      cl_name , method_name = *i.name.split(".")
+    puts i.name
-      clazz = Register.machine.space.get_class_by_name cl_name.split(" ").last
+    cl_t_name , method_name = *i.name.split(".")
-      raise "No class for #{cl_name} , #{i.name}" unless clazz
+    class_name = cl_t_name.split(" ").last.split("_").first
-      method = clazz.get_instance_method( method_name)
+    clazz = Register.machine.space.get_class_by_name class_name
-    else
+    raise "No class for #{cl_name} , #{i.name}" unless clazz
-      return
+    type = clazz.instance_type
-    end
+    method = type.get_instance_method( method_name )
     @element.at_css(".source").text = i.name
     @text.inner_html = HtmlConverter.new.process( method.source )
   end

lib/views/switch_view.rb

@@ -28,7 +28,7 @@ class SelectView < ElementView
   end
 
   def get_codes
-    @codes = ["1", "2"]
+    @codes = ["set_internal_byte"]
     add_selection
   end
 
@@ -41,7 +41,7 @@ class SelectView < ElementView
       list <<  code
     end
     Promise.new.then{
-      select(@codes.first)      
+      select(@codes.first)
     }
     @element.at_css(".code_list") <<  list
   end
@@ -49,7 +49,10 @@ class SelectView < ElementView
   def select code
     @interpreter.set_state :stopped
     @element.at_css(".selected").text = code
-    input = s(:statements, s(:return, s(:operator_value, :+, s(:int, 5), s(:int, 7))))
+    input = s(:statements, s(:call,
+                  s(:name, :set_internal_byte),
+                  s(:arguments, s(:int, 1), s(:int, 104)),
+                    s(:receiver, s(:string, "Hello"))))
 
     machine = Register.machine.boot
     #do_clean_compile