splitting commpiler commands and adding preload option

lib/vool/builtin.rb

@@ -1,13 +1,44 @@
 module Vool
-  module Macro
+  module Builtin
     def self.boot_methods(options)
       return if options[:boot_methods] == false
-      load_builtin( :int_plus )
+      load_builtin( "Integer.plus" )
     end
 
-    def self.load_builtin(name)
-      fname = "./builtin/#{name}.rb"
-      File.read File.expand_path(fname, File.dirname(__FILE__))
+    def self.load_builtin(loads)
+      clazz , meth = loads.split(".")
+      "class #{clazz}; #{Vool::Builtin.builtin[loads]};end;"
+    end
+
+    def self.builtin
+      {
+        "Object.get" => "def get_internal_word(at); X.get_internal_word;end",
+        "Object.missing" => "def method_missing(at); X.method_missing;end",
+        "Object.init" => "def __init__(at); X.init;end",
+        "Object.exit" => "def exit; X.exit;end",
+        "Integer.div4" => "def div4; X.div4;end",
+        "Integer.div10" => "def div10; X.div10;end",
+        "Integer.gt" => "def >; X.comparison(:>);end",
+        "Integer.lt" => "def <; X.comparison(:<);end",
+        "Integer.ge" => "def >=; X.comparison(:>=);end",
+        "Integer.le" => "def <=; X.comparison(:<=);end",
+        "Integer.plus" => "def +; X.int_operator(:+);end",
+        "Integer.minus" => "def -; X.int_operator(:-);end",
+        "Integer.mul" => "def *; X.int_operator(:*);end",
+        "Integer.and" => "def &; X.int_operator(:&);end",
+        "Integer.or" => "def |; X.int_operator(:|);end",
+        "Integer.ls" => "def <<; X.int_operator(:<<);end",
+        "Integer.rs" => "def >>; X.int_operator(:>>);end",
+        "Word.put" => "def putstring(at); X.putstring;end",
+        "Word.set" => "def set_internal_byte(at, val); X.set_internal_byte;end",
+        "Word.get" => "def get_internal_byte(at); X.get_internal_byte;end",
+        "Space.main" => "def main(args);return;end",
+      }
+    end
+    def self.builtin_code
+      keys = builtin.keys
+      keys.pop
+      keys.collect { |loads| load_builtin(loads)}.join
     end
   end
 end