Question

我正在使用this question的答案将lua的print重定向到字符串流。我的功能代码如下。

我的问题是代码并不总是与lua自己打印的代码相匹配。最值得注意的是，当我尝试打印函数时，我只是获取函数，而不是函数和地址。例如：

> --in lua
> print(os.exit)
function: 0xabcdef01

> --in my interpreter
> print(os.exit)
function

显而易见的解决方案是强制我的自定义打印功能在写入tostring之前调用lua的luaout（就像默认打印一样）。但是，我无法弄清楚如何使这项工作。如果有人能帮助我，我会非常感激。

这是我的自定义打印：

static int l_my_print(lua_State* L) {
    int nargs = lua_gettop(L);

    for (int i=1; i <= nargs; i++) {
        int t = lua_type(L, i);
        switch (t) {
            case LUA_TSTRING: { /* strings */
                luaout << lua_tostring(L, i);
                break;
            }
            case LUA_TBOOLEAN: { /* booleans */
                luaout << (lua_toboolean(L, i) ? "true" : "false");
                break;
            }
            case LUA_TNUMBER: { /* numbers */
                luaout << lua_tonumber(L, i);
                break;
            }
            default: { /* other values */
                luaout << lua_typename(L, t);
                break;
            }
        }
        if (i!=nargs){
            luaout << "\t";
        }
    }
    luaout << endl;

    return 0;
}

Answer 1

您可以尝试默认：

lua_pushfstring(L, "%s: %p", luaL_typename(L, i), lua_topointer(L, i));

或

 luaout << luaL_typename(L, i) << ": " << lua_topointer(L, i);

这将添加函数的名称和指针。

你可以用C ++调用lua函数（不保证工作，因为我没有测试它，但它应该除语法错误外）

lua_getglobal(L, "tostring");
lua_pushvalue (L, i);

if (lua_pcall(L, 1, 1, 0) != 0) {
        printf("error running function `%s': %s\n", "tostring", lua_tostring(L, -1));
        return -1;
}
// get result
char *result = luaL_checkstring (L, -1);

使用默认打印行为在C ++中重新路由Lua打印

1 个答案: