2

我正在使用这个问题的答案将 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;
}
4

1 回答 1

4

你可以试试默认这个：

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);
于 2012-10-08T13:26:00.330 回答