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

added support for multi-lines strings folding

This commit is contained in:
Basile Burg 2014-08-10 04:51:32 +02:00
parent 81ac108cd9
commit e506bf0dc5
1 changed files with 26 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/ce_d2syn.pas
View File

@ -85,7 +85,7 @@ type
TRangeKind = (rkNone, rkString1, rkString2, rkTokString, rkBlockCom1, rkBlockCom2, rkBlockDoc1, rkBlockDoc2, rkAsm);
TFoldKind = (fkBrackets, fkComments1, fkComments2);
TFoldKind = (fkBrackets, fkComments1, fkComments2, fkStrings);
TFoldKinds = set of TFoldKind;
TSynD2Syn = class (TSynCustomFoldHighlighter)
@ -608,7 +608,12 @@ begin
(readPrevPrev = '\') then
break;
end;
if (readCurr = #10) then fRange := rkString1
if (readCurr = #10) then
begin
fRange := rkString1;
if fkStrings in fFoldKinds then
StartCodeFoldBlock(nil);
end
else
begin
readNext;
@ -637,6 +642,8 @@ begin
if (readCurr = '"') then
begin
fTokKind := tkStrng;
if fkStrings in fFoldKinds then
EndCodeFoldBlock;
fRange := rkNone;
readNext;
// check postfix
@ -652,7 +659,12 @@ begin
begin
// go to end of string/eol
while ((readNext <> '`') and (not (readCurr = #10))) do (*!*);
if (readCurr = #10) then fRange := rkString2
if (readCurr = #10) then
begin
fRange := rkString2;
if fkStrings in fFoldKinds then
StartCodeFoldBlock(nil);
end
else
begin
readNext;
@ -674,6 +686,8 @@ begin
if (readCurr = '`') then
begin
fTokKind := tkStrng;
if fkStrings in fFoldKinds then
EndCodeFoldBlock;
fRange := rkNone;
readNext;
// check postfix
@ -688,7 +702,13 @@ begin
begin
// go to end of string/eol
while ((readNext <> '}') and (not (readCurr = #10))) do (*!*);
if (readCurr = #10) then fRange := rkTokString else readNext;
if (readCurr = #10) then
begin
fRange := rkTokString;
if fkStrings in fFoldKinds then
StartCodeFoldBlock(nil);
end
else readNext;
fTokKind := tkStrng;
exit;
end else Dec(fTokStop);
@ -703,6 +723,8 @@ begin
if (readCurr = '}') then
begin
fTokKind := tkStrng;
if fkStrings in fFoldKinds then
EndCodeFoldBlock;
fRange := rkNone;
readNext;
exit;