mirror of https://gitlab.com/basile.b/dexed.git
fix colorization of delimited string
This commit is contained in:
parent
4e4207ff55
commit
2f9c1adc86
|
@ -419,9 +419,7 @@ begin
|
|||
next;
|
||||
end;
|
||||
|
||||
//TODO-cstring literals: delimited strings.
|
||||
//TODO-ccomments: nested comments with multiple nesting on the same line.
|
||||
//TODO-cfeature: something like pascal {$region} : /*folder blabla*/ /*endfolder*/
|
||||
|
||||
{$BOOLEVAL ON}
|
||||
procedure TSynD2Syn.next;
|
||||
|
@ -564,7 +562,7 @@ begin
|
|||
// string 1
|
||||
if fCurrRange.rangeKinds = [] then if readDelim(reader, fTokStop, stringPrefixes) then
|
||||
begin
|
||||
if readerPrev^ in ['r','x'] then
|
||||
if readerPrev^ in ['r','x','q'] then
|
||||
begin
|
||||
if not (readerNext^ = '"') then
|
||||
begin
|
||||
|
|
|
@ -12,7 +12,7 @@ type
|
|||
|
||||
const
|
||||
stringPostfixes: TCharSet = ['c', 'w', 'd'];
|
||||
stringPrefixes: TCharSet = ['r', 'x', '"'];
|
||||
stringPrefixes: TCharSet = ['r', 'x', 'q', '"'];
|
||||
stringStopChecks: TCharSet = ['\', '"'];
|
||||
charStopChecks: TCharSet = ['\', #39];
|
||||
symbChars: TCharSet = [';', '{', '}', '(', ')', '[', ']', ',', '.', ':', '?', '$', '"', #39];
|
||||
|
|
Loading…
Reference in New Issue