61 lines
1.9 KiB
Ruby
61 lines
1.9 KiB
Ruby
module Parfait
|
|
|
|
# class that acts like a class, but is really the object
|
|
|
|
# described in the ruby language book as the eigenclass, what you get with
|
|
# class MyClass
|
|
# class << self <--- this is called the eigenclass, or metaclass, and really is just
|
|
# .... the class object but gives us the ability to use the
|
|
# syntax as if it were a class
|
|
#
|
|
|
|
class MetaClass < Object
|
|
attribute :me
|
|
|
|
def initialize(object)
|
|
super()
|
|
self.me = object
|
|
end
|
|
|
|
def super_class
|
|
Space.object_space.get_class_by_name(self.me.super_class_name).meta
|
|
end
|
|
|
|
def name
|
|
"Meta#{me.name}".to_sym
|
|
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? Register::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
|
|
|
|
# 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 to_s
|
|
# "#{inspect} on #{self.me_self}, #{self.functions.length} functions"
|
|
# end
|
|
end
|
|
end
|