Rename Vool to Sol

Simple is really the descriptive name for the layer
Sure, it is "virtual" but that is not as important as the fact that it is simple (or simplified)
Also objct (based really) is better, since orientated implies it is a little like that, but only orientated, not really it. Sol only has objects, nothing else
Just cause i was renaming anyway

test/sol/class_send/helper.rb

@@ -0,0 +1 @@
+require_relative "../helper"

test/sol/class_send/test_class_def.rb

@@ -0,0 +1,42 @@
+require_relative "helper"
+
+module Sol
+  class TestClassDef < MiniTest::Test
+    include SlotMachine
+    include SolCompile
+
+    def class_main
+      <<-eos
+        class Space
+          def self.one_plus()
+            return 1 + 1
+          end
+          def main(arg)
+            return Space.one_plus
+          end
+        end
+      eos
+    end
+
+    def setup
+      source = "class Integer<Data4;def +(other);X.int_operator(:+);end;end;" + class_main
+      ret = RubyX::RubyXCompiler.new(RubyX.default_test_options).ruby_to_slot(source)
+      @ins = ret.compilers.find_compiler_name(:main).slot_instructions.next
+    end
+    def test_array
+      check_array [MessageSetup,ArgumentTransfer,SimpleCall,SlotLoad,
+                    ReturnJump,Label, ReturnSequence , Label] , @ins
+    end
+
+    def test_any
+      assert_equal SlotMachine::MessageSetup , @ins.class
+    end
+    def test_no_arg
+      assert_equal SlotMachine::ArgumentTransfer,  @ins.next(1).class
+      assert_equal 0,  @ins.next(1).arguments.length
+    end
+    def test_call_two
+      assert_equal SimpleCall,  @ins.next(2).class
+    end
+  end
+end

test/sol/class_send/test_class_instance.rb

@@ -0,0 +1,64 @@
+require_relative "helper"
+
+module Sol
+  class TestClassInstance < MiniTest::Test
+    include SlotMachine
+    include SolCompile
+
+    def class_main
+      <<-eos
+        class Space
+          def self.some_inst
+            return @inst
+          end
+          def main(arg)
+            return Space.some_inst
+          end
+        end
+      eos
+    end
+
+    def setup
+      ret = RubyX::RubyXCompiler.new(RubyX.default_test_options).ruby_to_slot(class_main)
+      @compiler = ret.compilers.find_compiler_name(:some_inst)
+      @main = ret.compilers.find_compiler_name(:main)
+      @ins = @compiler.slot_instructions.next
+    end
+    def test_class_inst
+      space_class = Parfait.object_space.get_class
+      assert_equal :Space , space_class.name
+      names = space_class.single_class.instance_type.names
+      assert names.index_of(:inst) , names
+    end
+    def test_compiler
+      assert_equal SlotMachine::MethodCompiler, @compiler.class
+      assert_equal Parfait::Type, @compiler.callable.self_type.class
+      assert_equal 6, @compiler.callable.self_type.names.index_of(:inst) , @compiler.callable.self_type.names
+    end
+    def test_array
+      check_array [SlotLoad, ReturnJump, Label, ReturnSequence, Label]  , @ins
+    end
+    def test_main_array
+      check_array [MessageSetup, ArgumentTransfer, SimpleCall, SlotLoad, ReturnJump ,
+                    Label, ReturnSequence, Label]  , @main.slot_instructions.next
+    end
+    def test_main_args
+      args = @main.slot_instructions.next(2)
+      assert_equal Parfait::Class , args.receiver.known_object.class
+      assert_equal :Space , args.receiver.known_object.name
+      assert_equal :some_inst , args.receiver.known_object.type.method_names.first
+      assert_equal :inst , args.receiver.known_object.type.names.last
+    end
+    def test_load_inst
+      assert_equal SlotLoad,  @ins.class
+    end
+    def test_left
+      assert_equal SlotDefinition , @ins.left.class
+      assert_equal [:return_value] , @ins.left.slots
+    end
+    def test_right
+      assert_equal SlotDefinition , @ins.right.class
+      assert_equal [:receiver , :inst] , @ins.right.slots
+    end
+  end
+end

