require "parfait/value"
require "parfait/object"
require "parfait/module"
require "parfait/class"
require "parfait/dictionary"
require "parfait/list"
require "parfait/word"
require "parfait/message"
require "parfait/frame"
require "parfait/space"

# Below we define functions (in different classes) that are not part of the run-time
# They are used for the boot process, ie when this codes executes in the vm that builds salama

# To stay sane, we use the same classes that we use later, but "adapt" them to work in ruby
# This affects mainly memory layout

module FakeMem
  def initialize
    @memory = []
  end
end

module Parfait
  class Object
    include FakeMem
    def self.new_object *args
      #puts "I am #{self}"
      object = self.new(*args)
      object
    end
    def internal_object_length
      @memory.length
    end
    def internal_object_get(index)
      @memory[index]
    end
    def internal_object_set(index , value)
      @memory[index] = value
    end
    def internal_object_grow(index)
      @memory[index] = nil
    end
  end
  class Parfait::Class
  end
  class Parfait::List
    def length
      internal_object_length
    end
  end

  # Functions to generate parfait objects
  def self.new_word( string )
    string = string.to_s if string.is_a? Symbol
    word = Parfait::Word.new( string.length )
    string.codepoints.each_with_index do |code , index |
      word.set_char(index , code)
    end
    word
  end
  Word.class_eval do
    def to_s
      string = ""
      index = 0
      while( index < self.length)
        string[index] = get_char(index).chr
        index = index + 1
      end
      string
    end
  end
end