43 lines
1.5 KiB
Fennel
43 lines
1.5 KiB
Fennel
(local util (require :lib.util))
|
|
(local fennel (require :lib.fennel))
|
|
(local core (require :core))
|
|
|
|
(local replsession (util.hot-table ...))
|
|
|
|
(set replsession.sessions {})
|
|
|
|
(fn replsession.session-run [session]
|
|
(fennel.repl {:readChunk coroutine.yield
|
|
; todo: log errors?
|
|
:onValues #(pcall session.callback {:vals $1})
|
|
:onError #(pcall session.callback {:errType $1 :err $2 :luaSource $3 :traceback (fennel.traceback)})
|
|
:pp #$1
|
|
:env (lume.clone _G)}))
|
|
|
|
(fn replsession.restart-session [session]
|
|
(set session.coro (coroutine.create replsession.session-run))
|
|
(coroutine.resume session.coro session)
|
|
session)
|
|
|
|
(fn replsession.new-session [] (replsession.restart-session {:submit replsession.submit}))
|
|
|
|
(fn replsession.submit [session chunk callback]
|
|
(assert (= session.callback nil))
|
|
(set session.callback callback)
|
|
(match (pcall coroutine.resume session.coro (.. chunk "\n"))
|
|
(false err) (do (core.log (.. "REPL crashed: " err))
|
|
(replsession.restart-session session)))
|
|
(assert (= session.callback callback))
|
|
(set session.callback nil))
|
|
|
|
(fn replsession.activate [id] (set replsession.active-session-id id))
|
|
(fn replsession.session-id [?id] (or ?id replsession.active-session-id :REPL))
|
|
(fn replsession.session [?id]
|
|
(let [id (replsession.session-id ?id)
|
|
session (or (. replsession.sessions id) (replsession.new-session))]
|
|
(tset replsession.sessions id session)
|
|
session))
|
|
|
|
replsession.hot
|
|
|