From bd3ffd7282de8236cd4eb2ff2e21bbc10791bfeb Mon Sep 17 00:00:00 2001
From: Benoit Giannangeli <benoit.giannangeli@boursorama.fr>
Date: Fri, 24 Feb 2017 08:13:38 +0100
Subject: table.pack

---
 src/ltablib.js | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'src/ltablib.js')

diff --git a/src/ltablib.js b/src/ltablib.js
index 8e1f758..ec7c578 100644
--- a/src/ltablib.js
+++ b/src/ltablib.js
@@ -80,8 +80,20 @@ const tconcat = function(L) {
     return 1;
 };
 
+const pack = function(L) {
+    let n = lapi.lua_gettop(L);  /* number of elements to pack */
+    lapi.lua_createtable(L, n, 1);  /* create result table */
+    lapi.lua_insert(L, 1);  /* put it at index 1 */
+    for (let i = n; i >= 1; i--)  /* assign elements */
+        lapi.lua_seti(L, 1, i);
+    lapi.lua_pushinteger(L, n);
+    lapi.lua_setfield(L, 1, "n");  /* t.n = number of elements */
+    return 1;  /* return table */
+};
+
 const tab_funcs = {
-    "concat": tconcat
+    "concat": tconcat,
+    "pack":   pack
 };
 
 const luaopen_table = function(L) {
-- 
cgit v1.2.3-54-g00ecf