paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:09:17 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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