2015-07-01 20:45:41 +02:00
|
|
|
module Register
|
|
|
|
module Builtin
|
|
|
|
module Word
|
|
|
|
module ClassMethods
|
|
|
|
def putstring context
|
2015-10-28 20:37:42 +01:00
|
|
|
compiler = Soml::Compiler.new.create_method(:Word , :putstring , [] ).init_method
|
|
|
|
compiler.add_code Register.get_slot( "putstring" , :message , :receiver , :new_message )
|
|
|
|
Kernel.emit_syscall( compiler , :putstring )
|
|
|
|
compiler.method
|
2015-07-01 20:45:41 +02:00
|
|
|
end
|
|
|
|
end
|
|
|
|
extend ClassMethods
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|