|
�������� ��� ����� ������ �������� ������������
�� ������ � �������� ���������� �������������� ������������ � ������������
������ ����������������. ������ ��� �� ��������� ������ ���� �����, ��
�������� ��� ������� ��������������� ������������, �������� ����� ����
����������������, � �������� ���������� ����������.
� ����� ���� ������������� ������ ���� ����� ��������������� �������: ����������� �����, ������� �������� ������������ ��������� ��������� ������� ��� ������ ��������� �����������. ������ ������ ������� ������ � ��� ������, ���� � ��� ���� ����������� ���� Yacc, � ��� ������ �������, ������� ������ ����� ������������ ������� �������. � ����� ������ �������� �� ������ ���� �����, ������ Small C. ��������� ����� ��� ������ ������ ������������ ����������� ������������ ������������� ���� ������� P-���� � ��������� ���������� �� ��� ����� (�front end�, ������� ���������� P-���, � �back end�, ������� ������������ P-���, ��� ��������� ������������ ���������� ����), ��� ������� ���, ��� ����� ������ ��������� ���������� ��������������� ����������� ����������� ��������� ��� � ����� �������� ����������� ����������. ����� ��� �� ����� ���������� � ���� ���... ��������� ����������������� ���� - ������� ����� ������� ������. �� ���� ����� �������� � �������� ���������� ������. � ����� �� �������� ��� � ������, ��� ��� �������� ������� �� ����� ������������ ������� ��������, � ��������� �������� ��� ��� ������� ���������� � ��������� ������������. �������, � ��������� ������������ ��������� ������, ������� ��� ���������� �������� ��������� ��� ����, ����� ��������, ��� ����������, �� ���������� ������ �������� ���. �������� �� ��� �������� ������������� �������������� �������, �� ���������� ��������, �� ������ ������ ����������. � ������, ��� ���� � ���� ������� �������������� ���������� ��� ������������� � ��������� I-T-L, �� � ����� ������� ���� � � IF-THEN-ELSE. �� ������ ����� � ������ ���, ��� ����� ��������� ������� �������������� ���������� ��� ��������� ������� ������������ �����. ��������� ����� ������� � ��� ��� � ��������� ��������� �������� ����/�����, ��������� ���� ��� ���� � ���� ��������� ������ � ���������� � �������� ��������� �� ����� � ���� ����� ������ ��� � � ������� �� �����. ���� ����������, ��� ��� ������ ���������� ���������� ��������� ����� ������ ������������� ����/����� �� �����. ��������� ����� ����������� � ���, ��� � �� ������� ��������� ���������/�������������� ����� ������. ���������, ������� �� ����� ���������, ����� ������������ ������ � ������ ����������� �� ������ �� ���, ����� ����� ��� ��� ���������� � Turbo Pascal. ����� � ��������� ������ ������, ������� �� ������� �� ���� ����. ����������� �� ��� �� �� ������� � ����� ���� �������� �� ������������, �� ��� ��������. ��������� ���� � ����� ���������������� � �������������. ��� �� �������, � �������� ������ ��������� � ���� ���������, ����� �������� ����������. �� ���� �� ��������, � �������� �� ����� ��������, �� ����� �������� �� ����� ��� 15-20 �����. � ������� ����������� �������� KISS (Keep It Simple, Sidney � ����� ��� �����, ������) � ����������������. � ������� �� ������� ������� ���-���� �������, ����� ����� ������� ������. ������������? ��������, �� ��� ���������� ���������. ��� ������ ������ ��������, ������� ��������� ��������� ��������, ����� ��������� ��������� �������� ������. ���� ������� �� �������� ��������� � ���������� ���-���� � ����� ��������, �� ������� ������� ��� �.�. ��� ����� ���������� ��������. ���� �� ���������� ���, �, ��� �� �����, ������� ��� ��������� ���� ��������� �� ����� ��������� ���, ��� �� �� ��� ������. � ����� ���� ��������� �� ���������� � ��������� ������� �� ��� ���, ���� �� ��������, ��� ��� ������������� ����� ���. ������� ������������� ��� ����������� � ������� ����� ������ ��� � ���. � ���� �����, ����� �������� ���������� � ������� ������������ � ���� ������ ������ �����, ����� ���������� ������������� � ����� ������. �� ��� ��� � ���� ������ ������ ��, ��� ��� �����. �������������� ������: ���� �� ���������, ������� �� ����� ��������� �����, ����������� � ���, ��� �� �� ����� ������ ������� � ����������� � P-����� ��� ������������� ���, �� �� ������ � ��������� �����������, ����������� ���������� ����, �� ������� ����, � ���� ��������� �� ����������. ��� �� �����, ��� ����� �� ����������� ��������� ���� ��������҅ ��� � ��������� ��� ��������������� 68000, ������������ � ���� ������� (��� SK*DOS). � �����, ��� �� �������, ��� �� �����, ��� ���������� ��� ������ ������� ���, �������� 80x86, ���������� ��������, ��� ��� � �� ���� ����� ��������. ����������, � ������� ��� ���-��, ��� ����� ���� 8086 �����, ��� �, ����������� ��� ���������� ���������� ����. ������ ������ ��������� ��������� �
��������� �������� � ������������ �����/������, ������������ ���������
�� ������� � �.�. ���������, ������� �� ����� �������������, �� ����������
����������. � ��������� ��������� �� �� ����������� ������, ����� �� �����
������������������ �� ����� ������ ����� � �� �����������. ���, �����������
����, ������������ ����� �������, ����������� ���, ����� ���-������ �������.
�� ������� �� ���������� ����������� �����/�����, ������������ ���������
������ � ������� � ������ �������� ���������. ������� �� Cradle.
�� ���� �������� ������ �����������, �� ����� ��������� �� � Cradle � ���������
������ ���� �����������. ���������� Cradle � ��������� ���, ������
��� �� ����� ������������ ��� ������������.
{--------------------------------------------------------------}
{--------------------------------------------------------------}
const TAB = ^I; {--------------------------------------------------------------}
var Look: char; { Lookahead Character } {--------------------------------------------------------------}
procedure GetChar;
{--------------------------------------------------------------}
procedure Error(s: string);
{--------------------------------------------------------------}
procedure Abort(s: string);
{--------------------------------------------------------------}
procedure Expected(s: string);
{--------------------------------------------------------------}
procedure Match(x: char);
{--------------------------------------------------------------}
function IsAlpha(c: char): boolean;
{--------------------------------------------------------------} { Recognize a Decimal Digit } function IsDigit(c: char): boolean;
{--------------------------------------------------------------}
function GetName: char;
{--------------------------------------------------------------}
function GetNum: char;
{--------------------------------------------------------------}
procedure Emit(s: string);
{--------------------------------------------------------------}
procedure EmitLn(s: string);
{--------------------------------------------------------------}
procedure Init;
{--------------------------------------------------------------}
begin
���������� ���, ��������������
����, � TP � ��������������. ��������������, ��� ��������� �����������������
� ����������� ���������. ����� ��������� � ������� �����, ���������������
������� ���������.
|