lua

commit 925d1b59f931ad3cf23e67f39f6771b9a9e06f5f
parent 03bbe1baf190ec768690805b967571b78c8dd34b
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Mon, 28 Jul 2014 14:35:22 -0300

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

Diffstat:
M
lmathlib.c
 | 
11
++++++++++-

1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/lmathlib.c b/lmathlib.c
@@ -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
 ** See Copyright Notice in lua.h
 */
@@ -164,6 +164,14 @@ static int math_sqrt (lua_State *L) {
   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) {
   lua_Number x = luaL_checknumber(L, 1);
   lua_Number res;
@@ -343,6 +351,7 @@ static const luaL_Reg mathlib[] = {
   {"tointeger", math_toint},
   {"floor", math_floor},
   {"fmod",   math_fmod},
+  {"ult",   math_ult},
   {"log",   math_log},
   {"max",   math_max},
   {"min",   math_min},