mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2025-04-14 00:42:53 +03:00
Code Issues Packages Projects Releases Wiki Activity

new function 'ifloor'

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2013-07-03 14:23:19 -03:00
parent 66d046833d
commit cbe164191c
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lmathlib.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lmathlib.c,v 1.88 2013/06/25 14:02:18 roberto Exp roberto $ ** $Id: lmathlib.c,v 1.89 2013/06/25 19:37:00 roberto Exp roberto $
** Standard mathematical library ** Standard mathematical library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -88,6 +88,18 @@ static int math_floor (lua_State *L) {
return 1; return 1;
} }
static int math_ifloor (lua_State *L) {
int valid;
lua_Integer n = lua_tointegerx(L, 1, &valid);
if (valid)
lua_pushinteger(L, n);
else {
luaL_checktype(L, 1, LUA_TNUMBER); /* error if not a number */
lua_pushnil(L); /* number with invalid integer value */
}
return 1;
}
static int math_fmod (lua_State *L) { static int math_fmod (lua_State *L) {
lua_pushnumber(L, l_mathop(fmod)(luaL_checknumber(L, 1), lua_pushnumber(L, l_mathop(fmod)(luaL_checknumber(L, 1),
luaL_checknumber(L, 2))); luaL_checknumber(L, 2)));
@ -258,6 +270,7 @@ static const luaL_Reg mathlib[] = {
{"deg", math_deg}, {"deg", math_deg},
{"exp", math_exp}, {"exp", math_exp},
{"floor", math_floor}, {"floor", math_floor},
{"ifloor", math_ifloor},
{"fmod", math_fmod}, {"fmod", math_fmod},
{"frexp", math_frexp}, {"frexp", math_frexp},
{"isfloat", math_isfloat}, {"isfloat", math_isfloat},