paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 10:29:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added TPackageVariant.SourcePath and .IncludePath

Browse Source 
git-svn-id: trunk@29313 -
This commit is contained in:
joost 2014-12-22 16:25:54 +00:00
parent 72642042e4
commit 3e9c4a79a5
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fpmkunit/src/fpmkunit.pp
View File

@ -480,10 +480,14 @@ Type
private
FOptions: TStrings;
FTargets: TTargets;
FIncludePath: TConditionalStrings;
FSourcePath: TConditionalStrings;
public
constructor Create(ACollection: TCollection); override;
destructor Destroy; override;
property Options: TStrings read FOptions;
Property IncludePath : TConditionalStrings Read FIncludePath;
Property SourcePath : TConditionalStrings Read FSourcePath;
property Targets: TTargets read FTargets;
end;
@ -2614,12 +2618,16 @@ begin
inherited Create(ACollection);
FTargets := TTargets.Create(TTarget);
FOptions := TStringList.Create;
FIncludePath:=TConditionalStrings.Create(TConditionalString);
FSourcePath:=TConditionalStrings.Create(TConditionalString);
end;
destructor TPackageVariant.Destroy;
begin
FOptions.Free;
FTargets.Free;
FIncludePath.Free;
FSourcePath.Free;
inherited Destroy;
end;
@ -3621,6 +3629,8 @@ begin
PackageVariants.ActivePackageVariantName:= Installer.FPackageVariantSettings.Values[PackageVariants.Name]
else
PackageVariants.ActivePackageVariantName:= PackageVariants.DefaultPackageVariantName;
IncludePath.AddList(PackageVariants.ActivePackageVariant.IncludePath);
SourcePath.AddList(PackageVariants.ActivePackageVariant.SourcePath);
Dictionary.AddVariable(PackageVariants.Name,PackageVariants.ActivePackageVariantName);
SetUnitsOutputDir(FUnitsOutputDir+'$('+PackageVariants.name+')');
SetPackageUnitInstallDir(FPackageUnitInstallDir+'$('+PackageVariants.Name+')');