require_relative "meta_class"

module Virtual
  
  # class is mainly a list of methods with a name (for now)
  # layout of object is seperated into Layout
  class BootClass < Virtual::ObjectConstant
    def initialize name , super_class_name = :Object
      super()
      # class methods
      @instance_methods = []
      @name = name.to_sym
      @super_class_name = super_class_name.to_sym
      @meta_class = Virtual::MetaClass.new(self)
    end
    attr_reader :name , :instance_methods , :meta_class , :context , :super_class_name
    def add_instance_method method
      raise "not a method #{method.class} #{method.inspect}" unless method.is_a? Virtual::CompiledMethod
      raise "syserr " unless method.name.is_a? Symbol
      @instance_methods << method
    end

    def get_instance_method fname
      fname = fname.to_sym
      f = @instance_methods.detect{ |f| f.name == fname }
      f
    end

    # get the method and if not found, try superclasses. raise error if not found
    def resolve_method name
      fun = get_method name
      unless fun or name == :Object
        supr = @context.object_space.get_or_create_class(@super_class_name)
        fun = supr.get_method name
        puts "#{supr.methods.collect(&:name)} for #{name} GOT #{fun.class}" if name == :index_of
      end
      raise "Method not found :#{name}, for #{inspect}" unless fun
      fun
    end

    def to_s
      inspect
    end

  end

end