akkartik/sokoban.love - Change D2GCFTTT2RNUBFB243YTA4F2H5ZXFTFHBSKHLZ2CX4JSKRZFTUUQC

clean up repl functionality

Now we have separate keywords for returning vs drawing something.

Created by Kartik K. Agaram on May 11, 2022

D2GCFTTT2RNUBFB243YTA4F2H5ZXFTFHBSKHLZ2CX4JSKRZFTUUQC

Dependencies

In channels

main

Change contents

File addition: repl.lua (----------)

[3.2]

-- 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

Insertion in main.lua at line 3 [5.2]
[2.19]
[4.2]
```
require 'repl'
```
Insertion in main.lua at line 70 [5.2]
[6.23]
[6.23]
```
  -- display side effect
```
Replacement in main.lua at line 72 [5.2]
B:BD[6.46] → [6.46:76]
```
    call_gather(exec_payload)
```
[6.46]
[6.76]
```
    run(exec_payload)
```

Replacement in main.lua at line 122 [5.2]

B:BD[7.254] → [6.83:185]

    eval(lines[#lines])
--?     lines[#lines+1] = eval(lines[#lines])[1]
--?     lines[#lines+1] = ''

[7.254]

[5.601]

    lines[#lines+1] = eval(lines[#lines])[1]
    lines[#lines+1] = ''
  elseif chord == 'C-d' then
    parse_into_exec_payload(lines[#lines])

Deletion in main.lua at line 135 [5.2]

B:BD[7.464] → [7.464:465]

∅:D[7.465] → [8.176:248]

B:BD[5.612] → [8.176:248]

B:BD[8.248] → [6.186:248]

∅:D[6.248] → [8.274:327]

B:BD[8.274] → [8.274:327]

B:BD[8.327] → [6.249:311]

∅:D[6.311] → [8.353:679]

B:BD[8.353] → [8.353:679]

B:BD[5.653] → [5.653:657]


function eval(buf)
  local f = load('return '..buf, 'REPL')
  if f then
    exec_payload = f
    return
--?     return call_gather(f)
  end
  local f, err = load(buf, 'REPL')
  if f then
    exec_payload = f
    return
--?     return call_gather(f)
  else
    return {err}
  end
end
-- based on https://github.com/hoelzro/lua-repl
function call_gather(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