From 2f9c1adc8652199dc800d4ec16383b46b4ae21a5 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Wed, 26 Nov 2014 05:15:36 +0100 Subject: [PATCH] fix colorization of delimited string --- src/ce_d2syn.pas | 4 +--- src/ce_dlangutils.pas | 2 +- 2 files changed, 2 insertions(+), 4 deletions(-) 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];