diff options
author | Oliver Schneider <oliver@assarbad.net> | 2012-11-08 06:20:04 +0400 |
---|---|---|
committer | Oliver Schneider <oliver@assarbad.net> | 2012-11-08 06:20:04 +0400 |
commit | 5201051bd009f9c4ae8c1e079c7dd1f88f2b1201 (patch) | |
tree | 25bfa469c2eb5d63eb80f9222c02abc0d3d5ad60 /sandbox/luaconf/lua_conf.cpp | |
parent | a84f8caff148305f5dd9d1629f095d663e0c2ac6 (diff) |
- Just experimenting
Diffstat (limited to 'sandbox/luaconf/lua_conf.cpp')
-rw-r--r-- | sandbox/luaconf/lua_conf.cpp | 77 |
1 files changed, 77 insertions, 0 deletions
diff --git a/sandbox/luaconf/lua_conf.cpp b/sandbox/luaconf/lua_conf.cpp index c705101..12e1ad9 100644 --- a/sandbox/luaconf/lua_conf.cpp +++ b/sandbox/luaconf/lua_conf.cpp @@ -8,6 +8,66 @@ #define new DEBUG_NEW
#endif
+namespace
+{
+ static int traceback (lua_State *L) { + if (!lua_isstring(L, 1)) /* 'message' not a string? */ + return 1; /* keep it intact */ + lua_getfield(L, LUA_GLOBALSINDEX, "debug"); + if (!lua_istable(L, -1)) { + lua_pop(L, 1); + return 1; + } + lua_getfield(L, -1, "traceback"); + if (!lua_isfunction(L, -1)) { + lua_pop(L, 2); + return 1; + } + lua_pushvalue(L, 1); /* pass error message */ + lua_pushinteger(L, 2); /* skip this function and traceback */ + lua_call(L, 2, 1); /* call debug.traceback */ + return 1; + } + + static void l_message (const char *pname, const char *msg) + { + if (pname) fprintf(stderr, "%s: ", pname); + fprintf(stderr, "%s\n", msg); + fflush(stderr); + } + + + static int report (lua_State *L, int status) + { + if (status && !lua_isnil(L, -1)) { + const char *msg = lua_tostring(L, -1); + if (msg == NULL) msg = "(error object is not a string)"; + l_message(__FILE__, msg); + lua_pop(L, 1); + } + return status; + } + + static int docall (lua_State *L, int narg, int clear) + { + int status; + int base = lua_gettop(L) - narg; /* function index */ + lua_pushcfunction(L, traceback); /* push traceback function */ + lua_insert(L, base); /* put it under chunk and args */ + status = lua_pcall(L, narg, (clear ? 0 : LUA_MULTRET), base); + lua_remove(L, base); /* remove traceback function */ + /* force a complete garbage collection in case of errors */ + if (status != 0) lua_gc(L, LUA_GCCOLLECT, 0); + return status; + } +
+ static int dostring (lua_State *L, const char *s) { + const char *name = "dostring"; + int status = luaL_loadbuffer(L, s, strlen(s), name) || docall(L, 0, 1); + return report(L, status); + }
+}
+
using namespace std;
int _tmain(int argc, TCHAR* argv[], TCHAR* envp[])
@@ -15,6 +75,23 @@ int _tmain(int argc, TCHAR* argv[], TCHAR* envp[]) lua_State* L = luaWDS_open();
if(L)
{
+ const char* _dostring = "function dumptable(T,t)\n\
+ print '--------------------------'\n\
+ print(T)\n\
+ print '--------------------------'\n\
+ for k,v in pairs(t)do print(k,v) end\n\
+ end\n\
+ \n\
+ dumptable('package', package)\n\
+ dumptable('package.loaded', package.loaded)\n\
+ dumptable('package.loaders', package.loaders)\n\
+ dumptable('package.loaded._G', package.loaded._G)\n\
+ print '--------------------------'\n\
+ print('_G = ', _G)\n\
+ print('package.loaded._G = ', package.loaded._G)\n\
+ ";
+ dostring(L, _dostring);
+ fprintf(stderr, "---------------------------\n");
int ret = luaL_dofile(L, "..\\lua_conf.lua");
if(ret)
{
|