lstack.c

/*
* lstack.h: Lua stack control functions
* This file is a part of lua-nucleo library
* Copyright (c) lua-nucleo authors (see file `COPYRIGHT` for the license)
*/

#include "lua-nucleo/lstack.h"
#include "lua-nucleo/luainternals.h"

int dump_lua_stack(lua_State * L, int base)
{
  int top = lua_gettop(L);

  if (top == 0)
  {
    lua_pushliteral(L, "-- stack is empty --");
  }
  else
  {
    int pos = 0;
    luaL_Buffer b;

    lua_pushcfunction(L, luaB_tostring);

    luaL_buffinit(L, &b);

    for (pos = top; pos > 0; --pos)
    {
      luaL_addstring(&b, (pos != base) ? "[" : "{");
      lua_pushinteger(L, pos);
      luaL_addvalue(&b);
      luaL_addstring(&b, (pos != base) ? "] - " : "} -");
      luaL_addstring(&b, luaL_typename(L, pos));
      luaL_addstring(&b, " - `");

      /* Call luaB_tostring() on value */
      lua_pushvalue(L, top + 1);
      lua_pushvalue(L, pos);
      lua_call(L, 1, 1);

      luaL_addvalue(&b);
      luaL_addstring(&b, "'\n");
    }

    luaL_pushresult(&b);
    lua_remove(L, -2); /* Pop luaB_tostring() */
    if (lua_gettop(L) != top + 1)
    {
      /* Note: Can't use macros here, since macros use this function */
      return luaL_error(L, "dumpstack not balanced (1)");
    }
  }

  if (lua_gettop(L) != top + 1)
  {
    /* Note: Can't use macros here, since macros use this function */
    return luaL_error(L, "dumpstack not balanced (2)");
  }

  return 1;
}