| 483 | |
| 484 | |
| 485 | static int luaB_assert(lua_State *L) { |
| 486 | if (lua_toboolean(L, 1)) /* condition is true? */ |
| 487 | return lua_gettop(L); /* return all arguments */ |
| 488 | else { /* error */ |
| 489 | luaL_checkany(L, 1); /* there must be a condition */ |
| 490 | lua_remove(L, 1); /* remove it */ |
| 491 | lua_pushliteral(L, "assertion failed!"); /* default message */ |
| 492 | lua_settop(L, 1); /* leave only message (default if no other one) */ |
| 493 | return luaB_error(L); /* call 'error' */ |
| 494 | } |
| 495 | } |
| 496 | |
| 497 | |
| 498 | static int luaB_select(lua_State *L) { |
nothing calls this directly
no test coverage detected