utils-lua.c

#include <aura/aura.h>
#include <lua.h>
#include <lauxlib.h>
#include <lualib.h>

void lua_stackdump (lua_State *L) {
        int i=lua_gettop(L);
        printf(" ----------------  Stack Dump ----------------\n" );
        while(  i   ) {
                int t = lua_type(L, i);
                switch (t) {
                case LUA_TSTRING:
                        printf("%d:`%s'\n", i, lua_tostring(L, i));
                        break;
                case LUA_TBOOLEAN:
                        printf("%d: %s\n",i,lua_toboolean(L, i) ? 
                        "true" : "false");
                        break;
                case LUA_TNUMBER:
                        printf("%d: %g\n",  i, lua_tonumber(L, i));
                        break;
                default: printf("%d: %s\n", i, lua_typename(L, t)); break;
                }
                i--;
        }
        printf("--------------- Stack Dump Finished ---------------\n" );
}