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

sxsyn, adjust lexing to make dot equal ligature working

This commit is contained in:
Basile Burg 2023-12-18 12:06:17 +01:00
parent 6e2209e3b0
commit 5f0cb4a3f4
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/u_sxsyn.pas
View File

@ -811,7 +811,16 @@ begin
'>': lexOpAndOpOpAndOpEqualAndOpOpEqual('>'); '>': lexOpAndOpOpAndOpEqualAndOpOpEqual('>');
// `=`, `==`, `=>` // `=`, `==`, `=>`
'=': lexAssEquOrLambda(); '=': lexAssEquOrLambda();
'.', '(', ')', ',', ':' , '[', ']', ';' : '.':
begin
nextPChar := safeLookupChar();
fTokKind := TTokenKind.tkSymbl;
if (nextPChar <> nil) and (nextPChar^ = '=') then
fTokStop += 2
else
fTokStop += 1;
end;
'(', ')', ',', ':' , '[', ']', ';' :
begin begin
fTokKind := TTokenKind.tkSymbl; fTokKind := TTokenKind.tkSymbl;
fTokStop += 1; fTokStop += 1;