| 396 | |
| 397 | |
| 398 | static int sort (lua_State *L) { |
| 399 | lua_Integer n = aux_getn(L, 1, TAB_RW); |
| 400 | if (n > 1) { /* non-trivial interval? */ |
| 401 | luaL_argcheck(L, n < INT_MAX, 1, "array too big"); |
| 402 | if (!lua_isnoneornil(L, 2)) /* is there a 2nd argument? */ |
| 403 | luaL_checktype(L, 2, LUA_TFUNCTION); /* must be a function */ |
| 404 | lua_settop(L, 2); /* make sure there are two arguments */ |
| 405 | auxsort(L, 1, (IdxT)n, 0); |
| 406 | } |
| 407 | return 0; |
| 408 | } |
| 409 | |
| 410 | /* }====================================================== */ |
| 411 |