Real.avt

Переключить прокрутку окна
Загрузить этот исходный код

/*
    Реализация среды исполнения языка программирования
    Объектно-ориентированный продвинутый векторный транслятор

    Copyright © 2021, 2024 Малик Разработчик

    Это свободная программа: вы можете перераспространять ее и/или изменять
    ее на условиях Меньшей Стандартной общественной лицензии GNU в том виде,
    в каком она была опубликована Фондом свободного программного обеспечения;
    либо версии 3 лицензии, либо (по вашему выбору) любой более поздней версии.

    Эта программа распространяется в надежде, что она будет полезной,
    но БЕЗО ВСЯКИХ ГАРАНТИЙ; даже без неявной гарантии ТОВАРНОГО ВИДА
    или ПРИГОДНОСТИ ДЛЯ ОПРЕДЕЛЕННЫХ ЦЕЛЕЙ. Подробнее см. в Меньшей Стандартной
    общественной лицензии GNU.

    Вы должны были получить копию Меньшей Стандартной общественной лицензии GNU
    вместе с этой программой. Если это не так, см.
    <https://www.gnu.org/licenses/>.
*/

package avt.lang;

import avt.lang.array.*;
import avt.lang.math.*;

public final class Real(Object, Numeric, Comparable, Cloneable)
{
    public static final real NAN               =                +0.0r / +0.0r;
    public static final real NEGATIVE_ZERO     =                +0.0r / -1.0r;
    public static final real NEGATIVE_INFINITY =                -1.0r / +0.0r;
    public static final real POSITIVE_INFINITY =                +1.0r / +0.0r;
    public static final real MAX_VALUE         = 0x1.fffffffffffffffep+16383r;
    public static final real MIN_VALUE         = 0x1.0000000000000000p-16445r;
    public static final real MIN_NORMAL        = 0x1.0000000000000000p-16382r;

    private static final long SIGNIFICAND_MASK  = 0x7fffffffffffffffL;
    private static final long EMPTY_SIGNIFICAND = 0x8000000000000000L;

    private static final long2 NEGATIVE_ZERO_BITS = new long2 { 0L, -0x8000L };

    private static final real HALF               =       0.5r;
    private static final real NEGATIVE_MAX_VALUE = -MAX_VALUE;
    private static final real NEGATIVE_MIN_VALUE = -MIN_VALUE;

    private static final RealRepresenter realRepresenter = new RealRepresenter(RealRepresenter.REAL_SIGNIFICAND_DIGITS - 1, RealRepresenter.REAL_ORDER_DIGITS);

    public static boolean isNaN(real value) { return value != value; }

    public static boolean isInfinite(real value) { return value == POSITIVE_INFINITY || value == NEGATIVE_INFINITY; }

    public static int signum(real value) { return value != value || value == 0.0r ? 0 : value < 0.0r ? -1 : 1; }

    public static int compare(real value0, real value1) { return value0 != value0 || value1 != value1 ? INDEFINITE : value0 > value1 ? 1 : value0 < value1 ? -1 : 0; }

    public static native long2 toLong2Bits(real value);

    public static native real nextAfter(real value);

    public static native real nextBefore(real value);

    public static real max(real value0, real value1) {
        return value0 != value0 ? value0 : value1 != value1 ? value1 : value0 == 0.0r && value1 == 0.0r && toLong2Bits(value0) == NEGATIVE_ZERO_BITS || value0 < value1 ? value1 : value0;
    }

    public static real min(real value0, real value1) {
        return value0 != value0 ? value0 : value1 != value1 ? value1 : value0 == 0.0r && value1 == 0.0r && toLong2Bits(value1) == NEGATIVE_ZERO_BITS || value0 > value1 ? value1 : value0;
    }

    public static real parse(CharArray string) { return realRepresenter.parseReal(string); }

    public static String toString(real value) { return realRepresenter.toString(value); }

    public static String toString(real value, int sigDigits, int ordDigits) {
        return (new RealRepresenter(sigDigits, ordDigits)).toString(value);
    }

