99a95d40a6
had to pimp register value to use a semblance of the dsl using <= for bytes and << for words
64 lines
2.3 KiB
Ruby
64 lines
2.3 KiB
Ruby
module Risc
|
|
module Builtin
|
|
module Word
|
|
module ClassMethods
|
|
include CompileHelper
|
|
|
|
def putstring( context)
|
|
compiler = compiler_for(:Word , :putstring ,{})
|
|
builder = compiler.compiler_builder(compiler.source)
|
|
new_message = Risc.message_reg.get_new_left(:receiver , compiler)
|
|
builder.add_slot_to_reg( "putstring" , Risc.message_reg , :receiver , new_message )
|
|
index = Parfait::Word.get_length_index
|
|
index_reg = RegisterValue.new(:r2 , :Integer)
|
|
builder.add_slot_to_reg( "putstring" , new_message , index , index_reg )
|
|
Risc::Builtin::Object.emit_syscall( builder , :putstring )
|
|
compiler.add_mom( Mom::ReturnSequence.new)
|
|
compiler
|
|
end
|
|
|
|
# self[index] basically. Index is the first arg > 0
|
|
# return (and word sized int) is stored in return_value
|
|
def get_internal_byte( context)
|
|
compiler = compiler_for(:Word , :get_internal_byte , {at: :Integer})
|
|
compiler.compiler_builder(compiler.source).build do
|
|
object << message[:receiver]
|
|
integer << message[:arguments]
|
|
integer << integer[1]
|
|
integer.reduce_int
|
|
object <= object[integer]
|
|
add_new_int("get_internal_byte", object , integer)
|
|
message[:return_value] << integer
|
|
end
|
|
|
|
compiler.add_mom( Mom::ReturnSequence.new)
|
|
return compiler
|
|
end
|
|
|
|
# self[index] = val basically. Index is the first arg ( >0),
|
|
# value the second
|
|
# return self
|
|
def set_internal_byte( context )
|
|
compiler = compiler_for(:Word, :set_internal_byte , {at: :Integer , :value => :Integer} )
|
|
compiler.compiler_builder(compiler.source).build do
|
|
word << message[:receiver]
|
|
integer << message[:arguments]
|
|
integer << integer[1]
|
|
integer_reg << message[:arguments]
|
|
integer_obj << integer_reg[2]
|
|
integer_reg << integer_reg[2]
|
|
integer.reduce_int
|
|
integer_reg.reduce_int
|
|
word[integer] <= integer_reg
|
|
message[:return_value] << integer_obj
|
|
end
|
|
compiler.add_mom( Mom::ReturnSequence.new)
|
|
return compiler
|
|
end
|
|
|
|
end
|
|
extend ClassMethods
|
|
end
|
|
end
|
|
end
|