| 179 | */ |
| 180 | |
| 181 | static int tpack (lua_State *L) { |
| 182 | int i; |
| 183 | int n = lua_gettop(L); /* number of elements to pack */ |
| 184 | lua_createtable(L, n, 1); /* create result table */ |
| 185 | lua_insert(L, 1); /* put it at index 1 */ |
| 186 | for (i = n; i >= 1; i--) /* assign elements */ |
| 187 | lua_seti(L, 1, i); |
| 188 | lua_pushinteger(L, n); |
| 189 | lua_setfield(L, 1, "n"); /* t.n = number of elements */ |
| 190 | return 1; /* return table */ |
| 191 | } |
| 192 | |
| 193 | |
| 194 | static int tunpack (lua_State *L) { |
nothing calls this directly
no test coverage detected