2019-08-12 12:16:15 +02:00
|
|
|
require_relative "get_internal_byte"
|
|
|
|
require_relative "set_internal_byte"
|
|
|
|
require_relative "putstring"
|
|
|
|
|
2019-08-12 11:36:32 +02:00
|
|
|
module Mom
|
2015-07-01 20:45:41 +02:00
|
|
|
module Builtin
|
|
|
|
module Word
|
|
|
|
module ClassMethods
|
2016-12-15 18:31:39 +01:00
|
|
|
include CompileHelper
|
2015-11-19 09:08:41 +01:00
|
|
|
|
2018-08-14 10:23:19 +02:00
|
|
|
# wrapper for the syscall
|
|
|
|
# io/file currently hardcoded to stdout
|
|
|
|
# set up registers for syscall, ie
|
|
|
|
# - pointer in r1
|
|
|
|
# - length in r2
|
|
|
|
# - emit_syscall (which does the return of an integer, see there)
|
2018-04-01 14:17:16 +02:00
|
|
|
def putstring( context)
|
2018-03-18 17:38:35 +01:00
|
|
|
compiler = compiler_for(:Word , :putstring ,{})
|
2019-08-12 09:45:07 +02:00
|
|
|
compiler.add_code Putstring.new("putstring")
|
|
|
|
return compiler
|
|
|
|
end
|
2015-11-19 09:08:41 +01:00
|
|
|
# self[index] basically. Index is the first arg > 0
|
2018-08-14 10:23:19 +02:00
|
|
|
# return a word sized new int, in return_value
|
2018-11-21 19:29:22 +01:00
|
|
|
#
|
|
|
|
# Note: no index (or type) checking. Method should be internal and check before.
|
|
|
|
# Which means the returned integer could be passed in, instead of allocated.
|
2018-04-01 14:17:16 +02:00
|
|
|
def get_internal_byte( context)
|
2018-03-18 17:38:35 +01:00
|
|
|
compiler = compiler_for(:Word , :get_internal_byte , {at: :Integer})
|
2019-08-12 09:45:07 +02:00
|
|
|
compiler.add_code GetInternalByte.new("get_internal_byte")
|
2018-06-30 22:16:17 +02:00
|
|
|
return compiler
|
2015-11-19 09:08:41 +01:00
|
|
|
end
|
2018-11-21 19:29:22 +01:00
|
|
|
# self[index] = val basically. Index is the first arg ( >0 , unchecked),
|
|
|
|
# value the second, which is also returned
|
2018-04-01 20:59:06 +02:00
|
|
|
def set_internal_byte( context )
|
2018-11-21 19:29:22 +01:00
|
|
|
compiler = compiler_for(:Word, :set_internal_byte , {at: :Integer , value: :Integer} )
|
2019-08-12 09:45:07 +02:00
|
|
|
compiler.add_code SetInternalByte.new("set_internal_byte")
|
2018-06-30 22:16:17 +02:00
|
|
|
return compiler
|
2015-11-19 09:08:41 +01:00
|
|
|
end
|
2015-07-01 20:45:41 +02:00
|
|
|
end
|
|
|
|
extend ClassMethods
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|