Курсовые проекты / Soft / Cursov / TrdType

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

interface
{ Модуль для описания допустимых типов триад }

const
NAME_PROG = 'MyCurs';
NAME_INPVAR = 'InpVar';
NAME_RESULT = 'Result';
NAME_FUNCT = 'CompileTest';
NAME_TYPE = 'integer';

type
{ Типы триад, соответствующие типам допустимых операций,
а также три дополнительные типа триад:
- CONST - для алгоритма свёртки объектного кода;
- SAME - для алгоритма исключения лишних операций;
- NOP (No OPerations) - для ссылок на конец списка триад.
}
TTriadType = (TRD_IF, TRD_OR, TRD_XOR, TRD_AND, TRD_NOT,
TRD_LT, TRD_GT, TRD_EQ, TRD_NEQ,
TRD_ADD, TRD_SUB, TRD_UMIN, TRD_ASSIGN,
TRD_JMP, TRD_CONST, TRD_SAME, TRD_NOP);

{ Массив строковых обозначений триад
для вывода их списка на экран }
TTriadStr = array[TTriadType] of string;
const
TriadStr: TTriadStr =
('if','or','xor','and','not',
'<','>','=','<>','+','-','-',':=',
'jmp','C','same','nop');
{ Множество триад, которые являются линейными операциями }
TriadLineSet : set of TTriadType =
[TRD_OR, TRD_XOR, TRD_AND, TRD_NOT, TRD_ADD, TRD_SUB,
TRD_LT, TRD_GT, TRD_EQ, TRD_NEQ, TRD_UMIN];

implementation

end.