2013-12-09 20:17:43 +00:00
|
|
|
/*
|
|
|
|
|
Copyright (c) 2013 Microsoft Corporation. All rights reserved.
|
|
|
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
|
|
|
|
|
|
|
|
Author: Leonardo de Moura
|
|
|
|
|
*/
|
|
|
|
|
// Very simple read-eval-print for Lua
|
2013-12-13 05:02:12 +00:00
|
|
|
|
|
|
|
|
#if LUA_VERSION_NUM >= 520
|
2013-12-09 20:17:43 +00:00
|
|
|
static char const * g_lua_repl =
|
|
|
|
|
"local function trim(s)\n"
|
|
|
|
|
" return s:gsub('^%s+', ''):gsub('%s+$', '')\n"
|
|
|
|
|
"end\n"
|
|
|
|
|
"local function show_results(...)\n"
|
|
|
|
|
" if select('#', ...) > 1 then\n"
|
|
|
|
|
" print(select(2, ...))\n"
|
|
|
|
|
" end\n"
|
|
|
|
|
"end\n"
|
|
|
|
|
"print([[Type 'Exit' to exit.]])\n"
|
|
|
|
|
"repeat\n"
|
|
|
|
|
" io.write'lean > '\n"
|
|
|
|
|
" local s = io.read()\n"
|
|
|
|
|
" if s == nil then print(""); break end\n"
|
|
|
|
|
" if trim(s) == 'Exit' then break end\n"
|
|
|
|
|
" local f, err = load(s, 'stdin')\n"
|
|
|
|
|
" if err then\n"
|
|
|
|
|
" f = load('return (' .. s .. ')', 'stdin')\n"
|
|
|
|
|
" end\n"
|
|
|
|
|
" if f then\n"
|
|
|
|
|
" local ok, err = pcall(f)\n"
|
|
|
|
|
" if not ok then\n"
|
|
|
|
|
" if is_exception(err) then\n"
|
|
|
|
|
" print(err:what())\n"
|
|
|
|
|
" else\n"
|
|
|
|
|
" print(err)\n"
|
|
|
|
|
" end\n"
|
|
|
|
|
" else\n"
|
|
|
|
|
" if err then print(err) end\n"
|
|
|
|
|
" end\n"
|
|
|
|
|
" else\n"
|
|
|
|
|
" print(err)\n"
|
|
|
|
|
" end\n"
|
|
|
|
|
"until false\n";
|
2013-12-13 05:02:12 +00:00
|
|
|
#else /* For Lua 5.1, we uses loadstring instead of load */
|
|
|
|
|
static char const * g_lua_repl =
|
|
|
|
|
"local function trim(s)\n"
|
|
|
|
|
" return s:gsub('^%s+', ''):gsub('%s+$', '')\n"
|
|
|
|
|
"end\n"
|
|
|
|
|
"local function show_results(...)\n"
|
|
|
|
|
" if select('#', ...) > 1 then\n"
|
|
|
|
|
" print(select(2, ...))\n"
|
|
|
|
|
" end\n"
|
|
|
|
|
"end\n"
|
|
|
|
|
"print([[Type 'Exit' to exit.]])\n"
|
|
|
|
|
"repeat\n"
|
|
|
|
|
" io.write'lean > '\n"
|
|
|
|
|
" local s = io.read()\n"
|
|
|
|
|
" if s == nil then print(""); break end\n"
|
|
|
|
|
" if trim(s) == 'Exit' then break end\n"
|
|
|
|
|
" local f, err = loadstring(s, 'stdin')\n"
|
|
|
|
|
" if err then\n"
|
|
|
|
|
" f = loadstring('return (' .. s .. ')', 'stdin')\n"
|
|
|
|
|
" end\n"
|
|
|
|
|
" if f then\n"
|
|
|
|
|
" local ok, err = pcall(f)\n"
|
|
|
|
|
" if not ok then\n"
|
|
|
|
|
" if is_exception(err) then\n"
|
|
|
|
|
" print(err:what())\n"
|
|
|
|
|
" else\n"
|
|
|
|
|
" print(err)\n"
|
|
|
|
|
" end\n"
|
|
|
|
|
" else\n"
|
|
|
|
|
" if err then print(err) end\n"
|
|
|
|
|
" end\n"
|
|
|
|
|
" else\n"
|
|
|
|
|
" print(err)\n"
|
|
|
|
|
" end\n"
|
|
|
|
|
"until false\n";
|
|
|
|
|
#endif
|
