从 C 中，我如何打印 Lua 堆栈的内容？

Question

我的 C 程序可能有一个愚蠢的错误。 Lua 堆栈在某些情况下不包含我认为它应该包含的值。

为了调试它，我想在程序的某个点打印 Lua 堆栈的内容。我怎样才能做到这一点而不会弄乱过程中的堆栈？

Answer 1

此答案是@lhf 在 cmets 中提供的答案的略微编辑版本。

它的优点是不修改堆栈中的任何值，并且不需要任何额外的空间。

static void dumpstack (lua_State *L) {
  int top=lua_gettop(L);
  for (int i=1; i <= top; i++) {
    printf("%d\t%s\t", i, luaL_typename(L,i));
    switch (lua_type(L, i)) {
      case LUA_TNUMBER:
        printf("%g\n",lua_tonumber(L,i));
        break;
      case LUA_TSTRING:
        printf("%s\n",lua_tostring(L,i));
        break;
      case LUA_TBOOLEAN:
        printf("%s\n", (lua_toboolean(L, i) ? "true" : "false"));
        break;
      case LUA_TNIL:
        printf("%s\n", "nil");
        break;
      default:
        printf("%p\n",lua_topointer(L,i));
        break;
    }
  }
}

如果需要，您还可以在 LUA_TNUMBER 情况下使用 lua_isinteger(L, i) 以区分整数和浮点数。

Answer 2

这段代码从上到下遍历栈，对每个值调用tostring，打印结果（如果没有得到结果，打印类型名）。

assert(lua_checkstack(L, 3));
int top = lua_gettop(L);
int bottom = 1;
lua_getglobal(L, "tostring");
for(int i = top; i >= bottom; i--)
{
    lua_pushvalue(L, -1);
    lua_pushvalue(L, i);
    lua_pcall(L, 1, 1, 0);
    const char *str = lua_tostring(L, -1);
    if (str) {
        printf("%s\n", str);
    }else{
        printf("%s\n", luaL_typename(L, i));
    }
    lua_pop(L, 1);
}
lua_pop(L, 1);