Forum.iFiction.Ru

        // Распознавание десятичного числа
        private bool isNumber()
        {
            bool btochka = false, bdigit = false;
            Set_StartPosLexem();
            tochka://проверка на точку
            if (this.symbol == '.')
            {
                //если первым символом попалась точка, то записываем истина
                btochka = true;
                //запись символа в значение лексемы
                this.lexvalue.Append(this.symbol);
                // чтение следующего символа
                this.NetxtSymbol();
                //после точки всегда должна идти цифра
                if (this.isDigit(this.symbol))
                {
                    //запись символа в значение лексемы
                    this.lexvalue.Append(this.symbol);
                    // чтение следующего символа
                    this.NetxtSymbol();
                }
                else //в случае не пренадлежности к классу чисел символа после, выдать ошибку
                {
                    this.lx = lexType.lexError;
                    this.er = ErrorCode.lexNumber;
                    Set_StartPosLexem();
                    this.lexvalue.Length = 0;
                    return true;
                }
                //случае истинности первого условия, записывать каждый следующий символ в значение лексемы, если он принадлежит к классу чисел
                while (isDigit(this.symbol))
                {
                    this.lexvalue.Append(this.symbol);
                    this.NetxtSymbol();
                }
            }
        porjadok://проверка на порядок
            //после числа может стоять только порядок или ничего
            if ((this.symbol == 'E' || this.symbol == 'Е' || this.symbol == 'e' || this.symbol == 'е') && (btochka || bdigit))
            {
                this.lexvalue.Append('E');
                this.NetxtSymbol();
                //Дальше должен стоять только + или минус
                if (this.symbol == '+' || this.symbol == '-')
                {
                    this.lexvalue.Append(this.symbol);
                    this.NetxtSymbol();
                }
                else//в противном случае ошибка
                {
                    this.lx = lexType.lexError;
                    this.er = ErrorCode.lexNumber;
                    Set_StartPosLexem();
                    this.lexvalue.Length = 0;
                    return true;
                }
                //последним должна стоять цифра, обзначающая показатель степени
                if (this.isDigit(this.symbol))
                {
                    //запись символа в значение лексемы
                    this.lexvalue.Append(this.symbol);
                    // чтение следующего символа
                    this.NetxtSymbol();
                }
                else //в случае не пренадлежности к классу чисел символа после, выдать ошибку
                {
                    this.lx = lexType.lexError;
                    this.er = ErrorCode.lexNumber;
                    Set_StartPosLexem();
                    this.lexvalue.Length = 0;
                    return true;
                }
                //случае истинности первого условия, записывать каждый следующий символ в значение лексемы, если он принадлежит к классу чисел
                while (isDigit(this.symbol))
                {
                    this.lexvalue.Append(this.symbol);
                    this.NetxtSymbol();
                }
                goto konec;
            }
            else//условие гарантирующие переход на konec, в случае определения точки или числа, после проверки порядка
                if (btochka || bdigit) goto konec;
            
            //----------------------------------------------------------------------------------
            //если, условие оба условия выше не выполнены (смотри условие с точкой) и порядком, то проверяем на принадлежность к классу чисел
            if (this.isDigit(this.symbol)) 
            {
                //если первым символом попалось число, то записываем истина
                bdigit = true;
                //запись символа в значение лексемы
                this.lexvalue.Append(this.symbol);
                // чтение следующего символа
                this.NetxtSymbol();
            } else //в случае не пренадлежности к десятичному числу отклонить истинность возвращаемого значения
                return false;//здесь откат не нужен (всего один смивол, проверен)
            //случае истинности первого условия, записывать каждый следующий символ в значение лексемы, если он принадлежит к классу чисел
            while (isDigit(this.symbol))
            {
                this.lexvalue.Append(this.symbol);
                this.NetxtSymbol();
            }
            //если первая строка закочилась, то определить три случая:
            //1) символ является точкой, тогда переход на tochka
            //2) символ является Е или е(русская или английская), тогда переход на porjadok
            //3) если оба условия отвергнуты и там не стоит буква, тогда выдать тип лексемы, в противном случае ошибка
            if (this.symbol == '.') goto tochka;
            if (this.symbol == 'E' || this.symbol == 'Е' || this.symbol == 'e' || this.symbol == 'е') goto porjadok;
            if (isLetter(this.symbol))
            {//если  следом после последней цифры в числе стоит буква значит ошибка
                this.lx = lexType.lexError;
                this.er = ErrorCode.lexNumber;
                Set_StartPosLexem();
                this.lexvalue.Length = 0;
                return true;
            }
            konec:
            //перед выдачей лексемы проерить, что за число (слитно с ним) не стоит буква или еще одна точка
            //Проверка осущевствляется во всех 6 вариантах десятичного числа (три из них с показателем степени)
            if (this.isLetter(this.symbol) || (btochka && this.symbol == '.'))
            {
                this.lx = lexType.lexError;
                this.er = ErrorCode.lexNumber;
                Set_StartPosLexem();
                this.lexvalue.Length = 0;
                return true;
            }
            this.Unset_Odin();
            //определяем тип лексемы и возвращаем истиность о пренадлежности к десятичному числу.            
            this.lx = lexType.lexInt; return true;
        }

        /// <summary>
        /// Тип ошибки
        /// </summary>
        protected ErrorCode er;
        /// <summary>
        /// Текущий читаемый символ.
        /// </summary>
        protected char symbol;

    /// <summary>
    /// Типы данных в СТК.
    /// </summary>
    public enum TypeVariable : int
    {
        /// <summary>
        /// Пустой, не заданный тип данных
        /// </summary>
        tvNone = 0,
        /// <summary>
        /// Строка
        /// </summary>
        tvString = 1,
        /// <summary>
        /// Число
        /// </summary>
        tvNumber = 2,
        /// <summary>
        /// Булев
        /// </summary>
        tvBoolean = 3,
        /// <summary>
        /// Массив
        /// </summary>
        tvArray = 4
    }

        /// <summary>
        /// Считывает следующий символ во входном коде.
        /// </summary>
        protected void NetxtSymbol()
        {
            //проверка на конец входного кода
            if (this.current_pos.Line >= this.ec.Length)
            {
                this.Eof = true;
                this.symbol = ' ';
                return;
            }
            // Считывает символ в указанной позиции
            this.symbol = this.ec[this.current_pos.Line][++this.current_pos.Column];
            //кол-во считанных столбцов
            this.unset_pos.Column++;
            //если позиция столбца достигла конца строки, то переходим на следующую строку
            //и устанавливаем перо столбца на ноль
            if (this.current_pos.Column >= this.ec[this.current_pos.Line].Length - 1)
            {
                this.current_pos.Line++;
                this.unset_pos.Line++;
                this.current_pos.Column = -1;
            }
        }