100 lines
2.6 KiB
Ruby
100 lines
2.6 KiB
Ruby
|
|
||
|
|
class SpaceView
|
||
|
|
include Sof::Util
|
||
|
|
|
||
|
|
def initialize max
|
||
|
|
super()
|
||
|
|
|
||
|
|
space = Virtual.machine.space
|
||
|
|
# just a way to get the space into a list. objects is an id => occurence mapping.
|
||
|
|
# occurence.object is the object
|
||
|
|
objects = Sof::Members.new(space).objects
|
||
|
|
@objects = objects
|
||
|
|
puts "Objects #{objects.length}"
|
||
|
|
# create a mapping from id to volt models
|
||
|
|
@view_objects = {}
|
||
|
|
|
||
|
|
@objects.each do |i , o|
|
||
|
|
ob = o.object
|
||
|
|
next unless ob
|
||
|
|
next if basic?(ob)
|
||
|
|
next if ob.class.name.include? "Binary"
|
||
|
|
next if ob.class.name.include? "Array"
|
||
|
|
puts "object #{ob.class.name}"
|
||
|
|
|
||
|
|
view = ObjectView.new ob
|
||
|
|
@view_objects[i] = view
|
||
|
|
add_child view.text
|
||
|
|
end
|
||
|
|
fill_attributes
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
def fill_attributes
|
||
|
|
@view_objects.each do |i , view|
|
||
|
|
ob = view.object
|
||
|
|
next if is_value?(ob)
|
||
|
|
case ob.class.name
|
||
|
|
when "Array" , "Parfait::List"
|
||
|
|
fill_array view
|
||
|
|
when "Hash" , "Parfait::Dictionary"
|
||
|
|
fill_hash view
|
||
|
|
else
|
||
|
|
# next if basic?(ob)
|
||
|
|
|
||
|
|
attributes = attributes_for(ob)
|
||
|
|
attributes.each do |a|
|
||
|
|
next if a == "html_safe"
|
||
|
|
next if a == "constructor"
|
||
|
|
next if a == "toString"
|
||
|
|
next if a == "position"
|
||
|
|
val = get_value( ob , a)
|
||
|
|
if( @view_objects[val.object_id])
|
||
|
|
val = @view_objects[val.object_id]
|
||
|
|
end
|
||
|
|
#puts "set #{a}"
|
||
|
|
view.set(a , val )
|
||
|
|
end
|
||
|
|
superclasses = [ob.class.superclass.name]
|
||
|
|
if superclasses.include?( "Array") or superclasses.include?( "Parfait::List")
|
||
|
|
fill_array view
|
||
|
|
end
|
||
|
|
if superclasses.include?( "Hash") or superclasses.include?( "Parfait::Dictionary")
|
||
|
|
fill_hash view
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
def basic? ob
|
||
|
|
return true if ob.class.name.include?("::") and !ob.class.name.include?("Parfait")
|
||
|
|
return true if ob.class.name == "Proc"
|
||
|
|
return true if ob.class.name == "String"
|
||
|
|
return true if ob.class.name == "Numeric"
|
||
|
|
return true if ob.class.name == "Class"
|
||
|
|
false
|
||
|
|
end
|
||
|
|
# and hash keys/values
|
||
|
|
def fill_hash view_hash
|
||
|
|
view_hash.object.each do |k , val|
|
||
|
|
if( @view_objects[val.object_id])
|
||
|
|
val = @view_objects[val.object_id]
|
||
|
|
end
|
||
|
|
view_hash.set(k , val )
|
||
|
|
end
|
||
|
|
end
|
||
|
|
# and array values
|
||
|
|
def fill_array view_array
|
||
|
|
index = 0
|
||
|
|
view_array.object.each do |val|
|
||
|
|
if( @view_objects[val.object_id])
|
||
|
|
val = @view_objects[val.object_id]
|
||
|
|
end
|
||
|
|
view_array.set("#{index}" , val )
|
||
|
|
index += 1
|
||
|
|
end
|
||
|
|
#puts "set #{a}"
|
||
|
|
end
|
||
|
|
|
||
|
|
end
|