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

* Create the archives for multiple packages in the same location as the head fpmake.pp

Browse Source 
git-svn-id: trunk@28915 -
This commit is contained in:
joost 2014-10-24 21:36:01 +00:00
parent ac85ad39df
commit 618f9745f8
1 changed files with 15 additions and 7 deletions

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

@ -4735,14 +4735,21 @@ begin
{$ifdef HAS_TAR_SUPPORT}
if not assigned(FTarWriter) then
begin
FGZFileStream := TGZFileStream.create(Defaults.ZipPrefix + APackage.Name + MakeZipSuffix(Defaults.CPU,Defaults.OS) +'.tar.gz', gzopenwrite);
If (APackage.Directory<>'') then
EnterDir('');
try
FTarWriter := TTarWriter.Create(FGZFileStream);
FTarWriter.Permissions := [tpReadByOwner, tpWriteByOwner, tpReadByGroup, tpReadByOther];
FTarWriter.UserName := 'root';
FTarWriter.GroupName := 'root';
except
FGZFileStream.Free;
FGZFileStream := TGZFileStream.create(Defaults.ZipPrefix + APackage.Name + MakeZipSuffix(Defaults.CPU,Defaults.OS) +'.tar.gz', gzopenwrite);
try
FTarWriter := TTarWriter.Create(FGZFileStream);
FTarWriter.Permissions := [tpReadByOwner, tpWriteByOwner, tpReadByGroup, tpReadByOther];
FTarWriter.UserName := 'root';
FTarWriter.GroupName := 'root';
except
FGZFileStream.Free;
end;
finally
If (APackage.Directory<>'') then
EnterDir(APackage.Directory);
end;
end;
{$ifdef unix}
@ -8016,3 +8023,4 @@ Finalization
FreeAndNil(GlobalDictionary);
FreeAndNil(Defaults);
end.