From 22dc9f89546c310610627d98a0403474e86797a8 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sat, 7 Mar 2015 01:49:27 +0100
Subject: [PATCH] added call tip method to TCEDcdWrapper

---
 src/ce_dcd.pas | 42 +++++++++++++++++++++++++++++++-----------
 1 file changed, 31 insertions(+), 11 deletions(-)

diff --git a/src/ce_dcd.pas b/src/ce_dcd.pas
index 1db952b0..9b4b56f2 100644
--- a/src/ce_dcd.pas
+++ b/src/ce_dcd.pas
@@ -48,6 +48,7 @@ type
     procedure restartServer;
     procedure addImportFolder(const aFolder: string);
     procedure getComplAtCursor(aList: TStrings);
+    procedure getCallTip(out tips: string);
     procedure getDdocFromCursor(out aComment: string);
     procedure getDeclFromCursor(out aFilename: string; out aPosition: Integer);
     //
@@ -211,12 +212,7 @@ begin
   fClient.Execute;
 end;
 
-procedure TCEDcdWrapper.getComplAtCursor(aList: TStrings);
-var
-  i, j: NativeInt;
-  kind: Char;
-  item: string;
-  asComp, asTips: boolean;
+procedure TCEDcdWrapper.getCallTip(out tips: string);
 begin
   if not fAvailable then exit;
   if fDoc = nil then exit;
@@ -233,14 +229,38 @@ begin
   //
   fTempLines.LoadFromStream(fClient.Output);
   if fTempLines.Count = 0 then exit;
+  if not (fTempLines.Strings[0] = 'calltips') then exit;
   //
-  asComp := fTempLines.Strings[0] = 'identifiers';
-  asTips := fTempLines.Strings[0] = 'calltips';
-  if asTips then exit;
+  fTempLines.Delete(0);
+  tips := fTempLines.Text;
+  tips := tips[1..length(tips)-2];
+end;
+
+procedure TCEDcdWrapper.getComplAtCursor(aList: TStrings);
+var
+  i: Integer;
+  kind: Char;
+  item: string;
+begin
+  if not fAvailable then exit;
+  if fDoc = nil then exit;
+  //
+  fTempLines.Assign(fDoc.Lines);
+  fTempLines.SaveToFile(fDoc.tempFilename);
+  //
+  terminateClient;
+  fClient.Parameters.Clear;
+  fClient.Parameters.Add('-c');
+  fClient.Parameters.Add(intToStr(fDoc.SelStart - 1));
+  fClient.Parameters.Add(fDoc.tempFilename);
+  fClient.Execute;
+  //
+  fTempLines.LoadFromStream(fClient.Output);
+  if fTempLines.Count = 0 then exit;
+  if not (fTempLines.Strings[0] = 'identifiers') then exit;
   //
-  if asComp then j := 1 else j := 0;
   aList.Clear;
-  for i := j to fTempLines.Count-1 do
+  for i := 1 to fTempLines.Count-1 do
   begin
     item := fTempLines.Strings[i];
     kind := item[length(item)];