Delphi. Лексический анализатор

[armchair]

Входной язык содержит операторы условия типа if..then..else и if..then, разделённые символом ; (точка с запятой). Операторы условия содержат идентификаторы, знаки сравнения <,>,=, шестнадцатеричные числа, знак присваивания (:=).

Лексический анализатор у меня работает не совсем правильно:

Вот код программного модуля LexType:

unit LexType; {!!! Зависит от входного языка !!!}

interface
{ Модуль, содержащий описание всех типов лексем }

type
{ Возможные типы лексем в программе }
TLexType = (
  LEX_SEMI, LEX_IF, LEX_THEN, LEX_ELSE, LEX_VAR, LEX_CONST,
  LEX_ASSIGN,LEX_GT,LEX_LT, LEX_DO,
  LEX_OPEN, LEX_CLOSE, LEX_START);

{ Функция получения строки наименования типа лексемы }
function LexTypeName(lexT: TLexType): string;
{ Функция получения текстовой информации о типе лексемы }
function LexTypeInfo(lexT: TLexType): string;

implementation

function LexTypeName(lexT: TLexType): string;
{ Функция получения строки наименования типа лексемы }
begin
  case lexT of
    LEX_OPEN:   Result := 'Открывающая скобка';
    LEX_CLOSE:  Result := 'Закрывающая скобка';
    LEX_ASSIGN: Result := 'Знак присвоения';
    LEX_GT:     Result := 'Знак больше';
    LEX_LT:     Result := 'Знак меньше';
    LEX_VAR:    Result := 'Идентификатор';
    LEX_CONST:  Result := 'Константа';
    LEX_SEMI:   Result := 'Разделитель';
      else        Result := 'Ключевое слово';
  end;
end;

function LexTypeInfo(lexT: TLexType): string;
{ Функция получения текстовой информации о типе лексемы }
begin
  case lexT of
    LEX_IF:     Result := 'if';
    LEX_THEN:   Result := 'then';
    LEX_ELSE:   Result := 'else';
    LEX_OPEN:   Result := '(';
    LEX_CLOSE:  Result := ')';
    LEX_ASSIGN: Result := ':=';
    LEX_GT:     Result := '>';
    LEX_LT:     Result := '<';
    LEX_SEMI:   Result := ';';
    LEX_VAR:    Result := 'a';
    LEX_START:  Result := '';
    else        Result := ' ';
  end;
end;

end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор
______________________




Что в этом коде нужно исправить, потому что для
if (i = 0) then c := 10;
else if (i <= 9) then c := 50
у меня неправильный порядок лексем, после i идёт скобка, а мне нужен знак = (указал скрин, как это выглядит в реализации).

Буду очень благодарен за помощь((

[Black Fregat]

А у Вас вообще лексемы 'Знак равенства' нет..
Есть знак больше, знак меньше, а знака равенства нет.

[armchair]

Ой, а как записывается лексема для знака равенства? Не подскажете??

[Alex11223]

А как вы остальные записали?

[Аватар]

Интесно что дальше будет )) Обзови LEX_EQU

[Alex11223]

А U зачем?)

[Аватар]

Не знаю, наверно директива asm-а вспомнилась ))

[armchair]

Сообщение от Alex11223

А как вы остальные записали?

А у меня вообще на выводе знаки сравнения не читает: ни больше, ни меньше, ни равно. На их месте стоят открывающие скобки.

[Alex11223]

Ну видимо анализатор неправильно анализирует.

[armchair]

Сообщение от Alex11223

Ну видимо анализатор неправильно анализирует.

И как это исправить?