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

remove code for ddemangle compatibility prior to version 2.072

This commit is contained in:
Basile Burg 2020-04-10 18:30:56 +02:00
parent cb80b2f90d
commit 0155f244a4
1 changed files with 9 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
src/u_ddemangle.pas
View File

@ -35,10 +35,6 @@ var
demangler: TDDemangler; demangler: TDDemangler;
constructor TDDemangler.create; constructor TDDemangler.create;
var
s: string = '.0.';
r: TStringRange;
v: integer;
begin begin
fList := TStringList.Create; fList := TStringList.Create;
fOut := TStringList.Create; fOut := TStringList.Create;
@ -46,46 +42,19 @@ begin
fProc.Options:= [poUsePipes]; fProc.Options:= [poUsePipes];
fProc.OnTerminate:=@procTerminate; fProc.OnTerminate:=@procTerminate;
fProc.ShowWindow:= swoHIDE; fProc.ShowWindow:= swoHIDE;
// Arch Linux users can have the tool setup w/o DMD
{$IFDEF POSIX}
fProc.Executable := exeFullName('dtools-ddemangle');
if fProc.Executable.fileExists then
begin
fProc.execute;
fActive := true;
exit;
end;
{$ENDIF}
// up to version 2.071 ddemangle cannot be daemon-ized
with TProcess.Create(nil) do
try
Executable := exeFullName('dmd' + exeExt);
if Executable.fileExists then
begin
setLength(s, 128);
Parameters.Text:= '--version';
Options:= [poUsePipes];
ShowWindow:= swoHIDE;
execute;
output.Read(s[1], 128);
while Running do
sleep(1);
end;
finally
free;
end;
r := r.create(s);
v := r.popUntil('.')^.popFront^.takeUntil('.').yield.toInt;
fProc.Executable := exeFullName('ddemangle' + exeExt); fProc.Executable := exeFullName('ddemangle' + exeExt);
if (v >= 72) and fProc.Executable.fileExists then {$IFDEF POSIX}
// Arch Linux users can have the tool setup w/o DMD
if fProc.Executable.isEmpty then
fProc.Executable := exeFullName('dtools-ddemangle');
{$ENDIF}
if fProc.Executable.isNotEmpty and
fProc.Executable.fileExists then
begin begin
fProc.execute; fProc.execute;
fActive := true; fActive := true;
end end;
else fActive := false; fActive := fProc.Running;
end; end;
destructor TDDemangler.destroy; destructor TDDemangler.destroy;