talezero/integration
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add tokens to the standard less-than comparison operator

Browse Source
This commit is contained in:
jyelon
2026-02-21 03:16:48 -05:00
parent 98aae29c1c
commit 2170b9fdde
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
luprex/ext/eris-master/src/lvm.c
View File

@@ -228,6 +228,8 @@ int luaV_lessthan (lua_State *L, const TValue *l, const TValue *r) {
return luai_numlt(L, nvalue(l), nvalue(r)); return luai_numlt(L, nvalue(l), nvalue(r));
else if (ttisstring(l) && ttisstring(r)) else if (ttisstring(l) && ttisstring(r))
return l_strcmp(rawtsvalue(l), rawtsvalue(r)) < 0; return l_strcmp(rawtsvalue(l), rawtsvalue(r)) < 0;
else if (ttislightuserdata(l) && ttislightuserdata(r))
return pvalue(l) < pvalue(r);
else if ((res = call_orderTM(L, l, r, TM_LT)) < 0) else if ((res = call_orderTM(L, l, r, TM_LT)) < 0)
luaG_ordererror(L, l, r); luaG_ordererror(L, l, r);
return res; return res;
@@ -240,6 +242,8 @@ int luaV_lessequal (lua_State *L, const TValue *l, const TValue *r) {
return luai_numle(L, nvalue(l), nvalue(r)); return luai_numle(L, nvalue(l), nvalue(r));
else if (ttisstring(l) && ttisstring(r)) else if (ttisstring(l) && ttisstring(r))
return l_strcmp(rawtsvalue(l), rawtsvalue(r)) <= 0; return l_strcmp(rawtsvalue(l), rawtsvalue(r)) <= 0;
else if (ttislightuserdata(l) && ttislightuserdata(r))
return pvalue(l) <= pvalue(r);
else if ((res = call_orderTM(L, l, r, TM_LE)) >= 0) /* first try `le' */ else if ((res = call_orderTM(L, l, r, TM_LE)) >= 0) /* first try `le' */
return res; return res;
else if ((res = call_orderTM(L, r, l, TM_LT)) < 0) /* else try `lt' */ else if ((res = call_orderTM(L, r, l, TM_LT)) < 0) /* else try `lt' */