# HG changeset patch
# User Matthew Wild <mwild1@gmail.com>
# Date 1469623159 -3600
# Node ID d278a770eddc9678177a26bd8f944a0857aca712
# Parent  9e48299799d837474dcdb4e8b095b5125902ed81
util.table: Add pack() function (this is already available in Lua 5.2+)

diff -r 9e48299799d8 -r d278a770eddc util-src/table.c
--- 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;
 }