mirror of
https://github.com/bjc/prosody.git
synced 2025-04-03 21:27:38 +03:00
30 lines
635 B
C
30 lines
635 B
C
#include <lua.h>
|
|
#include <lauxlib.h>
|
|
|
|
static int Lcreate_table(lua_State* L) {
|
|
lua_createtable(L, luaL_checkinteger(L, 1), luaL_checkinteger(L, 2));
|
|
return 1;
|
|
}
|
|
|
|
static int Lpack(lua_State* L) {
|
|
int arg;
|
|
unsigned int n_args = lua_gettop(L);
|
|
lua_createtable(L, n_args, 1);
|
|
lua_insert(L, 1);
|
|
for(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;
|
|
}
|