| 190 | */ |
| 191 | |
| 192 | static int tpack (lua_State *L) { |
| 193 | int i; |
| 194 | int n = lua_gettop(L); /* number of elements to pack */ |
| 195 | lua_createtable(L, n, 1); /* create result table */ |
| 196 | lua_insert(L, 1); /* put it at index 1 */ |
| 197 | for (i = n; i >= 1; i--) /* assign elements */ |
| 198 | lua_seti(L, 1, i); |
| 199 | lua_pushinteger(L, n); |
| 200 | lua_setfield(L, 1, "n"); /* t.n = number of elements */ |
| 201 | return 1; /* return table */ |
| 202 | } |
| 203 | |
| 204 | |
| 205 | static int tunpack (lua_State *L) { |
nothing calls this directly
no test coverage detected