manage to create ruby methods

lib/melon/compiler.rb

@@ -8,33 +8,39 @@ require_relative "compiler/ruby_method"
 module Melon
   class Compiler < AST::Processor
 
-    def self.compile input
-      ast = Parser::Ruby22.parse input
-      compiler = self.new
-      compiler.process ast
-    end
-
-    def get_name( statement )
-      return nil unless statement
-      statement.children[1]
+    def self.compile( input )
+      ast = Parser::Ruby22.parse( input )
+      self.new.process( ast )
     end
 
     def on_class statement
       name , sup , body = *statement
       class_name = get_name(name)
-      clazz = Parfait.object_space.create_class(class_name , get_name(sup) )
+      clazz = Parfait.object_space.get_class_by_name!(class_name , get_name(sup) )
       ivar_hash = TypeCollector.new.collect(body)
       clazz.set_instance_type( Parfait::Type.for_hash( clazz ,  ivar_hash ) )
+      create_methods(clazz , body)
+    end
 
-      MethodCollector.new.collect(body)
-
+    def create_methods(clazz , body)
+      methods = MethodCollector.new.collect(body)
+      methods.each do |method|
+        clazz.add_method( method )
+      end
     end
 
     def handler_missing(node)
+#      raise "Oh"
       node.children.each do |kid |
         process(kid) if kid.is_a?(AST::Node)
       end
     end
 
+    private
+    def get_name( statement )
+      return nil unless statement
+      statement.children[1]
+    end
+
   end
 end

lib/typed/parfait/class.rb

@@ -23,6 +23,7 @@ module Parfait
       super()
       @name = name
       @super_class_name = superclass
+      @methods = {}
       set_instance_type( instance_type )
     end
 
@@ -34,6 +35,14 @@ module Parfait
       "Class(#{name})"
     end
 
+    def add_method(method)
+      @methods[method.name] = method
+    end
+
+    def get_method(name)
+      @methods[name]
+    end
+    
     # setting the type generates all methods for this type
     # (or will do, once we store the methods code to do that)
     def set_instance_type( type )

lib/typed/parfait/space.rb

@@ -29,7 +29,7 @@ module Parfait
   # While data ususally would live in a .data section, we may also "inline" it into the code
   # in an oo system all data is represented as objects
 
-  class Space < Object
+    class Space < Object
 
     def initialize(classes )
       @classes = classes
@@ -99,10 +99,10 @@ module Parfait
 
     # get or create the class by the (symbol) name
     # notice that this method of creating classes implies Object superclass
-    def get_class_by_name! name
+    def get_class_by_name!(name , super_class = :Object)
       c = get_class_by_name(name)
       return c if c
-      create_class name
+      create_class( name ,super_class)
     end
 
     # this is the way to instantiate classes (not Parfait::Class.new)