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

-- beginnings of a repl

function eval(buf)
  local f = load('return '..buf, 'REPL')
  if f then
    return run(f)
  end
  local f, err = load(buf, 'REPL')
  if f then
    return run(f)
  else
    return {err}
  end
end

-- you could perform parse and run separately
-- usually because there's a side-effect like drawing that you want to control the timing of
function parse_into_exec_payload(buf)
  local f = load('return '..buf, 'REPL')
  if f then
    exec_payload = f
    return
  end
  local f, err = load(buf, 'REPL')
  if f then
    exec_payload = f
    return
  else
    return {err}
  end
end

-- based on https://github.com/hoelzro/lua-repl
function run(f)
  local success, results = gather_results(xpcall(f, function(...) return debug.traceback() end))
  return results
end

function gather_results(success, ...)
  local n = select('#', ...)
  return success, { n = n, ... }
end