require_relative "meta_class" module Vm # class is mainly a list of functions with a name (for now) # layout of object is seperated into Layout class BootClass < Code def initialize name , context , super_class = :Object super() @context = context # class functions @functions = [] @name = name.to_sym @super_class = super_class @meta_class = MetaClass.new(self) end attr_reader :name , :functions , :meta_class def add_function function raise "not a function #{function}" unless function.is_a? Function raise "syserr " unless function.name.is_a? Symbol @functions << function end def get_function fname fname = fname.to_sym f = @functions.detect{ |f| f.name == fname } names = @functions.collect{|f| f.name } f end # way of creating new functions that have not been parsed. def get_or_create_function name fun = get_function name unless fun or name == :Object supr = @context.object_space.get_or_create_class(@super_class) fun = supr.get_function name puts "#{supr.functions.collect(&:name)} for #{name} GOT #{fun.class}" if name == :index_of end unless fun fun = Core::Kernel.send(name , @context) @functions << fun end fun end def inspect "BootClass #{@name} , super #{@super_class} #{@functions.length} functions" end def to_s inspect end # Code interface follows. Note position is inheitted as is from Code # length of the class is the length of it's functions def length @functions.inject(0) {| sum , item | sum + item.length} end # linking functions def link_at( start , context) super @functions.each do |function| function.link_at(start , context) start += function.length end end # assemble functions def assemble( io ) @functions.each do |function| function.assemble(io) end io end end end