simpler but more verbose node model fixes everything but one

lib/sof/array.rb

@@ -1,6 +1,6 @@
 Array.class_eval do
   def to_sof_node(writer , level)
-    node = Sof::NodeList.new()
+    node = Sof::ArrayNode.new()
     each do |object|
       node.add writer.to_sof_node( object )
     end

lib/sof/hash.rb

@@ -1,11 +1,10 @@
 Hash.class_eval do
   def to_sof_node(writer , level)
-    node = Sof::NodeList.new()
+    node = Sof::HashNode.new()
     each do |key , object|
-      k = key.to_sof() + ": "
+      k = writer.to_sof_node(key )
       v = writer.to_sof_node( object )
-      v.data = "#{k}#{v.data}"
-      node.add v
+      node.add(k , v)
     end
     node
   end

lib/sof/node.rb

@@ -15,36 +15,67 @@ module Sof
     end
     attr_accessor :data
     def out io , level
-      io.write(data) if data
+      io.write(data)
     end
   end
   
-  class NodeList < SimpleNode
-    def initialize data = nil
-      super(data)
+  class ArrayNode < Node
+    def initialize 
       @children = []
     end
-    attr_accessor  :children
-
-    def add child
-      child = SimpleNode.new(child) if(child.is_a? String)
-      @children << child
+    attr_reader  :children
+    def add c
+      @children << c
     end
-
     def out io , level = 0
-      super
-      return if @children.empty?
-      first = @children.first
-      io.write "-"
-      first.out(io , level + 1)
-      indent = " " * level      
+      indent = " " * level
       @children.each_with_index do |child , i|
-        next if i == 0  # done already
-        io.write "\n"
-        io.write indent
+        io.write "\n#{indent}" unless i == 0
         io.write "-"
         child.out(io , level + 1)
       end
     end
   end
+  class ObjectNode < Node
+    def initialize data
+      @data = data 
+      @children = []
+    end
+    attr_reader   :children
+    attr_accessor :data
+    def add k , v
+      @children << [k,v]
+    end
+    def out io , level = 0
+      io.write(@data)
+      indent = " " * level
+      @children.each_with_index do |child , i|
+        k , v = child
+        io.write "\n#{indent}" 
+        io.write ".."
+        k.out(io , level + 1)
+        v.out(io , level + 1)
+      end
+    end
+  end
+  class HashNode < Node
+    def initialize 
+      @children = []
+    end
+    attr_reader  :children
+    def add key , val
+      @children << [key,val]
+    end
+    def out io , level = 0
+      indent = " " * level
+      @children.each_with_index do |child , i|
+        key , val = child
+        io.write "\n#{indent}" unless i == 0
+        io.write "-"
+        key.out(io , level + 1)
+        io.write ": "
+        val.out(io , level + 1)
+      end
+    end
+  end
 end

lib/sof/writer.rb

@@ -30,13 +30,11 @@ module Sof
       attributes = attributes_for(object)
       immediate , extended = attributes.partition {|a| is_value?(get_value(object , a) ) }
       head += immediate.collect {|a| "#{a}: #{get_value(object , a).to_sof()}"}.join(", ") + ")"
-      ex = {}
+      node = ObjectNode.new(head)
       extended.each do |a|
         val = get_value(object , a)
-        ex[a] = val
+        node.add( write.to_sof_node(a) , writer.to_sof_node(val) )
       end
-      node = ex.to_sof_node(self,level+1)
-      node.data = head
       node
     end