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

dcd, remove ditto supression, now done in server

This commit is contained in:
Basile Burg 2016-09-19 21:01:59 +02:00
parent 3ac8171737
commit bbebbc9686
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/ce_dcd.pas
View File

@ -465,6 +465,7 @@ end;
procedure TCEDcdWrapper.getDdocFromCursor(out comment: string); procedure TCEDcdWrapper.getDdocFromCursor(out comment: string);
var var
i: Integer; i: Integer;
len: Integer;
str: string; str: string;
begin begin
if not fAvailable then exit; if not fAvailable then exit;
@ -486,10 +487,12 @@ begin
comment := ''; comment := '';
fTempLines.LoadFromStream(fClient.Output); fTempLines.LoadFromStream(fClient.Output);
while fClient.Running do ; while fClient.Running do ;
if fTempLines.Count = 0 then len := fTempLines.Count-1;
if len = -1 then
updateServerlistening; updateServerlistening;
for str in fTempLines do for i := 0 to len do
begin begin
str := fTempLines[i];
with TStringRange.create(str) do while not empty do with TStringRange.create(str) do while not empty do
begin begin
comment += takeUntil('\').yield; comment += takeUntil('\').yield;
@ -504,12 +507,9 @@ begin
popFrontN(2); popFrontN(2);
end end
end; end;
if i <> len then
comment += LineEnding + LineEnding; comment += LineEnding + LineEnding;
end; end;
//
comment := ReplaceText(comment, 'ditto' + LineEnding + LineEnding, '');
comment := ReplaceText(comment, 'ditto', '');
comment := Trim(comment);
end; end;
procedure TCEDcdWrapper.getDeclFromCursor(out fname: string; out position: Integer); procedure TCEDcdWrapper.getDeclFromCursor(out fname: string; out position: Integer);