|
@@ -72,7 +72,7 @@ TYPE
|
|
|
notsym,nilsym,orsym,setsym,tosym,virtualsym,usessym,
|
|
notsym,nilsym,orsym,setsym,tosym,virtualsym,usessym,
|
|
|
casevarsym,ofobjectsym,
|
|
casevarsym,ofobjectsym,
|
|
|
{ other symbols }
|
|
{ other symbols }
|
|
|
- becomes,delphicomment,dopencomment,dclosecomment,opencomment,closecomment,semicolon,colon,equals,
|
|
|
|
|
|
|
+ becomes,notequal,lessorequal,greaterorequal,delphicomment,dopencomment,dclosecomment,opencomment,closecomment,semicolon,colon,equals,
|
|
|
openparen,closeparen,period,endoffile,othersym);
|
|
openparen,closeparen,period,endoffile,othersym);
|
|
|
|
|
|
|
|
{ Formatting options }
|
|
{ Formatting options }
|
|
@@ -252,7 +252,7 @@ CONST
|
|
|
'and','arr','div','down','file','goto',
|
|
'and','arr','div','down','file','goto',
|
|
|
'in','mod','not','nil','or','set','to','virtual','uses',
|
|
'in','mod','not','nil','or','set','to','virtual','uses',
|
|
|
'casevar','ofobject',
|
|
'casevar','ofobject',
|
|
|
- 'becomes','delphicomment','dopencomment','dclosecomment',
|
|
|
|
|
|
|
+ 'becomes','notequal','lessorequal','greaterorequal','delphicomment','dopencomment','dclosecomment',
|
|
|
'opencomment','closecomment','semicolon',
|
|
'opencomment','closecomment','semicolon',
|
|
|
'colon','equals',
|
|
'colon','equals',
|
|
|
'openparen','closeparen','period','endoffile','other');
|
|
'openparen','closeparen','period','endoffile','other');
|
|
@@ -265,7 +265,7 @@ CONST
|
|
|
|
|
|
|
|
|
|
|
|
|
DblChar : DblCharTable =
|
|
DblChar : DblCharTable =
|
|
|
- ( ':=', '//','(*','*)' );
|
|
|
|
|
|
|
+ ( ':=', '<>', '<=', '>=', '//','(*','*)' );
|
|
|
|
|
|
|
|
SglChar : SglCharTable =
|
|
SglChar : SglCharTable =
|
|
|
('{', '}', ';', ':', '=', '(', ')', '.' );
|
|
('{', '}', ';', ':', '=', '(', ')', '.' );
|
|
@@ -1411,5 +1411,5 @@ End;
|
|
|
|
|
|
|
|
|
|
|
|
|
Begin
|
|
Begin
|
|
|
- dblch := [becomes, opencomment];
|
|
|
|
|
|
|
+ dblch := [becomes, notequal, lessorequal, greaterorequal, opencomment];
|
|
|
end.
|
|
end.
|
michael