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

fix colorization of delimited string

This commit is contained in:
Basile Burg 2014-11-26 05:15:36 +01:00
parent 4e4207ff55
commit 2f9c1adc86
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_d2syn.pas
View File

@ -419,9 +419,7 @@ begin
next; next;
end; end;
//TODO-cstring literals: delimited strings.
//TODO-ccomments: nested comments with multiple nesting on the same line. //TODO-ccomments: nested comments with multiple nesting on the same line.
//TODO-cfeature: something like pascal {$region} : /*folder blabla*/ /*endfolder*/
{$BOOLEVAL ON} {$BOOLEVAL ON}
procedure TSynD2Syn.next; procedure TSynD2Syn.next;
@ -564,7 +562,7 @@ begin
// string 1 // string 1
if fCurrRange.rangeKinds = [] then if readDelim(reader, fTokStop, stringPrefixes) then if fCurrRange.rangeKinds = [] then if readDelim(reader, fTokStop, stringPrefixes) then
begin begin
if readerPrev^ in ['r','x'] then if readerPrev^ in ['r','x','q'] then
begin begin
if not (readerNext^ = '"') then if not (readerNext^ = '"') then
begin begin

2
src/ce_dlangutils.pas
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', 'q', '"'];
stringStopChecks: TCharSet = ['\', '"']; stringStopChecks: TCharSet = ['\', '"'];
charStopChecks: TCharSet = ['\', #39]; charStopChecks: TCharSet = ['\', #39];
symbChars: TCharSet = [';', '{', '}', '(', ')', '[', ']', ',', '.', ':', '?', '$', '"', #39]; symbChars: TCharSet = [';', '{', '}', '(', ')', '[', ']', ',', '.', ':', '?', '$', '"', #39];