| 123 | |
| 124 | |
| 125 | static int tremove (lua_State *L) { |
| 126 | int e = aux_getn(L, 1); |
| 127 | int pos = luaL_optint(L, 2, e); |
| 128 | if (!(1 <= pos && pos <= e)) /* position is outside bounds? */ |
| 129 | return 0; /* nothing to remove */ |
| 130 | luaL_setn(L, 1, e - 1); /* t.n = n-1 */ |
| 131 | lua_rawgeti(L, 1, pos); /* result = t[pos] */ |
| 132 | for ( ;pos<e; pos++) { |
| 133 | lua_rawgeti(L, 1, pos+1); |
| 134 | lua_rawseti(L, 1, pos); /* t[pos] = t[pos+1] */ |
| 135 | } |
| 136 | lua_pushnil(L); |
| 137 | lua_rawseti(L, 1, e); /* t[e] = nil */ |
| 138 | return 1; |
| 139 | } |
| 140 | |
| 141 | |
| 142 | static void addfield (lua_State *L, luaL_Buffer *b, int i) { |
nothing calls this directly
no test coverage detected