changing factory size per factory

Before it was one class variable, but ints and messages are not created in equal amounts.

lib/parfait/factory.rb

@@ -12,18 +12,15 @@
   # factory when the next (not current) is nil.
   # This is btw just as easy a check, as the next needs to be gotten to swap the list.
   class Factory < Object
-    attr :type , :for_type , :next_object , :reserve , :attribute_name
-
-    @page_size = 1024
-    @reserve_size = 10
-    cattr :page_size , :reserve_size
+    attr :type , :for_type , :next_object , :reserve , :attribute_name , :page_size
 
     # initialize for a given type (for_type). The attribute that is used to create the
     # list is the first that starts with next_ . "next" itself would have been nice and general
     # but is a keyword, so no go.
-    def initialize(type)
+    def initialize(type , page)
       self.for_type = type
       self.attribute_name = type.names.find {|name| name.to_s.start_with?("next")}
+      self.page_size = page
       raise "No next found for #{type.class_name}" unless attribute_name
     end
 
@@ -52,7 +49,8 @@
     def get_more
       self.reserve = get_chain
       last_link = self.reserve
-      count = Factory.reserve_size
+      count = self.page_size / 100
+      count = 15 if count < 15
       while(count > 0)
         last_link = get_next_for(last_link)
         count -= 1
@@ -66,9 +64,9 @@
     # it creates objects from the mem and link them into a chain
     def get_chain
       raise "type is nil" unless self.for_type
-      first = sys_mem( for_type , Factory.page_size)
+      first = sys_mem( for_type , self.page_size)
       chain = first
-      counter = Factory.page_size
+      counter = self.page_size
       while( counter > 0)
         nekst = get_next_raw( chain )
         set_next_for(chain,  nekst)

lib/parfait/space.rb

@@ -33,7 +33,7 @@ module Parfait
     attr  :type, :classes , :types , :factories
     attr  :true_object , :false_object , :nil_object
 
-    def initialize( classes )
+    def initialize( classes , pages)
       self.classes = classes
       self.types = Dictionary.new
       classes.each do |name , cl|
@@ -41,7 +41,11 @@ module Parfait
       end
       self.factories = Dictionary.new
       [:Integer , :ReturnAddress , :Message].each do |fact_name|
-        factories[ fact_name ] = Factory.new( classes[fact_name].instance_type).get_more
+        for_type = classes[fact_name].instance_type
+        page_size = pages[fact_name] || 1024
+        factory = Factory.new( for_type , page_size )
+        factory.get_more
+        factories[ fact_name ] = factory
       end
       init_message_chain( factories[ :Message ].reserve  )
       init_message_chain( factories[ :Message ].next_object  )

lib/risc/parfait_boot.rb

@@ -55,9 +55,7 @@ module Parfait
     boot_boot_space( types )
     classes = boot_classes( types )
     fix_types( types , classes )
-    page = options[:factory] || 1024
-    Factory.page_size = page
-    space = Space.new( classes )
+    space = Space.new( classes , options )
     Parfait.set_object_space( space )
   end
 
@@ -154,8 +152,8 @@ module Parfait
       Data32: {},
       Dictionary: {i_keys: :List , i_values: :List  } ,
       FalseClass: {},
-      Factory: { for_type: :Type , next_object: :Object ,
-                 reserve: :Object , attribute_name: :Word },
+      Factory: { for_type: :Type , next_object: :Object , reserve: :Object ,
+                 attribute_name: :Word , page_size: :Integer },
       Integer: {next_integer: :Integer},
       List: {indexed_length: :Integer , next_list: :List} ,
       Message: { next_message: :Message,   receiver: :Object, frame: :NamedList ,