6861 - tile: conventional repl

1 files changed, 77 insertions, 15 deletions

diff --git a/apps/tile/main.mu b/apps/tile/main.mu
index fdbb69ca..afefc4b5 100644
--- a/apps/tile/main.mu
+++ b/apps/tile/main.mu
@@ -2,17 +2,10 @@ fn main args-on-stack: (addr array addr array byte) -> exit-status/ebx: int {
   var args/eax: (addr array addr array byte) <- copy args-on-stack
   var len/ecx: int <- length args
   $main-body: {
-    # if no args, run in interactive mode
-    compare len, 1
-    {
-      break-if->
-      exit-status <- interactive args-on-stack
-      break $main-body
-    }
-    # else if single arg is 'test', run tests
     compare len, 2
     {
       break-if-!=
+      # if single arg is 'test', run tests
       var tmp/ecx: (addr addr array byte) <- index args, 1
       var tmp2/eax: boolean <- string-equal? *tmp, "test"
       compare tmp2, 0  # false
@@ -22,26 +15,95 @@ fn main args-on-stack: (addr array addr array byte) -> exit-status/ebx: int {
         exit-status <- copy 0  # TODO: get at Num-test-failures somehow
         break $main-body
       }
+      # if single arg is 'screen', run in full-screen mode
+      tmp2 <- string-equal? *tmp, "screen"
+      compare tmp2, 0  # false
+      {
+        break-if-=
+        interactive
+        exit-status <- copy 0
+        break $main-body
+      }
+      # if single arg is 'type', run in typewriter mode
+      tmp2 <- string-equal? *tmp, "type"
+      compare tmp2, 0  # false
+      {
+        break-if-=
+        repl
+        exit-status <- copy 0
+        break $main-body
+      }
     }
     # otherwise error message
-    print-string-to-real-screen "usage: tile\n"
-    print-string-to-real-screen "    or tile test\n"
+    print-string-to-real-screen "usage:\n"
+    print-string-to-real-screen "  to run tests: tile test\n"
+    print-string-to-real-screen "  full-screen mode: tile screen\n"
+    print-string-to-real-screen "  regular REPL: tile type\n"
     exit-status <- copy 1
   }
 }
 
-fn interactive args: (addr array addr array byte) -> exit-status/ebx: int {
+fn interactive {
   enable-screen-grid-mode
   enable-keyboard-immediate-mode
   var env-storage: environment
   var env/esi: (addr environment) <- address env-storage
   initialize-environment env
-  render-loop env
+  draw-screen env
+  {
+    var key/eax: grapheme <- read-key-from-real-keyboard
+    compare key, 0x71  # 'q'
+    break-if-=
+    process env, key
+    render env
+    loop
+  }
   enable-keyboard-type-mode
   enable-screen-type-mode
-  exit-status <- copy 0
 }
 
-fn real-grapheme? g: grapheme -> result/eax: boolean {
-  result <- copy 1  # true
+fn repl {
+  enable-keyboard-immediate-mode
+  var env-storage: environment
+  var env/esi: (addr environment) <- address env-storage
+  initialize-environment env
+  var stack-storage: int-stack
+  var stack/edi: (addr int-stack) <- address stack-storage
+  initialize-int-stack stack, 0x10
+  print-string-to-real-screen "> "
+  $repl:loop: {
+    var key/eax: grapheme <- read-key-from-real-keyboard
+    print-grapheme-to-real-screen key
+    compare key, 4  # ctrl-d
+    break-if-=
+    compare key, 0xa  # 'q'
+    {
+      break-if-!=
+      evaluate-environment env, stack
+      var empty?/eax: boolean <- int-stack-empty? stack
+      {
+        compare empty?, 0  # false
+        break-if-!=
+        var result/eax: int <- pop-int-stack stack
+        print-int32-decimal-to-real-screen result
+        print-string-to-real-screen "\n"
+      }
+      # clear line
+      var cursor-word-ah/ecx: (addr handle word) <- get env, cursor-word
+      var program-ah/eax: (addr handle program) <- get env, program
+      var _program/eax: (addr program) <- lookup *program-ah
+      var program/esi: (addr program) <- copy _program
+      var sandbox-ah/esi: (addr handle sandbox) <- get program, sandboxes
+      var sandbox/eax: (addr sandbox) <- lookup *sandbox-ah
+      var line-ah/eax: (addr handle line) <- get sandbox, data
+      var _line/eax: (addr line) <- lookup *line-ah
+      var line/esi: (addr line) <- copy _line
+      initialize-line line, cursor-word-ah
+      print-string-to-real-screen "> "
+      loop $repl:loop
+    }
+    process env, key
+    loop
+  }
+  enable-keyboard-type-mode
 }