7775

1 files changed, 18 insertions, 0 deletions

diff --git a/baremetal/shell/sandbox.mu b/baremetal/shell/sandbox.mu
index f6d0c6cb..dd153a9f 100644
--- a/baremetal/shell/sandbox.mu
+++ b/baremetal/shell/sandbox.mu
@@ -90,3 +90,21 @@ fn edit-sandbox _self: (addr sandbox), key: byte {
   }
   add-grapheme-to-sandbox self, g
 }
+
+fn run in: (addr gap-buffer), out: (addr stream byte) {
+  # tokenize
+  # insert parens
+  # transform infix
+  # token tree
+  # syntax tree
+  rewind-gap-buffer in
+  clear-stream out
+  {
+    var done?/eax: boolean <- gap-buffer-scan-done? in
+    compare done?, 0/false
+    break-if-!=
+    var g/eax: grapheme <- read-from-gap-buffer in
+    write-grapheme out, g
+    loop
+  }
+}