rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

`traceback' returns only the traceback

This commit is contained in:
Roberto Ierusalimschy 2002-06-18 12:17:58 -03:00
parent d8678edddc
commit 8f080fd683
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ldblib.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: ldblib.c,v 1.56 2002/06/06 12:40:36 roberto Exp roberto $ ** $Id: ldblib.c,v 1.57 2002/06/13 13:44:50 roberto Exp roberto $
** Interface from Lua to its debug API ** Interface from Lua to its debug API
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -185,10 +185,7 @@ static int errorfb (lua_State *L) {
int level = 1; /* skip level 0 (it's this function) */ int level = 1; /* skip level 0 (it's this function) */
int firstpart = 1; /* still before eventual `...' */ int firstpart = 1; /* still before eventual `...' */
lua_Debug ar; lua_Debug ar;
if (!lua_isstring(L, 1)) lua_settop(L, 0);
return lua_gettop(L);
lua_settop(L, 1);
lua_pushliteral(L, "\n");
lua_pushliteral(L, "stack traceback:\n"); lua_pushliteral(L, "stack traceback:\n");
while (lua_getstack(L, level++, &ar)) { while (lua_getstack(L, level++, &ar)) {
char buff[10]; char buff[10];
@ -242,13 +239,16 @@ static const luaL_reg dblib[] = {
{"setlinehook", setlinehook}, {"setlinehook", setlinehook},
{"setlocal", setlocal}, {"setlocal", setlocal},
{"debug", debug}, {"debug", debug},
{"traceback", errorfb},
{NULL, NULL} {NULL, NULL}
}; };
LUALIB_API int lua_dblibopen (lua_State *L) { LUALIB_API int lua_dblibopen (lua_State *L) {
luaL_opennamedlib(L, LUA_DBLIBNAME, dblib, 0); luaL_opennamedlib(L, LUA_DBLIBNAME, dblib, 0);
lua_register(L, "_ERRORMESSAGE", errorfb); lua_pushliteral(L, LUA_TRACEBACK);
lua_pushcfunction(L, errorfb);
lua_settable(L, LUA_REGISTRYINDEX);
return 0; return 0;
} }