home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2000 February
/
Chip_2000-02_cd.bin
/
zkuste
/
Delphi
/
navody
/
tt
/
objvm.exe
/
SAMPLE
/
ObjLangF.dfm
/
ObjLangF.txt
Wrap
Text File
|
1998-07-02
|
4KB
|
211 lines
object ObjLang: TObjLang
Left = 197
Top = 110
Width = 269
Height = 216
Caption = 'ObjLang'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
PixelsPerInch = 96
TextHeight = 13
object Compiler: TCompiler
Errors.Strings = (
'This work can not begin a program'
'Unexpected end of file'
'Identifier expected'
'This symbol can not begin a statement'
'Expression expected'
'Invalid expression'
'TIMES expected'
'List of arguments expected'
'Error in expression'
'List of arguments expected'
', or ) expected'
'Error in expression'
'Identifier expected'
'Condition is not finished'
':= or ( expected')
Left = 8
Top = 8
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`'
'`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`'