rubyx/lib/vool/builtin.rb

module Vool
  module Builtin
    def self.boot_methods(options)
      return if options[:boot_methods] == false
      load_builtin( "Integer.plus" )
    end

    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.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 nil;end",
      }
    end
    def self.builtin_code
      keys = builtin.keys
      keys.pop
      keys.collect { |loads| load_builtin(loads)}.join
    end
  end
end