76 lines
2 KiB
Lua
76 lines
2 KiB
Lua
local fennel = require("lib.fennel")
|
|
require("love.event")
|
|
local function prompt(cont_3f)
|
|
local function _1_()
|
|
if cont_3f then
|
|
return ".."
|
|
else
|
|
return ">> "
|
|
end
|
|
end
|
|
io.write(_1_())
|
|
io.flush()
|
|
return (tostring(io.read()) .. "\n")
|
|
end
|
|
local function looper(event, channel)
|
|
do
|
|
local _2_ = channel:demand()
|
|
if ((_G.type(_2_) == "table") and (_2_[1] == "write") and (nil ~= _2_[2])) then
|
|
local vals = _2_[2]
|
|
io.write(table.concat(vals, "\9"))
|
|
io.write("\n")
|
|
elseif ((_G.type(_2_) == "table") and (_2_[1] == "read") and (nil ~= _2_[2])) then
|
|
local cont_3f = _2_[2]
|
|
love.event.push(event, prompt(cont_3f))
|
|
else
|
|
end
|
|
end
|
|
return looper(event, channel)
|
|
end
|
|
do
|
|
local _4_, _5_ = ...
|
|
if ((nil ~= _4_) and (nil ~= _5_)) then
|
|
local event = _4_
|
|
local channel = _5_
|
|
looper(event, channel)
|
|
else
|
|
end
|
|
end
|
|
local function start_repl()
|
|
local code = love.filesystem.read("lib/stdio.fnl")
|
|
local luac
|
|
if code then
|
|
luac = love.filesystem.newFileData(fennel.compileString(code), "io")
|
|
else
|
|
luac = love.filesystem.read("lib/stdio.lua")
|
|
end
|
|
local thread = love.thread.newThread(luac)
|
|
local io_channel = love.thread.newChannel()
|
|
local coro
|
|
local function _8_(...)
|
|
return fennel.repl(...)
|
|
end
|
|
coro = coroutine.create(_8_)
|
|
local options
|
|
local function _11_(_9_)
|
|
local _arg_10_ = _9_
|
|
local stack_size = _arg_10_["stack-size"]
|
|
io_channel:push({"read", (0 < stack_size)})
|
|
return coroutine.yield()
|
|
end
|
|
local function _12_(vals)
|
|
return io_channel:push({"write", vals})
|
|
end
|
|
local function _13_(errtype, err)
|
|
return io_channel:push({"write", {err}})
|
|
end
|
|
options = {readChunk = _11_, onValues = _12_, onError = _13_, moduleName = "lib.fennel"}
|
|
coroutine.resume(coro, options)
|
|
thread:start("eval", io_channel)
|
|
local function _14_(input)
|
|
return coroutine.resume(coro, input)
|
|
end
|
|
love.handlers.eval = _14_
|
|
return nil
|
|
end
|
|
return {start = start_repl}
|