Function l_cmp

lua/ltypes.c:1000–1033

}

static int l_cmp(Lua lua, int op)
{
    nullchk(lua, 1);
    nullchk(lua, 2);

    rank_t rank1 = getrank(lua, 1);
    rank_t rank2 = getrank(lua, 2);

    rank_t min = rank1 < rank2 ? rank1 : rank2;
    rank_t max = rank1 > rank2 ? rank1 : rank2;

    if (min == 0) { // got one nil
        if (op == LUA_OP_EQ)
            lua_pushboolean(lua, 0); // nil compares false in equality
        else
            typecmperr(lua, 1, 2);
        return 0;
    }

    switch (max) {
    case RANK_INT: l_int_cmp(lua, op); break;
    case RANK_REAL: l_real_cmp(lua, op); break;
    case RANK_DECIMAL: l_decimal_cmp(lua, op); break;
    case RANK_INTERVALDS: l_intervalds_cmp(lua, op); break;
    case RANK_INTERVALYM: l_intervalym_cmp(lua, op); break;
    case RANK_DATETIME: l_datetime_cmp(lua, op); break;
    default:
        if (op == LUA_OP_EQ)
            lua_pushboolean(lua, 0);
        else
            typecmperr(lua, 1, 2);
    }
    return 0;
}

static int l_eq(Lua lua)
{