From 9bae96951121579147830c561fb2fd0752246291 Mon Sep 17 00:00:00 2001
From: Humza Shahid <humzasaur@gmail.com>
Date: Mon, 1 Sep 2025 01:24:56 +0100
Subject: [PATCH] add function to build a Real32.real vector list for a single
 line from a string, in text-builder.sml. To be used for building search
 string area in NORMAL_SEARCH_MODE.

---
 fcore/text-builder.sml | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)

diff --git a/fcore/text-builder.sml b/fcore/text-builder.sml
index 3c6ea02..bd011e2 100644
--- a/fcore/text-builder.sml
+++ b/fcore/text-builder.sml
@@ -330,6 +330,44 @@ struct
     else
       searchPos
 
+  local
+    fun loop
+      (pos, str, posX, posY, endX, acc, floatWindowWidth, floatWindowHeight) =
+      if pos = String.size str then
+        acc
+      else if posX + TC.xSpace >= endX then
+        acc
+      else
+        let
+          val chr = String.sub (str, pos)
+          val r: Real32.real = 0.67
+          val g: Real32.real = 0.51
+          val b: Real32.real = 0.83
+          val chr = makeChr
+            (chr, posX, posY, floatWindowWidth, floatWindowHeight, r, g, b)
+          val acc = chr :: acc
+          val nextPosX = posX + TC.xSpace
+        in
+          loop
+            ( pos + 1
+            , str
+            , nextPosX
+            , posY
+            , endX
+            , acc
+            , floatWindowWidth
+            , floatWindowHeight
+            )
+        end
+  in
+    (* builds a single text line from a string.
+     * Used for getting Real32.real vector representing search input. *)
+    fun buildLineToList
+      (str, startX, startY, endX, floatWindowWidth, floatWindowHeight) =
+      loop
+        (0, str, startX, startY, endX, [], floatWindowWidth, floatWindowHeight)
+  end
+
   fun buildTextStringSearch
     ( pos
     , str