Adds support for entering multi-line sexprs in REPL

lib/stdio.fnl

@@ -1,4 +1,5 @@
 (require "love.event")
+(local fennel (require "lib.fennel"))
 (local view (require "lib.fennelview"))
 
 ;; This module exists in order to expose stdio over a channel so that it
@@ -6,14 +7,37 @@
 
 (local (event channel) ...)
 
-(when channel
+(defn display [s]
-  (let [prompt (fn [] (io.write "> ") (io.flush) (io.read "*l"))]
+  (io.write s)
-    ((fn looper [input]
+  (io.flush))
+
+(defn prompt []
+  (display "\n>> "))
+
+(defn read-chunk []
+  (let [input (io.read)]
     (when input
-         ;; This is consumed by love.handlers[event]
+      (.. input "\n"))))
+
+(var input "")
+(when channel
+  (let [(bytestream clearstream) (fennel.granulate read-chunk)
+        read (fennel.parser
+              (fn []
+                (let [c (or (bytestream) 10)]
+                  (set input (.. input (string.char c)))
+                  c)))]
+    (while true
+      (prompt)
+      (set input "")
+      (let [(ok ast) (read)]
+        (if (not ok)
+            (do
+              (display (.. "Error:" (view ast) "\n"))
+              (clearstream))
+            (do
               (love.event.push event input)
-         (print (: channel :demand))
+              (display (: channel :demand))))))))
-         (looper (prompt)))) (prompt))))
 
 {:start (fn start-repl []
           (let [code (love.filesystem.read "stdio.fnl")

lib/stdio.lua

@@ -1,22 +1,51 @@
 require("love.event")
+local fennel = require("lib.fennel")
 local view = require("lib.fennelview")
 local event, channel = ...
+local function display(s)
+  io.write(s)
+  return io.flush()
+end
+do local _ = display end
+local function prompt()
+  return display("\n>> ")
+end
+do local _ = prompt end
+local function read_chunk()
+  local input = io.read()
+  if input then
+    return (input .. "\n")
+  end
+end
+do local _ = read_chunk end
+local input = ""
 local function _0_(...)
   if channel then
+    local bytestream, clearstream = fennel.granulate(read_chunk)
     local function _0_()
-      io.write("> ")
+      local c = (bytestream() or 10)
-      io.flush()
+      input = (input .. string.char(c))
-      return io.read("*l")
+      return c
     end
-    local prompt = _0_
+    local read = fennel.parser(_0_)
-    local function looper(input)
+    while true do
-      if input then
+      prompt()
+      input = ""
+      do
+        local ok, ast = read()
+        local function _1_(...)
+          if not ok then
+            display(("Error:" .. view(ast) .. "\n"))
+            return clearstream()
+          else
             love.event.push(event, input)
-        print(channel:demand())
+            return display(channel:demand())
-        return looper(prompt())
           end
         end
-    return looper(prompt())
+        _1_(...)
+      end
+    end
+    return nil
   end
 end
 _0_(...)
@@ -47,4 +76,4 @@ local function start_repl()
   love.handlers.eval = _2_
   return nil
 end
-return ({start = start_repl})
+return {start = start_repl}