test/sol/class_send/test_class_send_inherited.rb

@@ -0,0 +1,45 @@
+require_relative "helper"
+
+module Sol
+  class TestClassSendInherited < MiniTest::Test
+    include SlotMachine
+    include SolCompile
+
+    def class_main
+      <<-eos
+        class Object
+          def self.one_plus()
+            return 1
+          end
+        end
+        class Space < Object
+          def main(arg)
+            return Space.one_plus
+          end
+        end
+      eos
+    end
+
+    def setup
+      ret = RubyX::RubyXCompiler.new(RubyX.default_test_options).ruby_to_slot(class_main)
+      @ins = ret.compilers.find_compiler_name(:main).slot_instructions.next
+    end
+    def test_array
+      check_array [MessageSetup,ArgumentTransfer,SimpleCall,SlotLoad,
+                    ReturnJump,Label, ReturnSequence , Label] , @ins
+    end
+    def test_receiver
+      assert_equal SlotMachine::ArgumentTransfer,  @ins.next(1).class
+      assert_equal 0,  @ins.next(1).arguments.length
+      assert_equal SlotDefinition,  @ins.next(1).receiver.class
+      assert_equal Parfait::Class,  @ins.next(1).receiver.known_object.class
+      assert_equal :Space,  @ins.next(1).receiver.known_object.name
+    end
+    def test_call
+      assert_equal SimpleCall,  @ins.next(2).class
+      assert_equal :one_plus,  @ins.next(2).method.name
+      assert_equal Parfait::Type,  @ins.next(2).method.self_type.class
+      assert_equal :"Space.Single",  @ins.next(2).method.self_type.object_class.name
+    end
+  end
+end

test/sol/class_send/test_send_class.rb

@@ -0,0 +1,62 @@
+require_relative "helper"
+
+module Sol
+  class TestSendClassSlotMachine < MiniTest::Test
+    include SolCompile
+
+    def class_main
+      <<-eos
+        class Space
+          def self.one_plus(one)
+            return 1 + 1
+          end
+        end
+        class Space
+          def main(arg)
+            return Space.one_plus(1)
+          end
+        end
+      eos
+    end
+
+    def setup
+      source = "class Integer < Data4;def +(other);X.int_operator(:+);end;end;" + class_main
+      ret = RubyX::RubyXCompiler.new(RubyX.default_test_options).ruby_to_slot(source)
+      @ins = ret.compilers.find_compiler_name(:main).slot_instructions.next
+    end
+
+    def test_array
+      check_array [MessageSetup,ArgumentTransfer,SimpleCall,SlotLoad,
+                    ReturnJump,Label, ReturnSequence , Label] , @ins
+    end
+
+    def test_class_compiles
+      assert_equal MessageSetup , @ins.class , @ins
+    end
+    def test_receiver
+      assert_equal SlotDefinition,  @ins.next.receiver.class
+      assert_equal Parfait::Class,  @ins.next.receiver.known_object.class
+      assert_equal :Object ,  @ins.next.receiver.known_object.name
+    end
+    def test_receiver_move
+      assert_equal SlotDefinition,  @ins.next.receiver.class
+    end
+    def test_receiver
+      assert_equal Parfait::Class,  @ins.next.receiver.known_object.class
+    end
+    def test_arg_one
+      assert_equal SlotLoad,  @ins.next(1).arguments[0].class
+    end
+    def test_receiver_move_class
+      assert_equal ArgumentTransfer,  @ins.next(1).class
+    end
+    def test_call_is
+      assert_equal SimpleCall,  @ins.next(2).class
+      assert_equal Parfait::CallableMethod,  @ins.next(2).method.class
+      assert_equal :one_plus,  @ins.next(2).method.name
+    end
+    def test_call_has_right_receiver
+      assert_equal "Space.Single_Type",  @ins.next(2).method.self_type.name
+    end
+  end
+end