uncomment dead code

it’s dead, unfair to say it’s untested.
percentage wise i mean
This commit is contained in:
Torsten Ruger
2015-07-21 19:57:38 +03:00
parent e3577d18af
commit 074f3af174
3 changed files with 122 additions and 122 deletions

View File

@ -29,35 +29,35 @@ module Parfait
get_at(index)
end
def __send
typ = get_type_for( :receiver )
# TODO: this will obviously be recoded as case, once that is done :-)
# depending on value type get method
if( typ == Integer )
method = Integer.get_method @method_name
else
if( typ != ObjectReference )
raise "unimplemented case"
else
method = @receiver.get_singeton_method @method_name
# Find the method for the given object (receiver) according to ruby dispatch rules:
# - see if the receiver object has a (singleton) method by the name
# - get receivers class and look for instance methods of the name
# - go up inheritance tree
# - start over with method_missing instead
# -> guaranteed to end at object.method_missing
unless method
cl = @receiver.layout.object_class
method = cl.get_instance_or_super_method @method_name
end
end
end
unless method
message = Message.new( @receiver , :method_missing , [@method_name] + @args)
message.send
else
method.call
end
end
# def __send
# typ = get_type_for( :receiver )
# # TODO: this will obviously be recoded as case, once that is done :-)
# # depending on value type get method
# if( typ == Integer )
# method = Integer.get_method @method_name
# else
# if( typ != ObjectReference )
# raise "unimplemented case"
# else
# method = @receiver.get_singeton_method @method_name
# # Find the method for the given object (receiver) according to ruby dispatch rules:
# # - see if the receiver object has a (singleton) method by the name
# # - get receivers class and look for instance methods of the name
# # - go up inheritance tree
# # - start over with method_missing instead
# # -> guaranteed to end at object.method_missing
# unless method
# cl = @receiver.layout.object_class
# method = cl.get_instance_or_super_method @method_name
# end
# end
# end
# unless method
# message = Message.new( @receiver , :method_missing , [@method_name] + @args)
# message.send
# else
# method.call
# end
# end
end
end

View File

@ -16,43 +16,43 @@ module Parfait
class MetaClass < Object
# no name, nor nothing. as this is just the object really
def initialize(object)
super()
self.functions = []
self.me_self = object
end
# def initialize(object)
# super()
# self.functions = []
# self.me_self = object
# end
# in a non-booting version this should map to _add_singleton_method
def add_function function
raise "not a function #{function}" unless function.is_a? Virtual::Function
raise "syserr " unless function.name.is_a? Symbol
self.functions << function
end
# def add_function function
# raise "not a function #{function}" unless function.is_a? Virtual::Function
# raise "syserr " unless function.name.is_a? Symbol
# self.functions << function
# end
def get_function name
name = name.to_sym
f = self.functions.detect{ |f| f.name == name }
return f if f
if( self.me_self == "Object" )
puts "no function for :#{name} in Meta #{self.me_self.inspect}"
return nil
else #recurse up class hierachy unless we're at Object
return self.me_self.context.object_space.get_class_by_name(self.me_self.super_class).get_function name
end
end
# def get_function name
# name = name.to_sym
# f = self.functions.detect{ |f| f.name == name }
# return f if f
# if( self.me_self == "Object" )
# puts "no function for :#{name} in Meta #{self.me_self.inspect}"
# return nil
# else #recurse up class hierachy unless we're at Object
# return self.me_self.context.object_space.get_class_by_name(self.me_self.super_class).get_function name
# end
# end
# get the function and if not found, try superclasses. raise error if not found
def resolve_method name
fun = get_function name
# TODO THE BOOK says is class A derives from B , then the metaclass of
# A derives from the metaclass of B
# just get to it ! (and stop whimpering)
raise "Method not found #{name} , for #{inspect}" unless fun
fun
end
# def resolve_method name
# fun = get_function name
# # TODO THE BOOK says is class A derives from B , then the metaclass of
# # A derives from the metaclass of B
# # just get to it ! (and stop whimpering)
# raise "Method not found #{name} , for #{inspect}" unless fun
# fun
# end
def to_s
"#{inspect} on #{self.me_self}, #{self.functions.length} functions"
end
# def to_s
# "#{inspect} on #{self.me_self}, #{self.functions.length} functions"
# end
end
end