Function l_arithmetic

lua/ltypes.c:1350–1366

}

static int l_arithmetic(Lua lua, operation_t op)
{
    nullchk(lua, 1);
    nullchk(lua, 2);
    rank_t rank1 = getrank(lua, 1);
    rank_t rank2 = getrank(lua, 2);
    rank_t max = rank1 > rank2 ? rank1 : rank2;
    switch (max) {
    case RANK_INT: return l_int_arithmetic(lua, op);
    case RANK_REAL: return l_real_arithmetic(lua, op);
    case RANK_DECIMAL: return l_decimal_arithmetic(lua, op);
    case RANK_INTERVALDS: return l_intervalds_arithmetic(lua, op);
    case RANK_INTERVALYM: return l_intervalym_arithmetic(lua, op);
    case RANK_DATETIME: return l_datetime_arithmetic(lua, op);
    default: return luaL_error(lua, "bad arithmetic operation");
    }
}

static int l_add(Lua lua)
{