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

fix, duplicated sources when a sourcesPath item included a trailing directory separator

This commit is contained in:
Basile Burg 2015-09-19 14:01:53 +02:00
parent 2aee98ace0
commit 4c1941a3d4
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/ce_dubproject.pas
View File

@ -5,8 +5,8 @@ unit ce_dubproject;
interface
uses
Classes, SysUtils, fpjson, jsonparser, jsonscanner, process,
ce_common, ce_interfaces, ce_observer ;
Classes, SysUtils, fpjson, jsonparser, jsonscanner, process, strutils,
ce_common, ce_interfaces, ce_observer;
type
@ -450,6 +450,7 @@ var
conf: TJSONObject;
arr: TJSONArray;
i: integer;
procedure tryAddFromFolder(const pth: string);
var
abs: string;
@ -463,6 +464,8 @@ begin
fSrcs.Add(ExtractRelativepath(fBasePath, abs));
end;
end;
var
pth: string;
begin
fSrcs.Clear;
lst := TStringList.Create;
@ -480,8 +483,11 @@ begin
arr := TJSONArray(item);
for i := 0 to arr.Count-1 do
begin
tryAddFromFolder(fBasePath + arr.Strings[i]);
tryAddFromFolder(arr.Strings[i]);
pth := TrimRightSet(arr.Strings[i], ['/','\']);
if DirectoryExists(pth) then
tryAddFromFolder(pth)
else
tryAddFromFolder(fBasePath + pth);
end;
end;
// custom files
@ -505,8 +511,11 @@ begin
arr := TJSONArray(item);
for i := 0 to arr.Count-1 do
begin
tryAddFromFolder(fBasePath + arr.Strings[i]);
tryAddFromFolder(arr.Strings[i]);
pth := TrimRightSet(arr.Strings[i], ['/','\']);
if DirectoryExists(pth) then
tryAddFromFolder(pth)
else
tryAddFromFolder(fBasePath + pth);
end;
end;
// custom files in current config