将数组传递给C作为堆栈中的参数

时间:2014-09-19 18:36:34

标签: c lua luac

我使用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;  
}

1 个答案:

答案 0 :(得分:1)

我怀疑有人可以在没有完整示例的情况下实际诊断问题,但这是处理Lua-to-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(假设first-nil方法优先于表长度)。

不确定out_error,使用Lua错误可能会提供更清晰的诊断,尤其是在使用lua_pcall的traceback参数调用入口点时。

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