From 925d1b59f931ad3cf23e67f39f6771b9a9e06f5f Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Mon, 28 Jul 2014 14:35:47 -0300
Subject: new function 'math.ult' (unsigned less than)

---
 lmathlib.c | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'lmathlib.c')

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},
-- 
cgit v1.2.3-55-g6feb