From dffa3fbf42ee5d31a20e0145659efc6acdf862eb Mon Sep 17 00:00:00 2001
From: Torsten Ruger <torsten@villataika.fi>
Date: Thu, 19 Nov 2015 10:08:41 +0200
Subject: [PATCH] adding word functions for byte access

---
 lib/register/boot.rb         |  7 +++++--
 lib/register/builtin/word.rb | 40 ++++++++++++++++++++++++++++++++++++
 2 files changed, 45 insertions(+), 2 deletions(-)

diff --git a/lib/register/boot.rb b/lib/register/boot.rb
index 4e7a336c..229ed9da 100644
--- a/lib/register/boot.rb
+++ b/lib/register/boot.rb
@@ -150,10 +150,13 @@ module Register
         obj.add_instance_method Builtin::Kernel.send(f , nil)
       end
 
-      @space.get_class_by_name(:Word).add_instance_method Builtin::Word.send(:putstring , nil)
+      obj = @space.get_class_by_name(:Word)
+      [:putstring , :get_internal_byte , :set_internal_byte ].each do |f|
+        obj.add_instance_method Builtin::Word.send(f , nil)
+      end
 
       obj = @space.get_class_by_name(:Integer)
-      [ :putint, :mod4].each do |f|
+      [ :putint, :mod4].each do |f|   #mod4 is just a forward declaration
         obj.add_instance_method Builtin::Integer.send(f , nil)
       end
     end
diff --git a/lib/register/builtin/word.rb b/lib/register/builtin/word.rb
index 392f0820..bfaadaeb 100644
--- a/lib/register/builtin/word.rb
+++ b/lib/register/builtin/word.rb
@@ -2,6 +2,8 @@ module Register
   module Builtin
     module Word
       module ClassMethods
+        include AST::Sexp
+
         def putstring context
           compiler = Soml::Compiler.new.create_method(:Word , :putstring ).init_method
           compiler.add_code Register.get_slot( "putstring" , :message , :receiver , :new_message )
@@ -11,6 +13,44 @@ module Register
           Kernel.emit_syscall( compiler , :putstring )
           compiler.method
         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 = Soml::Compiler.new.create_method(:Word , :get_internal_byte , {:index => :Integer }).init_method
+          source = "get_internal_word"
+          #Load self by "calling" on_name
+          me = compiler.process( s(:name , :self) )
+          # Load the argument
+          index = compiler.use_reg :Integer
+          compiler.add_code Register.get_slot(source , :message , Parfait::Message.get_indexed(1), index )
+          # reduce me to me[index]
+          compiler.add_code GetByte.new( source , me , index , me)
+          # and put it back into the return value
+          compiler.add_code Register.set_slot( source , me , :message , :return_value)
+          return compiler.method
+        end
+
+        # self[index] = val basically. Index is the first arg ( >0),
+        # value the second
+        # no return
+        def set_internal_byte context
+          compiler = Soml::Compiler.new.create_method(:Word , :set_internal_byte ,
+                                                {:index => :Integer, :value  => :Integer } ).init_method
+          source = "set_internal_word"
+          #Load self by "calling" on_name
+          me = compiler.process( s(:name , :self) )
+          # Load the index
+          index = compiler.use_reg :Integer
+          compiler.add_code Register.get_slot(source , :message , Parfait::Message.get_indexed(1), index )
+          # Load the value
+          value = compiler.use_reg :Integer
+          compiler.add_code Register.get_slot(source , :message , Parfait::Message.get_indexed(2), value )
+          # do the set
+          compiler.add_code SetByte.new( source , value , me , index)
+          return compiler.method
+        end
+
       end
       extend ClassMethods
     end