more class test and misc
This commit is contained in:
@ -44,6 +44,9 @@ module Parfait
|
||||
def inspect
|
||||
"Class(#{name})"
|
||||
end
|
||||
def to_s
|
||||
inspect
|
||||
end
|
||||
|
||||
def add_method_for(name , type , frame , body )
|
||||
method = Parfait::VoolMethod.new(name , type , frame , body )
|
||||
|
@ -29,7 +29,6 @@ module Parfait
|
||||
def initialize( clazz )
|
||||
super()
|
||||
@clazz = clazz
|
||||
@instance_methods = List.new
|
||||
@instance_type = Object.object_space.get_type_by_class_name(:Object)
|
||||
end
|
||||
|
||||
@ -41,6 +40,9 @@ module Parfait
|
||||
"MetaClass(#{@clazz.name})"
|
||||
end
|
||||
|
||||
def to_s
|
||||
inspect
|
||||
end
|
||||
def add_method_for(name , type , frame , body )
|
||||
method = Parfait::VoolMethod.new(name , type , frame , body )
|
||||
add_method( method )
|
||||
|
@ -127,7 +127,7 @@ module Parfait
|
||||
end
|
||||
method.set_next( @methods )
|
||||
@methods = method
|
||||
#puts "#{self.name} add #{method.name}"
|
||||
# puts "ADD method to #{self.inspect}:#{method.name}"
|
||||
method
|
||||
end
|
||||
|
||||
@ -167,9 +167,9 @@ module Parfait
|
||||
def resolve_method( fname )
|
||||
method = get_method(fname)
|
||||
return method if method
|
||||
return nil if object_class.name == :Object
|
||||
sup = object_class.super_class
|
||||
return nil unless sup
|
||||
return nil if object_class.name == :Object
|
||||
sup.instance_type.resolve_method(fname)
|
||||
end
|
||||
|
||||
|
Reference in New Issue
Block a user