diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2021-11-20 16:16:00 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2021-11-20 16:33:41 -0800 |
commit | b618bfc7cf7eb5fa498a051a17832c2cda4cca9c (patch) | |
tree | 0e5179289101da53572f9bce6c9f543d054d010a /src/lua.c | |
parent | 8a3e81b4b0d8365baa40ff1326ed4d13b34506dc (diff) | |
download | teliva-b618bfc7cf7eb5fa498a051a17832c2cda4cca9c.tar.gz |
port changes from minimal to maximal version
From lcurseslib.c to lcurses/ directory.
Diffstat (limited to 'src/lua.c')
-rw-r--r-- | src/lua.c | 26 |
1 files changed, 19 insertions, 7 deletions
diff --git a/src/lua.c b/src/lua.c index 61836e6..ec8818b 100644 --- a/src/lua.c +++ b/src/lua.c @@ -249,30 +249,34 @@ static void dotty (lua_State *L) { void stack_dump (lua_State *L) { int i; int top = lua_gettop(L); + int y = 1; for (i = 1; i <= top; i++) { /* repeat for each level */ int t = lua_type(L, i); switch (t) { case LUA_TSTRING: /* strings */ - printf("`%s'", lua_tostring(L, i)); + mvprintw(y, 30, "`%s'", lua_tostring(L, i)); break; case LUA_TBOOLEAN: /* booleans */ - printf(lua_toboolean(L, i) ? "true" : "false"); + mvprintw(y, 30, lua_toboolean(L, i) ? "true" : "false"); break; case LUA_TNUMBER: /* numbers */ - printf("%g", lua_tonumber(L, i)); + mvprintw(y, 30, "%g", lua_tonumber(L, i)); break; default: /* other values */ - printf("%s", lua_typename(L, t)); + mvprintw(y, 30, "%s", lua_typename(L, t)); break; } - printf(" "); /* put a separator */ + y++; + mvprintw(y, 30, " "); /* put a separator */ + y++; } - printf("\n"); /* end the listing */ + mvprintw(y, 30, "\n"); /* end the listing */ + y++; } @@ -646,13 +650,21 @@ struct Smain { static int pmain (lua_State *L) { struct Smain *s = (struct Smain *)lua_touserdata(L, 1); char **argv = s->argv; + int status; int image; int has_i = 0, has_v = 0, has_e = 0; globalL = L; if (argv[0] && argv[0][0]) progname = argv[0]; lua_gc(L, LUA_GCSTOP, 0); /* stop collector during initialization */ luaL_openlibs(L); /* open libraries */ - dofile(L, "lcurses/curses.lua"); + status = luaL_loadfile(L, "lcurses/curses.lua") || docall(L, /*nargs*/0, /*don't clean up stack*/0); + if (status != 0) return report(L, status); + if (lua_isnil(L, -1)) { + endwin(); + printf("lcurses/curses.lua didn't return a module\n"); + exit(1); + } + lua_setglobal(L, "curses"); lua_gc(L, LUA_GCRESTART, 0); s->status = handle_luainit(L); if (s->status != 0) return 0; |