PenTest/nmap
1
0
Fork 0
mirror of https://github.com/nmap/nmap.git synced 2025-12-06 04:31:29 +00:00
Code Issues Projects Releases Wiki Activity

Removed some old debug code no longer used/needed. Added a new stack dump

Browse Source 
function that provides a clean output of the stack with positive
and negative stack indices.
This commit is contained in:
batrick
2008-11-18 23:24:17 +00:00
parent 20cf487b33
commit 085eecbac7
3 changed files with 33 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files

79
nse_debug.cc
View File

@@ -1,64 +1,35 @@
#include "nse_debug.h"
#include "output.h"
void l_dumpStack(lua_State *L) {
int stack_height = lua_gettop(L);
int i;
log_write(LOG_PLAIN, "-== Stack Dump Begin ==-\n");
for(i = -1; i >= 0 - stack_height; i--) {
log_write(LOG_PLAIN, "%d: ", i);
l_dumpValue(L, i);
}
log_write(LOG_PLAIN, "-== Stack Dump End ==-\n");
}
void l_dumpValue(lua_State *L, int i) {
switch (lua_type(L, i))
void stack_dump (lua_State *L)
{
int i, top = lua_gettop(L);
for (i = 1; i <= top; i++)
{ /* repeat for each level */
int t = lua_type(L, i);
printf("[%d, %d] = ", i, (-top + i - 1));
switch (t)
{
case LUA_TSTRING: /* strings */
printf("'%s'", lua_tostring(L, i));
break;
case LUA_TBOOLEAN: /* booleans */
printf(lua_toboolean(L, i) ? "true" : "false");
break;
case LUA_TNUMBER: /* numbers */
printf("%g", lua_tonumber(L, i));
break;
case LUA_TTABLE:
l_dumpTable(L, i);
break;
case LUA_TTHREAD:
case LUA_TFUNCTION:
l_dumpFunction(L, i);
case LUA_TUSERDATA:
case LUA_TLIGHTUSERDATA:
printf("%s: %p", lua_typename(L, t), lua_topointer(L, i));
break;
case LUA_TSTRING:
log_write(LOG_PLAIN, "string '%s'\n", lua_tostring(L, i));
default: /* other values */
printf("%s", lua_typename(L, t));
break;
case LUA_TBOOLEAN:
log_write(LOG_PLAIN, "boolean: %s\n",
lua_toboolean(L, i) ? "true" : "false");
break;
case LUA_TNUMBER:
log_write(LOG_PLAIN, "number: %g\n", lua_tonumber(L, i));
break;
default:
log_write(LOG_PLAIN, "%s\n", lua_typename(L, lua_type(L, i)));
}
printf("\n");
}
}
void l_dumpTable(lua_State *L, int index) {
log_write(LOG_PLAIN, "table\n");
lua_pushnil(L);
if (index<0) --index;
while(lua_next(L, index) != 0)
{
l_dumpValue(L, -2);
l_dumpValue(L, -1);
lua_pop(L, 1);
}
}
void l_dumpFunction(lua_State *L, int index) {
// lua_Debug ar;
log_write(LOG_PLAIN, "function\n");
// lua_pushvalue(L, index);
// lua_getinfo(L, ">n", &ar);
//
// log_write(LOG_PLAIN, "\tname: %s %s\n", ar.namewhat, ar.name);
fflush(stdout);
}

5
nse_debug.h
View File

@@ -7,10 +7,7 @@ extern "C" {
#include "lauxlib.h"
}
void l_dumpStack(lua_State* l);
void l_dumpValue(lua_State* l, int index);
void l_dumpTable(lua_State *l, int index);
void l_dumpFunction(lua_State* l, int index);
void stack_dump(lua_State *L);
#endif

5
nse_main.cc
View File

@@ -557,9 +557,8 @@ int process_getScriptId(lua_State* L, ScriptResult *sr) {
lua_getfield(L, 1, FILENAME);
filename = lua_tostring(L, -1);
if (filename == NULL) {
error("%s: The script's 'filename' entry was changed to:",
SCRIPT_ENGINE);
l_dumpValue(L, -1);
error("%s: The script's 'filename' entry was changed to: %s",
SCRIPT_ENGINE, luaL_typename(L, -1));
return SCRIPT_ENGINE_ERROR;
}
lua_pop(L, 1);