Function luaV_lessthan

src/Chain/libraries/glua/lvm.cpp:386–407

** Main operation less than; return 'l < r'. */

** Main operation less than; return 'l < r'.
*/
int luaV_lessthan(lua_State *L, const TValue *l, const TValue *r) {
    int res;
    if (ttisnumber(l) && ttisnumber(r))  /* both operands are numbers? */
        return LTnum(l, r);
    else if (ttisstring(l) && ttisstring(r))  /* both are strings? */
        return l_strcmp(tsvalue(l), tsvalue(r)) < 0;
	else if (ttisstring(l) && ttisnumber(r))
	{
		auto lstr = svalue(l);
		auto rstr = std::to_string(ttisinteger(r) ? ivalue(r) : fltvalue(r));
		return l_c_str_cmp(lstr, rstr.c_str());
	}
	else if(ttisnumber(l) && ttisstring(r))
	{
		auto lstr = std::to_string(ttisinteger(l) ? ivalue(l) : fltvalue(l));
		auto rstr = svalue(r);
		return l_c_str_cmp(lstr.c_str(), rstr);
	}
    else if ((res = luaT_callorderTM(L, l, r, TM_LT)) < 0)  /* no metamethod? */
        luaG_ordererror(L, l, r);  /* error */
    return res;
}


/*