** next function does not use 'modf', avoiding problems with 'double*' ** (which is not compatible with 'float*') when lua_Number is not ** 'double'. */
| 144 | ** 'double'. |
| 145 | */ |
| 146 | static int math_modf (lua_State *L) { |
| 147 | if (lua_isinteger(L ,1)) { |
| 148 | lua_settop(L, 1); /* number is its own integer part */ |
| 149 | lua_pushnumber(L, 0); /* no fractional part */ |
| 150 | } |
| 151 | else { |
| 152 | lua_Number n = luaL_checknumber(L, 1); |
| 153 | /* integer part (rounds toward zero) */ |
| 154 | lua_Number ip = (n < 0) ? l_mathop(ceil)(n) : l_mathop(floor)(n); |
| 155 | pushnumint(L, ip); |
| 156 | /* fractional part (test needed for inf/-inf) */ |
| 157 | lua_pushnumber(L, (n == ip) ? l_mathop(0.0) : (n - ip)); |
| 158 | } |
| 159 | return 2; |
| 160 | } |
| 161 | |
| 162 | |
| 163 | static int math_sqrt (lua_State *L) { |
nothing calls this directly
no test coverage detected