fix #144 - highlight D IES

This commit is contained in:
Basile Burg 2025-03-10 10:46:57 +01:00
parent 685242ae65
commit 3a6a20c466
2 changed files with 3 additions and 3 deletions

View File

@ -648,7 +648,7 @@ begin
// double quoted strings | raw double quoted strings // double quoted strings | raw double quoted strings
if (fCurrRange.notInExclusiveRange()) and readDelim(reader, fTokStop, stringPrefixes) then if (fCurrRange.notInExclusiveRange()) and readDelim(reader, fTokStop, stringPrefixes) then
begin begin
if readerPrev^ in ['r','x'] then if readerPrev^ in ['r','x','i'] then
begin begin
fCurrRange.rString := reader^ = 'r'; fCurrRange.rString := reader^ = 'r';
if not (readerNext^ = '"') then if not (readerNext^ = '"') then
@ -747,7 +747,7 @@ begin
end; end;
// token string // token string
if readDelim(reader, fTokStop, 'q{') then if readDelim(reader, fTokStop, 'q{') or readDelim(reader, fTokStop, 'iq{') then
begin begin
fTokKind := tkSymbl; fTokKind := tkSymbl;
StartCodeFoldBlock(nil, fkBrackets in fFoldKinds); StartCodeFoldBlock(nil, fkBrackets in fFoldKinds);

View File

@ -12,7 +12,7 @@ type
const const
stringPostfixes: TCharSet = ['c', 'w', 'd']; stringPostfixes: TCharSet = ['c', 'w', 'd'];
stringPrefixes: TCharSet = ['r', 'x', '"']; stringPrefixes: TCharSet = ['r', 'x', 'i', '"'];
stringStopChecks: TCharSet = ['\', '"']; stringStopChecks: TCharSet = ['\', '"'];
charStopChecks: TCharSet = ['\', #39]; charStopChecks: TCharSet = ['\', #39];
symbChars: TCharSet = [';', '{', '}', '(', ')', '[', ']', ',', '.', ':', '?', '$', '"', #39]; symbChars: TCharSet = [';', '{', '}', '(', ')', '[', ']', ',', '.', ':', '?', '$', '"', #39];