Torsten Rüger
a446d3da6b
seems more appropriate, as it is the class for a single object Also seems to be called that on the net (don't remember where the meta came from, but it's gone)
68 lines
1.3 KiB
Ruby
68 lines
1.3 KiB
Ruby
module Vool
|
|
module Named
|
|
attr_reader :name
|
|
def initialize name
|
|
@name = name
|
|
end
|
|
def each(&block)
|
|
end
|
|
end
|
|
|
|
class LocalVariable < Expression
|
|
include Named
|
|
def to_slot(compiler)
|
|
slot_def = compiler.slot_type_for(@name)
|
|
Mom::SlotDefinition.new(:message , slot_def)
|
|
end
|
|
def to_s(depth = 0)
|
|
name.to_s
|
|
end
|
|
def each(&block)
|
|
block.call(self)
|
|
end
|
|
end
|
|
|
|
class InstanceVariable < Expression
|
|
include Named
|
|
def to_slot(_)
|
|
Mom::SlotDefinition.new(:message , [ :receiver , @name] )
|
|
end
|
|
# used to collect type information
|
|
def add_ivar( array )
|
|
array << @name
|
|
end
|
|
def to_s(depth = 0)
|
|
at_depth(depth , "@#{name}")
|
|
end
|
|
def each(&block)
|
|
block.call(self)
|
|
end
|
|
end
|
|
|
|
class ClassVariable < Expression
|
|
include Named
|
|
def each(&block)
|
|
block.call(self)
|
|
end
|
|
end
|
|
|
|
class ModuleName < Expression
|
|
include Named
|
|
def ct_type
|
|
get_named_class.singleton_class.instance_type
|
|
end
|
|
def to_slot(_)
|
|
return Mom::SlotDefinition.new( get_named_class, [])
|
|
end
|
|
def get_named_class
|
|
Parfait.object_space.get_class_by_name(self.name)
|
|
end
|
|
def each(&block)
|
|
block.call(self)
|
|
end
|
|
def to_s
|
|
@name.to_s
|
|
end
|
|
end
|
|
end
|