Software / code / prosody
Changeset
7519:d278a770eddc
util.table: Add pack() function (this is already available in Lua 5.2+)
| author | Matthew Wild <mwild1@gmail.com> |
|---|---|
| date | Wed, 27 Jul 2016 13:39:19 +0100 |
| parents | 7515:9e48299799d8 |
| children | 7520:fc6c24cb3599 |
| files | util-src/table.c |
| diffstat | 1 files changed, 15 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/util-src/table.c Sat Jul 23 20:24:14 2016 +0800 +++ b/util-src/table.c Wed Jul 27 13:39:19 2016 +0100 @@ -6,9 +6,24 @@ 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; }
