diff --git a/src/ce_d2syn.pas b/src/ce_d2syn.pas index 5a6c94c6..ce7242ff 100644 --- a/src/ce_d2syn.pas +++ b/src/ce_d2syn.pas @@ -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 diff --git a/src/ce_dlangutils.pas b/src/ce_dlangutils.pas index bde5aea8..cbc1bead 100644 --- a/src/ce_dlangutils.pas +++ b/src/ce_dlangutils.pas @@ -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];