File

+
−#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) {
+
−	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) {
+
−#if (LUA_VERSION_NUM > 501)
+
−	luaL_checkversion(L);
+
−#endif
+
−	lua_createtable(L, 0, 2);
+
−	lua_pushcfunction(L, Lcreate_table);
+
−	lua_setfield(L, -2, "create");
+
−	lua_pushcfunction(L, Lpack);
+
−	lua_setfield(L, -2, "pack");
+
−	return 1;
+
−}