1485 - start of a repl tool

Doesn't actually work interactively yet; for some reason it prints in
color, enter doesn't work, etc.

It'll be interesting to try to add color and history as separate
'layers' using before/after.

I'll also likely have to delete traces for its tests at some point as
they inevitably explode in size.

1 files changed, 28 insertions, 0 deletions

diff --git a/060string.mu b/060string.mu
index 480f7db5..227115ad 100644
--- a/060string.mu
+++ b/060string.mu
@@ -279,6 +279,34 @@ recipe integer-to-decimal-string [
   reply result:address:array:character
 ]
 
+recipe buffer-to-array [
+  default-space:address:array:character <- new location:type, 30:literal
+  in:address:buffer <- next-ingredient
+  len:number <- get in:address:buffer/deref, length:offset
+#?   $print [size ], len:number, [ 
+#? ] #? 1
+  s:address:array:character <- get in:address:buffer/deref, data:offset
+  {
+    # propagate null buffer
+    break-if s:address:array:character
+    reply 0:literal
+  }
+  # we can't just return s because it is usually the wrong length
+  result:address:array:character <- new character:type, len:number
+  i:number <- copy 0:literal
+  {
+#?     $print i:number #? 1
+    done?:boolean <- greater-or-equal i:number, len:number
+    break-if done?:boolean
+    src:character <- index s:address:array:character/deref, i:number
+    dest:address:character <- index-address result:address:array:character/deref, i:number
+    dest:address:character/deref <- copy src:character
+    i:number <- add i:number, 1:literal
+    loop
+  }
+  reply result:address:array:character
+]
+
 scenario integer-to-decimal-digit-zero [
   run [
     1:address:array:character/raw <- integer-to-decimal-string 0:literal