用Lua注册一个闭包

时间:2014-02-23 16:42:13

标签: c lua

我没有使用lua_CFunction签名来编写从Lua调用的方法,而是想使用我自己的函数签名来简化导出过程。

void foo(call_t *call)
{
    int a;
    char *b;
    char *c;
    table_t *d;

    /* reading arguments */
    a = read_integer(call);
    b = read_string(call);

    /* do something... */

    /* writing arguments */
    write_string(call, c);
    write_table(call, d);
}

/* export to Lua */
export("foo", foo);

到目前为止,我所能想到的只是拥有一个从表中调用包装函数的lua_CFunction。但是,我不知道如何将Lua函数与C函数和表索引相关联,以便有效地使Lua函数成为闭包。像这样:

lua_register_with_data(state, "foo", base_function, FOO_INDEX);

我怎样才能实现这一目标?

1 个答案:

答案 0 :(得分:4)

毕竟我想通了。我想这证明了橡皮鸭的调试是多么有用。

我刚刚将基函数与实际函数索引一起注册为upvalue。

function_t table[FUNCTION_COUNT];

/* lookup function using upvalue */
int base_function(lua_State *state)
{
    int index;
    call_t call;

    call.state = state;
    call.argument_index = 1;
    call.return_count = 0;

    index = lua_tointeger(state, lua_upvalueindex(1));
    table[index](&call);

    /* return_count is incremented by write_* functions */
    return(call.return_count);

}

/* register function as closure */
table[FOO_INDEX] = foo;
lua_pushinteger(state, FOO_INDEX);
lua_pushcclosure(state, base_function, 1);
lua_setglobal(state, "foo");