From f59a90d103a0506f563f1996907d135eb8a4ae43 Mon Sep 17 00:00:00 2001 From: joost Date: Sun, 28 Nov 2010 17:12:34 +0000 Subject: * Added ability to override which files should be stored in the archive of a package git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16464 3ad0048d-3df7-0310-abae-a5850022a9f2 --- packages/fpmkunit/src/fpmkunit.pp | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'packages/fpmkunit') diff --git a/packages/fpmkunit/src/fpmkunit.pp b/packages/fpmkunit/src/fpmkunit.pp index 9aaac18704..69498f38fe 100644 --- a/packages/fpmkunit/src/fpmkunit.pp +++ b/packages/fpmkunit/src/fpmkunit.pp @@ -566,6 +566,7 @@ Type procedure GetInstallFiles(List: TStrings;Types : TTargetTypes;ACPU:TCPU; AOS : TOS); virtual; procedure GetInstallSourceFiles(List: TStrings;Types : TSourceTypes); virtual; Procedure GetArchiveFiles(List : TStrings; ACPU:TCPU; AOS : TOS); virtual; + Procedure GetArchiveSourceFiles(List : TStrings); virtual; Procedure GetManifest(Manifest : TStrings); Property Version : String Read GetVersion Write SetVersion; Property FileName : String Read GetFileName Write FFileName; @@ -2122,6 +2123,13 @@ begin FTargets.TargetItems[I].GetArchiveFiles(List,ACPU,AOS); end; +procedure TPackage.GetArchiveSourceFiles(List: TStrings); +var + i : integer; +begin + for i := 0 to Sources.Count-1 do + List.Add(Sources[i].Name); +end; Function TPackage.GetDescription : string; Var @@ -4477,8 +4485,7 @@ begin APackage.GetArchiveFiles(L, ICPU, IOS); end; //from sources - for i := 0 to APackage.Sources.Count-1 do - L.Add(APackage.Sources[i].Name); + APackage.GetArchiveSourceFiles(L); //show all files for i := 0 to L.Count-1 do -- cgit v1.2.1