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

fix, the target filename was not always correctly set

This commit is contained in:
Basile Burg 2015-09-19 14:02:39 +02:00
parent 4c1941a3d4
commit ef7488316a
1 changed files with 21 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
src/ce_dubproject.pas
View File

@ -615,36 +615,34 @@ begin
end;
procedure TCEDubProject.updateOutputNameFromJson;
procedure setFrom(obj: TJSONObject);
var
item: TJSONData;
begin
item := obj.Find('targetPath');
if assigned(item) then
fOutputFileName := item.AsString;
item := obj.Find('targetName');
if assigned(item) then
fOutputFileName += DirectorySeparator + item.AsString;
end;
var
conf: TJSONObject;
item: TJSONData;
namePart, pathPart: string;
procedure setFrom(obj: TJSONObject);
var
n,p: TJSONData;
begin
p := obj.Find('targetPath');
n := obj.Find('targetName');
if assigned(p) then pathPart := p.AsString;
if assigned(n) then namePart := n.AsString;
end;
begin
fOutputFileName := '';
item := fJSON.Find('name');
if not assigned(item) then
exit;
namePart := item.AsString;
pathPart := fBasePath;
setFrom(fJSON);
conf := getCurrentCustomConfig;
if assigned(conf) then setFrom(conf);
if fOutputFileName <> '' then
begin
patchPlateformPath(fOutputFileName);
expandFilenameEx(fBasePath, fOutputFileName);
end
else
begin
item := fJSON.Find('name');
if assigned(item) then
fOutputFileName := fBasePath + item.AsString;
end;
if assigned(conf) then
setFrom(conf);
pathPart := TrimRightSet(pathPart, ['/','\']);
fOutputFileName:= pathPart + DirectorySeparator + namePart;
patchPlateformPath(fOutputFileName);
fOutputFileName := expandFilenameEx(fBasePath, fOutputFileName);
case fBinKind of
executable: fOutputFileName += exeExt;
staticlib: fOutputFileName += libExt;