From acd3f2d39edb2cc306632a19a1eb4b7b0ba02836 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Thu, 26 Dec 2024 17:31:33 -0500
Subject: Add text indexing

---
 compile.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'compile.c')

diff --git a/compile.c b/compile.c
index 95b9ba1b..d4f8d4ab 100644
--- a/compile.c
+++ b/compile.c
@@ -3700,6 +3700,8 @@ CORD compile(env_t *env, ast_t *ast)
             } else {
                 code_err(indexing->index, "This table doesn't have a value type or a default value");
             }
+        } else if (container_t->tag == TextType) {
+            return CORD_all("Text$cluster(", compile_to_pointer_depth(env, indexing->indexed, 0, false), ", ", compile_to_type(env, indexing->index, Type(BigIntType)), ")");
         } else {
             code_err(ast, "Indexing is not supported for type: %T", container_t);
         }
-- 
cgit v1.2.3