Torsten Rüger
17f87f7464
resolve had the wrong approach, sort of class based oo It took methods from "derived" types and just used them To be correct, those methods would have to be recompiled for the current type, rubyx is type, not class based. Started on that, still soe strange hang though Later, type and method analysis may reveal "compatible" types (down only off course) where one could use the exact same code, but that is phase 2
82 lines
2.8 KiB
Ruby
82 lines
2.8 KiB
Ruby
# Class is mainly a list of methods with a name.
|
|
# The methods are untyped, sis VoolMethod.
|
|
|
|
# The memory layout of an object is determined by the Type (see there).
|
|
# The class carries the "current" type, ie the type an object would be if you
|
|
# created an instance of the class.
|
|
# Note that this changes over time and so many types share the same class.
|
|
|
|
# For dynamic OO it is essential that the class (the object defining the class)
|
|
# can carry methods. It does so in an instance variable methods.
|
|
|
|
# An Object carries the data for the instance variables it has.
|
|
# The Type lists the names of the instance variables
|
|
# The Class keeps a list of instance methods, these have a name and (vool) code
|
|
# Each type in turn has a list of CallableMethods that hold binary code
|
|
|
|
module Parfait
|
|
class Class < Behaviour
|
|
|
|
attr_reader :name , :super_class_name , :single_class
|
|
|
|
def self.type_length
|
|
6
|
|
end
|
|
def self.memory_size
|
|
8
|
|
end
|
|
|
|
def initialize( name , superclass , instance_type)
|
|
super(instance_type)
|
|
@name = name
|
|
@super_class_name = superclass
|
|
@single_class = SingletonClass.new( self , self.type || @name)
|
|
end
|
|
|
|
def rxf_reference_name
|
|
name
|
|
end
|
|
|
|
def inspect
|
|
"Class(#{name})"
|
|
end
|
|
def to_s
|
|
inspect
|
|
end
|
|
|
|
# return the super class, but raise exception if either the super class name
|
|
# or the super classs is nil.
|
|
# Use only for non Object base class
|
|
def super_class!
|
|
raise "No super_class for class #{@name}" if is_object?
|
|
s = super_class
|
|
raise "superclass not found for class #{@name} (#{@super_class_name})" unless s
|
|
s
|
|
end
|
|
|
|
# return the super class
|
|
# we only store the name, and so have to resolve.
|
|
# Nil name means no superclass, and so nil is a valid return value
|
|
def super_class
|
|
return nil if is_object?
|
|
Object.object_space.get_class_by_name(@super_class_name)
|
|
end
|
|
|
|
def is_object?
|
|
@name == :Object
|
|
end
|
|
# ruby 2.1 list (just for reference, keep at bottom)
|
|
#:allocate, :new, :superclass
|
|
|
|
# + modules
|
|
# :<, :<=, :>, :>=, :included_modules, :include?, :name, :ancestors, :instance_methods, :public_instance_methods,
|
|
# :protected_instance_methods, :private_instance_methods, :constants, :const_get, :const_set, :const_defined?,
|
|
# :const_missing, :class_variables, :remove_class_variable, :class_variable_get, :class_variable_set,
|
|
# :class_variable_defined?, :public_constant, :private_constant, :singleton_class?, :include, :prepend,
|
|
# :module_exec, :class_exec, :module_eval, :class_eval, :method_defined?, :public_method_defined?,
|
|
# :private_method_defined?, :protected_method_defined?, :public_class_method, :private_class_method, :autoload,
|
|
# :autoload?, :instance_method, :public_instance_method
|
|
|
|
end
|
|
end
|