diff options
| -rw-r--r-- | util-src/table.c | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/util-src/table.c b/util-src/table.c index 6ad45dce..423f8f29 100644 --- a/util-src/table.c +++ b/util-src/table.c @@ -6,9 +6,24 @@ static int Lcreate_table(lua_State* L) { return 1; } +static int Lpack(lua_State* L) { + unsigned int n_args = lua_gettop(L); + lua_createtable(L, n_args, 1); + lua_insert(L, 1); + for(int arg = n_args; arg >= 1; arg--) { + lua_rawseti(L, 1, arg); + } + lua_pushinteger(L, n_args); + lua_setfield(L, -2, "n"); + return 1; +} + + int luaopen_util_table(lua_State* L) { lua_newtable(L); lua_pushcfunction(L, Lcreate_table); lua_setfield(L, -2, "create"); + lua_pushcfunction(L, Lpack); + lua_setfield(L, -2, "pack"); return 1; } |