Skip to content

Commit

Permalink
Replace the mix of spaces and tabs in the main NSE files with uniform…
Browse files Browse the repository at this point in the history
… two-space

indents, which seems to be the dominant style.
  • Loading branch information
david committed Nov 18, 2008
1 parent 85deff9 commit 20cf487
Show file tree
Hide file tree
Showing 7 changed files with 1,038 additions and 1,051 deletions.
92 changes: 46 additions & 46 deletions nse_debug.cc
Original file line number Diff line number Diff line change
Expand Up @@ -2,63 +2,63 @@
#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);
}
int stack_height = lua_gettop(L);
int i;

log_write(LOG_PLAIN, "-== Stack Dump End ==-\n");
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))
{
case LUA_TTABLE:
l_dumpTable(L, i);
break;
case LUA_TFUNCTION:
l_dumpFunction(L, i);
break;
case LUA_TSTRING:
log_write(LOG_PLAIN, "string '%s'\n", lua_tostring(L, i));
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)));
}
switch (lua_type(L, i))
{
case LUA_TTABLE:
l_dumpTable(L, i);
break;
case LUA_TFUNCTION:
l_dumpFunction(L, i);
break;
case LUA_TSTRING:
log_write(LOG_PLAIN, "string '%s'\n", lua_tostring(L, i));
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)));
}
}

void l_dumpTable(lua_State *L, int index) {
log_write(LOG_PLAIN, "table\n");
lua_pushnil(L);
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);
}
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;
// lua_Debug ar;

log_write(LOG_PLAIN, "function\n");
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);
// lua_pushvalue(L, index);
// lua_getinfo(L, ">n", &ar);
//
// log_write(LOG_PLAIN, "\tname: %s %s\n", ar.namewhat, ar.name);
fflush(stdout);
}
Loading

0 comments on commit 20cf487

Please sign in to comment.