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

Revert "Revert "hidden some variables"" 

This reverts commit 9112cc91e4018ca9f33a6f8611215139e19b6b15.
This commit is contained in:
Basile Burg 2014-12-01 05:38:04 +01:00
parent 7311c9a727
commit c969fe3044
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/ce_dcd.pas
View File

@ -39,13 +39,15 @@ procedure getHint(const aFilename: string; aPosition: Integer; const list: TStri
*) *)
procedure getSymbolLoc(var aFilename: string; var aPosition: Integer); procedure getSymbolLoc(var aFilename: string; var aPosition: Integer);
var
dcdOn: boolean = true;
implementation
var var
DCD_server: TProcess = nil; DCD_server: TProcess = nil;
DCD_client: TProcess = nil; DCD_client: TProcess = nil;
lines: TStringList; lines: TStringList;
dcdOn: boolean;
implementation
procedure lazyServerStart; procedure lazyServerStart;
begin begin
@ -148,13 +150,12 @@ begin
if not dcdOn then if not dcdOn then
exit; exit;
lazyServerStart; lazyServerStart;
if DCD_client.Running then if DCD_client.Running then DCD_client.Terminate(0);
exit;
// //
DCD_client.Parameters.Clear; DCD_client.Parameters.Clear;
DCD_client.Parameters.Add('-d');
DCD_client.Parameters.Add('-c'); DCD_client.Parameters.Add('-c');
DCD_client.Parameters.Add(intToStr(aPosition)); DCD_client.Parameters.Add(intToStr(aPosition));
DCD_client.Parameters.Add('-d');
DCD_client.Parameters.Add(aFilename); DCD_client.Parameters.Add(aFilename);
DCD_client.Execute; DCD_client.Execute;
// //
@ -205,8 +206,10 @@ initialization
createServer; createServer;
DCD_client := TProcess.Create(nil); DCD_client := TProcess.Create(nil);
DCD_client.Executable := 'dcd-client' + exeExt; DCD_client.Executable := 'dcd-client' + exeExt;
DCD_client.Options := [poUsePipes{$IFDEF WINDOWS}, poNewConsole{$ENDIF}]; DCD_client.Options := [poUsePipes, poStderrToOutPut {$IFDEF WINDOWS}, poNewConsole{$ENDIF}];
{$IFNDEF DEBUG}
DCD_client.ShowWindow := swoHIDE; DCD_client.ShowWindow := swoHIDE;
{$ENDIF}
dcdOn := exeInSysPath(DCD_server.Executable) and exeInSysPath(DCD_client.Executable); dcdOn := exeInSysPath(DCD_server.Executable) and exeInSysPath(DCD_client.Executable);
lines := TStringList.Create; lines := TStringList.Create;
finalization finalization