some binary code tests

lib/parfait/binary_code.rb

@@ -1,18 +1,18 @@
-# A typed method object is a description of the method, it's name etc
-#
-# But the code that the method represents, the binary, is held as an array
-# in one of these.
-#
-
 module Parfait
 
+  # A typed method object is a description of the method, it's name etc
+  #
+  # But the code that the method represents, the binary, is held as an array
+  # in these. As Objects are fixed size (this one 16 words), we use  linked list
+  # and as the last code of each link is a jump to the next link.
+  #
   class BinaryCode < Data16
-    attr_accessor :next
+    attr_reader :next
 
     def initialize(total_size)
       super()
       if total_size > self.data_length
-        @next = BinaryCode.new(total_size - data_length)
+        @next = BinaryCode.new(total_size - data_length - 1) #one for the jump
       end
       #puts "Init with #{total_size} for #{object_id}"
     end
@@ -22,18 +22,18 @@ module Parfait
     def data_length
       14
     end
-    def char_length
+    def byte_length
       4*data_length
     end
-    def set_char(c , index)
-      if index >= char_length
+    def set_char(index , char)
+      if index >= byte_length
         puts "Pass it on #{index} for #{object_id}"
-        return @next.set_char( c , index - char_length)
+        return @next.set_char( char , index - byte_length)
       end
       word_index = (index - 1) / 4 + 2
       old = get_internal_word( word_index )
-      old = old && c << ((index-1)%4)
-      set_internal_word(word_index , c)
+      old = old && char << ((index-1)%4)
+      set_internal_word(word_index , char)
     end
     def total_byte_length(start = 0 )
       start += 4*14