From db0363462f42b05561853bd295fb4d39909a9f6c Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Wed, 13 Oct 2021 23:14:20 -0700
Subject: primitive: read line from keyboard

Blocking.
---
 apps/rpn.mu | 20 +-------------------
 1 file changed, 1 insertion(+), 19 deletions(-)

(limited to 'apps')

diff --git a/apps/rpn.mu b/apps/rpn.mu
index 4fd8ccb6..7d98d549 100644
--- a/apps/rpn.mu
+++ b/apps/rpn.mu
@@ -19,28 +19,10 @@ fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk)
   var in-storage: (stream byte 0x80)
   var in/esi: (addr stream byte) <- address in-storage
   var y/ecx: int <- copy 0
-  var space/edx: code-point <- copy 0x20
   # read-eval-print loop
   {
-    # print prompt
     var x/eax: int <- draw-text-rightward screen, "> ", 0/x, 0x80/xmax, y, 3/fg/cyan, 0/bg
-    # read line from keyboard
-    clear-stream in
-    {
-      draw-cursor screen, space
-      var key/eax: byte <- read-key keyboard
-      compare key, 0xa/newline
-      break-if-=
-      compare key, 0
-      loop-if-=
-      var key2/eax: int <- copy key
-      append-byte in, key2
-      var c/eax: code-point <- copy key2
-      draw-code-point-at-cursor-over-full-screen screen, c, 0xf/fg, 0/bg
-      loop
-    }
-    # clear cursor
-    draw-code-point-at-cursor-over-full-screen screen, space, 3/fg/never-used, 0/bg
+    read-line-from-keyboard keyboard, in, screen, 0xf/fg 0/bg
     # parse and eval
     var out/eax: int <- simplify in
     # print
-- 
cgit 1.4.1-2-gfad0