nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

new function 'math.ult' (unsigned less than)

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2014-07-28 14:35:47 -03:00
parent 03bbe1baf1
commit 925d1b59f9
1 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lmathlib.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lmathlib.c,v 1.106 2014/07/16 13:47:13 roberto Exp roberto $ ** $Id: lmathlib.c,v 1.107 2014/07/17 12:30:53 roberto Exp roberto $
** Standard mathematical library ** Standard mathematical library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -164,6 +164,14 @@ static int math_sqrt (lua_State *L) {
return 1; return 1;
} }
static int math_ult (lua_State *L) {
lua_Integer a = luaL_checkinteger(L, 1);
lua_Integer b = luaL_checkinteger(L, 2);
lua_pushboolean(L, (lua_Unsigned)a < (lua_Unsigned)b);
return 1;
}
static int math_log (lua_State *L) { static int math_log (lua_State *L) {
lua_Number x = luaL_checknumber(L, 1); lua_Number x = luaL_checknumber(L, 1);
lua_Number res; lua_Number res;
@@ -343,6 +351,7 @@ static const luaL_Reg mathlib[] = {
{"tointeger", math_toint}, {"tointeger", math_toint},
{"floor", math_floor}, {"floor", math_floor},
{"fmod", math_fmod}, {"fmod", math_fmod},
{"ult", math_ult},
{"log", math_log}, {"log", math_log},
{"max", math_max}, {"max", math_max},
{"min", math_min}, {"min", math_min},