initial version externalized from salama

lib/sof/members.rb

@@ -0,0 +1,49 @@
+module Sof
+  
+  class Members
+    include Util
+    
+    def initialize root
+      @root = root
+      @counter = 1
+      @objects = {}
+      @referenced = false
+      add(root , 0)
+    end
+    attr_reader :objects , :root , :referenced
+    
+    def add object , level
+      return if is_value?(object)
+      if( occurence = @objects[object.object_id] )
+        #puts "reset level #{level} at #{occurence.level}"
+        if occurence.level > level
+          occurence.level = level 
+        end
+        unless occurence.referenced
+          #puts "referencing #{@counter} , at level #{level}/#{occurence.level} "
+          occurence.set_reference(@counter)
+          @counter = @counter + 1
+        end
+        return
+      end
+      o = Occurence.new( object , level )
+      @objects[object.object_id] = o
+      attributes = attributes_for(object)
+      attributes.each do |a|
+        val = get_value( object , a)
+        add(val , level + 1)
+      end
+      if( object.is_a? Array )
+        object.each do |a|
+          add(a , level + 1)
+        end
+      end
+      if( object.is_a? Hash )
+        object.each do |a,b|
+          add(a , level + 1)
+          add(b , level + 1)
+        end
+      end
+    end
+  end
+end