cl-interpret: [NOT FINAL] Add unicode-aware O(n) string indexing

compiler/cl-interpret/src/lib.rs

@@ -90,12 +90,18 @@ pub mod convalue {
             let Self::Int(index) = index else {
                 Err(Error::TypeError)?
             };
-            let Self::Array(arr) = self else {
+            match self {
-                Err(Error::TypeError)?
+                ConValue::String(string) => string
-            };
+                    .chars()
-            arr.get(*index as usize)
+                    .nth(*index as _)
-                .cloned()
+                    .map(ConValue::Char)
-                .ok_or(Error::OobIndex(*index as usize, arr.len()))
+                    .ok_or(Error::OobIndex(*index as usize, string.chars().count())),
+                ConValue::Array(arr) => arr
+                    .get(*index as usize)
+                    .cloned()
+                    .ok_or(Error::OobIndex(*index as usize, arr.len())),
+                _ => Err(Error::TypeError),
+            }
         }
         cmp! {
             lt: false, <;