forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

remove detection of contiguous asterisks 

not required since lexer change of version 2 update 3
This commit is contained in:
Basile Burg 2016-09-01 10:03:43 +02:00
parent f5c0bf81eb
commit 2bd4562f52
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/ce_dlangutils.pas
View File

@ -103,7 +103,8 @@ function isOperator2(const s: string): boolean; {$IFNDEF DEBUG}inline;{$ENDIF}
begin begin
result := false; result := false;
case s[1] of case s[1] of
'.': result := (s[2] = '.'); '.': result := s[2] = '.';
'*': result := s[2] = '=';
'>': result := s[2] in ['>', '=']; '>': result := s[2] in ['>', '='];
'<': result := s[2] in ['<', '=', '>']; '<': result := s[2] in ['<', '=', '>'];
@ -113,7 +114,6 @@ begin
'+': result := s[2] in ['+', '=']; '+': result := s[2] in ['+', '='];
'-': result := s[2] in ['-', '=']; '-': result := s[2] in ['-', '='];
'/': result := s[2] in ['=']; '/': result := s[2] in ['='];
'*': result := s[2] in ['=', '*']; // **: pointers
'%': result := s[2] in ['=']; '%': result := s[2] in ['='];
'~': result := s[2] in ['=']; '~': result := s[2] in ['='];
@ -134,13 +134,12 @@ begin
or (s[2] = '>') and (s[3] = '='); or (s[2] = '>') and (s[3] = '=');
'!': result := ((s[2] = '<') and (s[3] in ['>', '='])) '!': result := ((s[2] = '<') and (s[3] in ['>', '=']))
or ((s[2] = '>')and (s[3] = '=')); or ((s[2] = '>')and (s[3] = '='));
'*': result := (s[2] = '*') and (s[3] = '*'); // ***: pointers
end; end;
end; end;
function isOperator4(const s: string): boolean; {$IFNDEF DEBUG} inline; {$ENDIF} function isOperator4(const s: string): boolean; {$IFNDEF DEBUG} inline; {$ENDIF}
begin begin
result := (s = '>>>=') or (s = '!<>=') or (s = '****'); result := (s = '>>>=') or (s = '!<>=');
end; end;
function isStringPostfix(const c: char): boolean; {$IFNDEF DEBUG}inline;{$ENDIF} function isStringPostfix(const c: char): boolean; {$IFNDEF DEBUG}inline;{$ENDIF}