在堆栈中将数组作为参数传递到C。

2014-9-20 4:55:35
收藏：0
阅读：91
评论：1

我使用Lua来操纵数组；数组是简单的二进制数据：

local ram_ctx = {0,0,0,0,0,0,0,0,0}

我想将它传递给用C编写的GUI。问题是，如果我直接传递它像func(ram_ctx)，Lua函数似乎在调用后停止执行。相应的C函数没有被执行（它可以是空的）。但是如果我在Lua中创建全局数组并使用lua_getglobal来访问它，似乎一切正常。我做错了什么或者根本不可能吗？将数组名称作为参数传递以调用它作为全局数组是不可接受的。

Lua代码：

function device_init()
--set_callback(1000000000000, 0)
local array = {0xFF,0,0,0,0,0,0}
--create_memory_popup("Test")
set_memory_popup(array)
end

这是我尝试使用的C代码：

static int32_t lua_set_popup_memory (lua_State *L)
{
  int32_t argnum = lua_gettop(L);
  if (1 != argnum)
  {
    out_error("Function %s expects 1 argument got %d\n", __PRETTY_FUNCTION__, argnum);
    return 0;
  }
if (0 == lua_istable(L, -1))
{
    out_log("No array found");
    return 0;
}
int32_t a_size = lua_rawlen(L, -1);
uint8_t *buf = calloc(1, a_size);
for (int i=1;;i++)
{
    lua_rawgeti(L,-1, i);
    if (lua_isnil(L,-1))
        break;
    buf[i] = lua_tonumber(L,-1);
    lua_pop(L, 1);
}
set_popup_memory(memory_popup, 0, buf, a_size);
free(buf);
  return 0;
}
点赞
用户3125367
用户3125367

我怀疑如果没有完整的示例，没有人能够实际诊断所讨论的问题，但这里是处理Lua到C调用的惯用方式以及代码本身的一些注释：

static int // not int32_t
lua_set_popup_memory(lua_State *L)
{
    luaL_checktype(L, 1, LUA_TTABLE);
    // let alone excessive arguments (idiomatic), or do:
    lua_settop(L, 1);

    int a_size = lua_rawlen(L, 1); // absolute indexing for arguments
    uint8_t *buf = malloc((size_t)a_size);

    for (int i = 1; i <= a_size; i++) {
        lua_pushinteger(L, i);
        lua_gettable(L, 1); // always give a chance to metamethods
        // OTOH, metamethods are already broken here with lua_rawlen()
        // if you are on 5.2, use lua_len()

        if (lua_isnil(L, -1)) { // relative indexing for "locals"
            a_size = i-1; // fix actual size (e.g. 4th nil means a_size==3)
            break;
        }

        if (!lua_isnumber(L, -1)) // optional check
            return luaL_error(L, "item %d invalid (number required, got %s)",
                              i, luaL_typename(L, -1));

        lua_Integer b = lua_tointeger(L, -1);

        if (b < 0 || b > UINT8_MAX) // optional
            return luaL_error(L, "item %d out of range", i);

        buf[i-1] = b; // Lua is 1-based, C is 0-based
        lua_pop(L, 1);
    }

    set_popup_memory(memory_popup, 0, buf, a_size);
    free(buf);

    return 0;
}

请注意，lua_CFunction的定义为int（*）（lua_State *），因此int32_t的返回类型可能（而且很可能）会在非32位平台上导致问题。此外，原始代码可能会溢出buf [i]，因为C索引从零开始，而不是从1开 始。还有一个更明显的问题：lua_rawlen（）可能会返回大于循环计数的索引（例如，带有nil-holes的数组），从而使不需要的零被传递给set_popup_memory（假设第一个nil方法的优先级高于表长度）。

我不确定out_error，使用Lua错误可能会给出更清晰的诊断，特别是当使用lua_pcall的回溯参数调用入口点时。

此代码段未经过实际测试。

2014-09-22 02:33:31

作者:

用户1619626

用户1619626
推荐文章