At primitive implementation for String>>#charAt: (#58)

Author: smarr

src/som/interpreter/ast/frame.py

@@ -46,9 +46,9 @@
 #   Inner
 #
 #  +-----------------+
-#  | OnStack         |
+#  | OnStack         |  boolean indicating whether the frame is still on the stack
 #  +-----------------+
-#  | Receiver        |
+#  | Receiver        |  the same as the receiver in the frame, not to be changed
 #  +-----------------+
 #  | ArgForInner 1   |
 #  | ...             |

src/som/interpreter/bc/frame.py

@@ -32,6 +32,22 @@
 #  | ...       |
 #  | Local n   |
 #  +-----------+
+#
+#   Inner
+#
+#  +-----------------+
+#  | OnStack         |  boolean indicating whether the frame is still on the stack
+#  +-----------------+
+#  | Receiver        |  the same as the receiver in the frame, not to be changed
+#  +-----------------+
+#  | ArgForInner 1   |
+#  | ...             |
+#  | ArgForInner n   |
+#  +-----------------+
+#  | LocalForInner 1 |
+#  | ...             |
+#  | LocalForInner n |
+#  +-----------------+
 
 
 def create_frame(

src/som/primitives/string_primitives.py

@@ -39,6 +39,15 @@ def _substring(rcvr, start, end):
     return String(string[s:e])
 
 
+def _char_at(rcvr, idx):
+    i = idx.get_embedded_integer() - 1
+    string = rcvr.get_embedded_string()
+
+    if i < 0 or i >= len(string):
+        return String("Error - index out of bounds")
+    return String(string[i])
+
+
 def _hashcode(rcvr):
     return Integer(compute_hash(rcvr.get_embedded_string()))
 
@@ -81,6 +90,7 @@ def _is_digits(self):
 
 class StringPrimitivesBase(Primitives):
     def install_primitives(self):
+        self._install_instance_primitive(BinaryPrimitive("charAt:", _char_at))
         self._install_instance_primitive(BinaryPrimitive("concatenate:", _concat))
         self._install_instance_primitive(UnaryPrimitive("asSymbol", _as_symbol))
         self._install_instance_primitive(UnaryPrimitive("length", _length))