-
Notifications
You must be signed in to change notification settings - Fork 0
/
terminal-repl.lua
171 lines (140 loc) · 4.18 KB
/
terminal-repl.lua
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
-- Coroutine based IO
local p = require"piping"
local IOHandler = p.IOHandler
local IOSink = p.IOSink
local colors = require"ansicolors"
local cc = coroutine.create
local function xload(f, chunkname, mode, env)
-- Stupid version of load to work around the fact that we cannot yield from
-- inside the load() call (cannot yield across C-api calls)
local lines = {}
while true do
local l = f()
if #l == 0 or l == "\n" then
break
end
table.insert(lines, l)
end
lines = table.concat(lines)
return load(lines)
end
local function _rep(env)
-- READ-EVAL-PRINT step
IOHandler:write(colors("%{bright blue}L> %{reset}"))
local ln = IOHandler:read()
if not ln then
IOHandler:write("Exit interpreter\n")
return ""
elseif ln == "\n" then
IOHandler:write(nil)
end
-- Try to see if we have an expression
local maybe_code, compile_err = load("return "..ln, "=(load)", 't', env)
-- Try to see if we have a single-line statement
if not maybe_code then
maybe_code, compile_err = load(ln, "=(load)", 't', env)
end
-- Try a multiline statement
if not maybe_code then
local first_time = true
local function get_multiline()
local l
if first_time then
first_time = false
l = ln
else
IOHandler:write(colors("%{bright blue}L.. %{reset}"));
l = IOHandler:read()
end
--[[
if #l ~= 0 then
l = l.."\n"
end
-]]
return l
end
maybe_code, compile_err = xload(get_multiline, "=(load)", 't', env)
end
if not maybe_code then
IOHandler:write(colors("%{bright red}Compile error:%{reset}"))
IOHandler:write(compile_err)
IOHandler:write("\n")
else
--debug.setupvalue(maybe_code)
local success, msg_or_ret = pcall(maybe_code)
if not success then
IOHandler:write(colors("%{red}Runtime error:%{reset} ") .. msg_or_ret .. "\n")
elseif msg_or_ret ~= nil then
IOHandler:write(tostring(msg_or_ret) .. "\n")
end
end
end
local function term_print(...)
for i, v in ipairs(table.pack(...)) do
IOHandler:write(tostring(v))
end
IOHandler:write("\n")
end
local function _repl(env)
-- REP-Loop
if env == nil then
--env = _G
env = {print=term_print}
setmetatable(env, {__index = _G})
end
while true do
_rep(env)
end
end
local function line_buffer()
-- make a line buffer with newline conversion
local linebuf = {}
while true do
local char_in = IOHandler:read()
table.insert(linebuf, char_in == '\r' and "\n" or char_in)
if char_in == '\r' then
IOHandler:write(table.concat(linebuf))
linebuf = {}
end
end
end
local lf_wrapper = p.make_mapper(function (d) return string.gsub(d, "\n", "\r\n") end)
local terminal = {}
function terminal.setup()
local js = require "js"
local document = js.global.document
local term_el = document:getElementById("terminal")
local term = js.new(js.global.Terminal)
term:open(term_el)
local sink = IOSink:new(function(d) term:write(d) end)
local process = sink << cc(lf_wrapper) << cc(_repl) << cc(line_buffer)
term:on("data", function (this, d)
-- hacky hack to have echo, must be fixed more elegantly
term:write(d == '\r' and "\r\n" or d)
process:pump(d)
end)
process:enter()
-- I hate to have to call :enter each time
terminal._sink = sink << cc(lf_wrapper)
terminal._sink:enter()
end
function terminal.print(...)
s = terminal._sink
for i, v in ipairs(table.pack(...)) do
s:pump(tostring(v))
end
s:pump("\n")
end
--[[
sink = IOSink:new(function(d) io.write(d); io.flush() end)
process = sink << cc(lf_wrapper) << cc(_repl) << cc(line_buffer)
process:pump(nil)
while true do
b = io.read().."\r"
for c in b:gmatch"." do
process:pump(c)
end
end
]]
terminal.setup()
package.preload.terminal = function() return terminal end