home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2000 February
/
Chip_2000-02_cd.bin
/
zkuste
/
Delphi
/
navody
/
tt
/
objvm.exe
/
SAMPLE
/
uObjLang.dfm
/
uObjLang.txt
Wrap
Text File
|
1998-03-10
|
5KB
|
205 lines
object ObjLang: TObjLang
Left = 200
Top = 108
Height = 123
Width = 112
object Compiler: TCompiler
Errors.Strings = (
'� ����� ����� �� ����� ���������� ���������'
'����������� ����� ��������� ������'
'��������� �������������'
'������ ������ �� ����� �������� �����������'
'��������� ���������'
'������������ ���������'
'��������� '#39'���'#39' ��� '#39'����'#39
'��������� �������� ����������'
'������ � ���������'
'��������� ������ ����������'
'��������� , ��� )'
'������ � ���������'
'��������� �������������'
'������� �� ���������')
Left = 24
Top = 16
LexemInfoList = (
'K N .'
'K N -'
'K N +'
'K N ;'
'K N ���'
'K N ����'
'K N TIMES'
'K N ������'
'K N �����'
'K N BEGIN'
'K N END'
'K N ('
'K N )'
'K N ,'
'K N ����'
'K N ��'
'K N �����'
'K N ����'
'K N ������'
'K N ��'
'K N ���������'
'K N REPEAT'
'K N ��'
'K N IF'
'K N THEN'
'K N ELSE'
'K N WHILE'
'K N DO'
'K N UNTIL'
'K N NOT'
'K N >'
'K N <'
'K N ='
'K N <='
'K N >='
'K N <>'
'K N in'
'K N OR'
'K N AND'
'K N ���'
'K N �'
'K N *'
'K N /'
'K N div'
'K N rem'
'K N :='
'K N ������'
'K N ����'
'K N TRUE'
'K N FALSE'
'L N Literal'
'I N ID'
'S N String'
'N N Neterm'
'V N Variable'
'K N .'
'K N -'
'K N +'
'K N ;'
'K N ���'
'K N ����'
'K N TIMES'
'K N ������'
'K N �����'
'K N BEGIN'
'K N END'
'K N ('
'K N )'
'K N ,'
'K N ����'
'K N ��'
'K N �����'
'K N ����'
'K N ������'
'K N ��'
'K N ���������'
'K N REPEAT'
'K N ��'
'K N IF'
'K N THEN'
'K N ELSE'
'K N WHILE'
'K N DO'
'K N UNTIL'
'K N NOT'
'K N >'
'K N <'
'K N ='
'K N <='
'K N >='
'K N <>'
'K N in'
'K N OR'
'K N AND'
'K N ���'
'K N �'
'K N *'
'K N /'
'K N div'
'K N rem'
'K N :='
'L N Literal'
'I N ID'
'S N String'
'N N Neterm'
'V N Variable'
'K N .'
'K N -'
'K N +'
'K N ;'
'K N ���'
'K N ����'
'K N TIMES'
'K N ������'
'K N �����'
'K N BEGIN'
'K N END'
'K N ('
'K N )'
'K N ,'
'K N ����'
'K N ��'
'K N �����'
'K N ����'
'K N ������'
'K N ��'
'K N ���������'
'K N REPEAT'
'K N ��'
'K N IF'
'K N THEN'
'K N ELSE'
'K N WHILE'
'K N DO'
'K N UNTIL'
'K N NOT'
'K N >'
'K N <'
'K N ='
'K N <='
'K N >='
'K N <>'
'K N in'
'K N OR'
'K N AND'
'K N ���'
'K N �'
'K N *'
'K N /'
'K N div'
'K N rem'
'K N :='
'L N Literal'
'I N ID'
'S N String'
'N N Neterm'
'V N Variable')
RulesList = (
'`gram` `prog`'
'`prog` `stat` ; `prog'#39'`'
'`prog'#39'` `prog`'
'`prog'#39'`'
'`id` `id/call` `id'#39'`'
'`id'#39'`'
'`id'#39'` . `id`'
'`id/call` `id-el` `id/call'#39'`'
'`id/call'#39'`'
'`id/call'#39'` `call`'
'`id-el` "ID"'
'`id-el` ID'
'`stat` `call-or-assig`'
'`call-or-assig` `id` `call-or-assig'#39'`'
'`call-or-assig'#39'` `assig`'
'`call-or-assig'#39'`'
'`assig` := `e`'
'`stat` `if`'
'`if` ���� `e` �� `prog` `if'#39'`'
'`if'#39'` �����'
'`if'#39'` ����� `prog` �����'
'`if` IF `e` THEN `prog` `if'#3