rename

app/main/models/object_view.rb

@@ -0,0 +1,29 @@
+
+class ObjectView
+
+  attr_accessor :text , :object , :attributes
+
+  def initialize o
+    super()
+    puts "NO O " unless o
+    self.object = o
+    self.text = short
+    @attributes = {}
+  end
+
+  def short
+    object.class.name.split("::").last[0 .. 3]
+  end
+
+  def is_parfait
+    object.class.name.split("::").first == "Parfait"
+  end
+  def set name , val
+    @attributes[name] = val
+    self.text.text = short + @attributes.length.to_s
+  end
+  def get(name)
+    @attributes[name]
+  end
+
+end

app/main/models/space_view.rb

@@ -0,0 +1,99 @@
+
+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