| 245 | } |
| 246 | |
| 247 | static int tsort (lua_State *L) { |
| 248 | int n = aux_getn(L, 1); |
| 249 | luaL_checkstack(L, 40, ""); /* assume array is smaller than 2^40 */ |
| 250 | if (!lua_isnoneornil(L, 2)) /* is there a 2nd argument? */ |
| 251 | luaL_checktype(L, 2, LUA_TFUNCTION); |
| 252 | lua_settop(L, 2); /* make sure there is two arguments */ |
| 253 | auxsort(L, 1, n); |
| 254 | return 0; |
| 255 | } |
| 256 | |
| 257 | /* }====================================================== */ |
| 258 |
nothing calls this directly
no test coverage detected