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

1 files changed, 10 insertions, 1 deletions

diff --git a/lmathlib.c b/lmathlib.c
index 79232e4d..43f10d7e 100644
--- 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},