Torsten Rüger
48e18ac9cd
And i have tests to prove it! That just rolls of the tongue, it had to be the commit message
72 lines
2.0 KiB
Ruby
72 lines
2.0 KiB
Ruby
#
|
|
# In many respects a SingletonClass is like a Class. We haven't gone to the full ruby/oo level
|
|
# yet, where the singleton_class is actually a class instance, but someday.
|
|
|
|
# A Class in general can be viewed as a way to generate methods for a group of objects.
|
|
|
|
# A SingletonClass serves the same function, but just for one object, the class object that it
|
|
# is the singleton_class of.
|
|
# This is slightly different in the way that the type of the class must actually
|
|
# change, whereas for a class the instance type changes and only objects generated
|
|
# henceafter have a different type.
|
|
|
|
# Another current difference is that a singleton_class has no superclass. Also no name.
|
|
# There is a one to one relationship between a class instance and it's singleton_class instance.
|
|
|
|
module Parfait
|
|
class SingletonClass < Behaviour
|
|
|
|
attr_reader :clazz
|
|
|
|
def self.type_length
|
|
4
|
|
end
|
|
def self.memory_size
|
|
8
|
|
end
|
|
|
|
def initialize( clazz )
|
|
clazz_hash = clazz.type.to_hash
|
|
@clazz = clazz
|
|
super( Type.for_hash(clazz_hash , self , 1) )
|
|
@clazz.set_type( @instance_type )
|
|
end
|
|
|
|
def rxf_reference_name
|
|
@clazz.name
|
|
end
|
|
|
|
def name
|
|
:"#{clazz.name}.Single"
|
|
end
|
|
|
|
def inspect
|
|
"SingletonClass(#{@clazz.name})"
|
|
end
|
|
|
|
def to_s
|
|
inspect
|
|
end
|
|
|
|
# adding an instance changes the instance_type to include that variable
|
|
def add_instance_variable( name , type)
|
|
super(name,type)
|
|
@clazz.set_type(@instance_type)
|
|
end
|
|
|
|
# the super class of a singleton classs is the singleton class of the super class.
|
|
# In effect the single classes shadow the class tree, leading to the fact that
|
|
# a class method defined in a super_class is accessible to a derived class in
|
|
# much the same way as normal methods are accessible in (normal) derived classes.
|
|
def super_class
|
|
@clazz.super_class.single_class if @clazz.super_class
|
|
end
|
|
|
|
# return the name of the superclass (see there)
|
|
def super_class_name
|
|
super_class.name if @clazz.super_class
|
|
end
|
|
|
|
end
|
|
end
|