75 lines
1.7 KiB
Ruby
75 lines
1.7 KiB
Ruby
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
|
|
# Space.space.get_class_by_name(:Word)
|
|
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
|