diff options
Diffstat (limited to 'src/lua-nng-common.c')
| -rw-r--r-- | src/lua-nng-common.c | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/src/lua-nng-common.c b/src/lua-nng-common.c new file mode 100644 index 0000000..a12ed79 --- /dev/null +++ b/src/lua-nng-common.c @@ -0,0 +1,22 @@ +#include "lua-nng-common.h"
+/*Just copy+paste lua's runtime traceback funtion*/
+int traceback (lua_State *L) {
+ if (!lua_isstring(L, 1)) /* 'message' not a string? */
+ return 1; /* keep it intact */
+ lua_getglobal(L,"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 */
+ printf("%s\n",lua_tostring(L,-1));
+ return 1;
+}
+
|