Курсовой проект / Labs / SyntRule

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

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

uses LexType, Classes;

const
RULE_LENGTH = 7; { максимальная длина правила
(в расчете на символы грамматики) }
RULE_NUM = 13; { общее количество правил грамматики }

var
GramMatrix: array[TLexType,TLexType] of char =
( {; if then else a a := or xor and ( ) ! }
{;} (' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', ' ', '>'),
{if} (' ', ' ', '=', ' ', '<', '<', ' ', '<', '<', '<', '<', ' ', ' '),
{then}('>', '<', ' ', '=', '<', '<', ' ', ' ', ' ', ' ', ' ', ' ', ' '),
{else}('>', '<', ' ', '>', '<', '<', ' ', ' ', ' ', ' ', ' ', ' ', ' '),
{a} ('>', ' ', '>', '>', ' ', ' ', '=', '>', '>', '>', ' ', '>', ' '),
{a} ('>', ' ', '>', '>', ' ', ' ', '=', '>', '>', '>', ' ', '>', ' '),
{:=} ('>', ' ', ' ', '>', '<', '<', ' ', '<', '<', '<', '<', ' ', ' '),
{or} ('>', ' ', '>', '>', '<', '<', ' ', '>', '>', '<', '<', '>', ' '),
{xor} ('>', ' ', '>', '>', '<', '<', ' ', '>', '>', '<', '<', '>', ' '),
{and} ('>', ' ', '>', '>', '<', '<', ' ', '>', '>', '>', '<', '>', ' '),
{(} (' ', ' ', ' ', ' ', '<', '<', ' ', '<', '<', '<', '<', '=', ' '),
{)} ('>', ' ', '>', '>', ' ', ' ', ' ', '>', '>', '>', ' ', '>', ' '),
{!} ('<', '<', ' ', ' ', '<', '<', ' ', ' ', ' ', ' ', ' ', ' ', ' '));

GramRules: array[1..RULE_NUM] of string =
('E;','ifEthenEelseE','ifEthenE','a:=E','ifEthenEelseE',
'a:=E','EorE','ExorE','E','EandE','E','a','(E)');

function MakeSymbolStr(iRuleNum: integer): string;

{ Функция корректировки отношений предшествования
для расширения матрицы предшествования }
function CorrectRule(cRule: char; lexTop,lexCur: TLexType;
symbStack: TList): char;

implementation

function MakeSymbolStr(iRuleNum: integer): string;
begin
Result := 'E';
end;

function CorrectRule(cRule: char; lexTop,lexCur: TLexType;
symbStack: TList): char;
{ Функция корректировки отношений предшествования
для расширения матрицы предшествования }
begin
{ В данном случае корректировать ничего не нужно }
Result := cRule;
end;

end.