Курсовой проект / Cursov / LexType

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

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

type
{ Возможные типы лексем в программе }
TLexType =
(LEX_PROG, LEX_FIN, LEX_SEMI, LEX_IF, LEX_OPEN, LEX_CLOSE,
LEX_ELSE, LEX_BEGIN, LEX_END, LEX_WHILE, LEX_DO, LEX_VAR,
LEX_CONST, LEX_ASSIGN, LEX_OR, LEX_XOR, LEX_AND,
LEX_LT, LEX_GT, LEX_EQ, LEX_NEQ, LEX_NOT,
LEX_SUB, LEX_ADD, LEX_UMIN, 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_VAR: Result := 'Переменная';
LEX_CONST: Result := 'Константа';
LEX_SEMI: Result := 'Разделитель';
LEX_ADD,LEX_SUB,LEX_UMIN,LEX_GT,LEX_LT,LEX_EQ,
LEX_NEQ: Result := 'Знак операции';
else Result := 'Ключевое слово';
end;
end;

function LexTypeInfo(lexT: TLexType): string;
{ Функция получения текстовой информации о типе лексемы }
begin
case lexT of
LEX_PROG: Result := 'prog';
LEX_FIN: Result := 'end.';
LEX_SEMI: Result := ';';
LEX_IF: Result := 'if';
LEX_OPEN: Result := '(';
LEX_CLOSE: Result := ')';
LEX_ELSE: Result := 'else';
LEX_BEGIN: Result := 'begin';
LEX_END: Result := 'end';
LEX_WHILE: Result := 'while';
LEX_DO: Result := 'do';
LEX_VAR: Result := 'a';
LEX_CONST: Result := 'c';
LEX_ASSIGN: Result := ':=';
LEX_OR: Result := 'or';
LEX_XOR: Result := 'xor';
LEX_AND: Result := 'and';
LEX_LT: Result := '<';
LEX_GT: Result := '>';
LEX_EQ: Result := '=';
LEX_NEQ: Result := '<>';
LEX_NOT: Result := 'not';
LEX_ADD: Result := '+';
LEX_SUB,
LEX_UMIN: Result := '-';
else Result := '';
end;
end;

end.