Char.avt

/*
    Исходный код среды исполнения ПВТ-ОО.

    Этот исходный код является частью проекта ПВТ-ОО.

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

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

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

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

package avt.lang;

public final class Char(Object, Numeric, Comparable, Cloneable)
{
    public static final char MIN_VALUE = '\u0000';
    public static final char MAX_VALUE = '\uffff';
    public static final int MIN_RADIX = 2;
    public static final int MAX_RADIX = 36;

    public static boolean isLowerCase(char character) {
        return character >= 'a' && character <= 'z' || character >= '\u00df' && character <= '\u00f6' || character >= '\u00f8' && character <= '\u00ff' || character >= '\u0430' && character <= '\u045f';
    }

    public static boolean isUpperCase(char character) {
        return character >= 'A' && character <= 'Z' || character >= '\u00c0' && character <= '\u00d6' || character >= '\u00d8' && character <= '\u00de' || character >= '\u0400' && character <= '\u042f';
    }

    public static boolean isDigit(char character) {
        return character >= '0' && character <= '9';
    }

    public static char toLowerCase(char character) {
        return (char) (isUpperCase(character) ? character >= '\u0400' && character <= '\u040f' ? character + 0x0050 : character + 0x0020 : character);
    }

    public static char toUpperCase(char character) {
        return (char) (isLowerCase(character) ? character >= '\u0450' && character <= '\u045f' ? character - 0x0050 : character - 0x0020 : character);
    }

    public static char toChar(int digit) {
        return (char) (digit >= 0 && digit <= 9 ? digit + '0' : digit >= 10 && digit < MAX_RADIX ? digit + ('a' - 0x0a) : '?');
    }

    public static int toDigit(char character, int radix) {
        int result = -1;
        if(radix >= MIN_RADIX && radix <= MAX_RADIX)
        {
            if(character >= '0' && character <= '9')
            {
                result = character - '0';
            }
            else if(character >= 'a' && character <= 'z' || character >= 'A' && character <= 'Z')
            {
                result = (character & 0x1f) + 9;
            }
        }
        return result >= radix ? -1 : result;
    }


    private final char fldValue;

    public (int value) { fldValue = (char) value; }

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

    public long hashCodeAsLong() { return fldValue; }

    public String toString() { return new String(fldValue); }

    public char asChar() { return 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 fldValue; }

    public int2 asInt2() { return fldValue; }

    public int4 asInt4() { return fldValue; }

    public int8 asInt8() { return fldValue; }

    public long asLong() { return fldValue; }

    public long2 asLong2() { return fldValue; }

    public long4 asLong4() { return fldValue; }

    public long8 asLong8() { return fldValue; }

    public float asFloat() { return fldValue; }

    public float2 asFloat2() { return fldValue; }

    public float4 asFloat4() { return fldValue; }

    public float8 asFloat8() { return fldValue; }

    public double asDouble() { return fldValue; }

    public double2 asDouble2() { return fldValue; }

    public double4 asDouble4() { return fldValue; }

    public double8 asDouble8() { return fldValue; }

    public real asReal() { return fldValue; }

    public int compareTo(Comparable anot) { return !(anot instanceof Char) ? INDEFINITE : fldValue - ((Char) anot).fldValue; }

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

    public int kind { read = Class.CHAR }

    public char charValue { read = fldValue }
}