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

added list of exclusions to TPathsOpts 

can contains
- an absolute/relative filename/foldername
- a filename/foldername with symstring
This commit is contained in:
Basile Burg 2015-01-25 15:34:00 +01:00
parent d5290b4d2f
commit d9aced0359
1 changed files with 20 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/ce_dmdwrap.pas
View File

@ -207,19 +207,22 @@ type
fExtraSrcs: TStringList; fExtraSrcs: TStringList;
fIncl: TStringList; fIncl: TStringList;
fImpt: TStringList; fImpt: TStringList;
fExcl: TStringList;
fFname: string; fFname: string;
fObjDir: string; fObjDir: string;
procedure setFname(const aValue: string); procedure setFname(const aValue: string);
procedure setObjDir(const aValue: string); procedure setObjDir(const aValue: string);
procedure setSrcs(const aValue: TStringList); procedure setSrcs(aValue: TStringList);
procedure setIncl(const aValue: TStringList); procedure setIncl(aValue: TStringList);
procedure setImpt(const aValue: TStringList); procedure setImpt(aValue: TStringList);
procedure setExcl(aValue: TStringList);
procedure strLstChange(sender: TObject); procedure strLstChange(sender: TObject);
published published
property outputFilename: string read fFname write setFname; property outputFilename: string read fFname write setFname;
property objectDirectory: string read fObjDir write setObjDir; property objectDirectory: string read fObjDir write setObjDir;
property Sources: TStringList read fExtraSrcs write setSrcs stored false; deprecated;// will be reloaded but saved as extraSources property Sources: TStringList read fExtraSrcs write setSrcs stored false; deprecated;
property extraSources: TStringList read fExtraSrcs write setSrcs; // not common srcs, made for static libs property exclusions: TStringList read fExcl write setExcl;
property extraSources: TStringList read fExtraSrcs write setSrcs;
property includes: TStringList read fIncl write setIncl; property includes: TStringList read fIncl write setIncl;
property imports: TStringList read fImpt write setImpt; property imports: TStringList read fImpt write setImpt;
public public
@ -824,11 +827,13 @@ begin
fExtraSrcs := TStringList.Create; fExtraSrcs := TStringList.Create;
fIncl := TStringList.Create; fIncl := TStringList.Create;
fImpt := TStringList.Create; fImpt := TStringList.Create;
fExcl := TStringList.Create;
// setSrcs(), setIncl(), etc are not called when reloading from // setSrcs(), setIncl(), etc are not called when reloading from
// a stream but rather the TSgringList.Assign() // a stream but rather the TSgringList.Assign()
fExtraSrcs.OnChange := @strLstChange; fExtraSrcs.OnChange := @strLstChange;
fIncl.OnChange := @strLstChange; fIncl.OnChange := @strLstChange;
fImpt.OnChange := @strLstChange; fImpt.OnChange := @strLstChange;
fExcl.OnChange := @strLstChange;
end; end;
procedure TPathsOpts.strLstChange(sender: TObject); procedure TPathsOpts.strLstChange(sender: TObject);
@ -897,26 +902,33 @@ begin
doChanged; doChanged;
end; end;
procedure TPathsOpts.setSrcs(const aValue: TStringList); procedure TPathsOpts.setSrcs(aValue: TStringList);
begin begin
fExtraSrcs.Assign(aValue); fExtraSrcs.Assign(aValue);
patchPlateformPaths(fExtraSrcs); patchPlateformPaths(fExtraSrcs);
doChanged; doChanged;
end; end;
procedure TPathsOpts.setIncl(const aValue: TStringList); procedure TPathsOpts.setIncl(aValue: TStringList);
begin begin
fIncl.Assign(aValue); fIncl.Assign(aValue);
patchPlateformPaths(fIncl); patchPlateformPaths(fIncl);
doChanged; doChanged;
end; end;
procedure TPathsOpts.setImpt(const aValue: TStringList); procedure TPathsOpts.setImpt(aValue: TStringList);
begin begin
fImpt.Assign(aValue); fImpt.Assign(aValue);
patchPlateformPaths(fImpt); patchPlateformPaths(fImpt);
doChanged; doChanged;
end; end;
procedure TPathsOpts.setExcl(aValue: TStringList);
begin
fExcl.Assign(aValue);
patchPlateformPaths(fExcl);
doChanged;
end;
{$ENDREGION} {$ENDREGION}
{$REGION TOtherOpts ------------------------------------------------------------} {$REGION TOtherOpts ------------------------------------------------------------}