    public static String toString(real value, int sigDigits, int ordDigits, boolean sigAll, boolean ordAll) {
        return (new RealRepresenter(sigDigits, ordDigits, sigAll, ordAll)).toString(value);
    }

    public static String toString(real value, int sigDigits, int ordDigits, boolean sigAll, boolean ordAll, boolean expForm) {
        return (new RealRepresenter(sigDigits, ordDigits, sigAll, ordAll, expForm)).toString(value);
    }

    public static String toString(real value, int sigDigits, int ordDigits, boolean sigAll, boolean ordAll, boolean expForm, boolean sigSign, boolean ordSign) {
        return (new RealRepresenter(sigDigits, ordDigits, sigAll, ordAll, expForm, sigSign, ordSign)).toString(value);
    }

    public static Real valueOf(byte value) { return new Real(value); }

    public static Real valueOf(short value) { return new Real(value); }

    public static Real valueOf(int value) { return new Real(value); }

    public static Real valueOf(long value) { return new Real(value); }

    public static Real valueOf(float value) { return new Real(value); }

    public static Real valueOf(double value) { return new Real(value); }

    public static Real valueOf(real value) { return new Real(value); }

    public static Real valueOf(CharArray string) {
        real value = realRepresenter.parseReal(string);
        return new Real(value);
    }

    private final real fldValue;

    public (byte value) { fldValue = value; }

    public (short value) { fldValue = value; }

    public (int value) { fldValue = value; }

    public (long value) { fldValue = value; }

    public (float value) { fldValue = value; }

    public (double value) { fldValue = value; }

    public (real value) { fldValue = value; }

    public boolean equals(Object anot) { return anot == this || anot instanceof Real && toLong2Bits(((Real) anot).fldValue) == toLong2Bits(fldValue); }

    public int hashCode() {
        long2 hash0 = toLong2Bits(fldValue) & new long2 { 0xffffffffffffffffL, 0x000000000000ffffL };
        long hash1 = hash0[0] ^ hash0[1];
        return (int) (hash1 ^ (hash1 >> 32));
    }

    public long hashCodeAsLong() {
        long2 hash = toLong2Bits(fldValue) & new long2 { 0xffffffffffffffffL, 0x000000000000ffffL };
        return hash[0] ^ hash[1];
    }

    public long2 hashCodeAsLong2() { return toLong2Bits(fldValue); }

    public String toString() { return realRepresenter.toString(fldValue); }

    public boolean isNaN() { return isNaN(fldValue); }

    public boolean isInfinite() { return isInfinite(fldValue); }

    public byte asByte() { return (byte) fldValue; }

    public byte2 asByte2() { return (byte) fldValue; }

    public byte4 asByte4() { return (byte) fldValue; }

    public byte8 asByte8() { return (byte) fldValue; }

    public short asShort() { return (short) fldValue; }

    public short2 asShort2() { return (short) fldValue; }

    public short4 asShort4() { return (short) fldValue; }

    public short8 asShort8() { return (short) fldValue; }

    public int asInt() { return (int) fldValue; }

    public int2 asInt2() { return (int) fldValue; }

    public int4 asInt4() { return (int) fldValue; }

    public int8 asInt8() { return (int) fldValue; }

    public long asLong() { return (long) fldValue; }

    public long2 asLong2() { return (long) fldValue; }

    public long4 asLong4() { return (long) fldValue; }

    public long8 asLong8() { return (long) fldValue; }

    public float asFloat() { return (float) fldValue; }

    public float2 asFloat2() { return (float) fldValue; }

    public float4 asFloat4() { return (float) fldValue; }

    public float8 asFloat8() { return (float) fldValue; }

    public double asDouble() { return (double) fldValue; }

    public double2 asDouble2() { return (double) fldValue; }

    public double4 asDouble4() { return (double) fldValue; }

    public double8 asDouble8() { return (double) fldValue; }

    public real asReal() { return fldValue; }

    public int compareTo(Comparable anot) { return anot == this ? EQUALS : !(anot instanceof Real) ? INDEFINITE : compare(fldValue, ((Real) anot).fldValue); }

    public Real clone() { return new Real(fldValue); }

    public int kind { read = Class.REAL }

    public real realValue { read = fldValue }
}