aboutsummaryrefslogtreecommitdiffstats
path: root/util-src/table.c
blob: 634155419fa8c6faad310f550f0cb790cb1bcac9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#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;
}