35 lines
967 B
Ruby
35 lines
967 B
Ruby
module Virtual
|
|
|
|
# collect anything that is in the space but and reachable from init
|
|
class Collector
|
|
def run
|
|
# init= Parfait::Space.object_space.get_class_by_name("Kernel").get_instance_method "__init__"
|
|
keep Parfait::Space.object_space
|
|
end
|
|
|
|
def keep object
|
|
return if object.nil?
|
|
return unless Machine.instance.add_object object
|
|
#puts "adding #{object.class}"
|
|
unless object.has_layout?
|
|
object.init_layout
|
|
end
|
|
if( object.is_a? Parfait::Method)
|
|
object.info.constants.each{|c| keep(c) }
|
|
end
|
|
layout = object.get_layout
|
|
keep layout
|
|
#puts "Layout #{layout.get_object_class.name} #{Machine.instance.objects.include?(layout)}"
|
|
layout.each do |name|
|
|
inst = object.instance_variable_get "@#{name}".to_sym
|
|
keep inst
|
|
end
|
|
if object.is_a? Parfait::List
|
|
object.each do |item|
|
|
keep item
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|