From bfbe1d5324398cb3ecd2f4f19469eac5ee4aac0f Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Thu, 2 Feb 2012 20:39:51 +0000
Subject: [PATCH]  * Copy file-rights (executable bit) from files on unices

git-svn-id: trunk@20218 -
---
 packages/fpmkunit/src/fpmkunit.pp | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/packages/fpmkunit/src/fpmkunit.pp b/packages/fpmkunit/src/fpmkunit.pp
index b60b0f18e6..33146ed530 100644
--- a/packages/fpmkunit/src/fpmkunit.pp
+++ b/packages/fpmkunit/src/fpmkunit.pp
@@ -44,6 +44,9 @@ Interface
 {$endif NO_UNIT_ZIPPER}
 
 uses
+{$ifdef UNIX}
+  BaseUnix,
+{$endif UNIX}
 {$ifndef NO_THREADING}
 {$ifdef UNIX}
   cthreads,
@@ -1197,6 +1200,8 @@ ResourceString
   SWarnSkipPackageTarget = 'Skipped package %s which has been disabled for target %s';
   SWarnInstallationPackagecomplete = 'Installation package %s for target %s succeeded';
   SWarnCleanPackagecomplete = 'Clean of package %s completed';
+  SWarnCanNotGetAccessRights = 'Warning: Failed to copy access-rights from file %s';
+  SWarnCanNotSetAccessRights = 'Warning: Failed to copy access-rights to file %s';
 
   SInfoPackageAlreadyProcessed = 'Package %s is already processed';
   SInfoCompilingTarget    = 'Compiling target %s';
@@ -3913,6 +3918,9 @@ Var
   Fin,FOut : TFileStream;
   Count : Int64;
   A : Integer;
+{$ifdef UNIX}
+  FileStat: stat;
+{$endif UNIX}
 begin
   Log(vlInfo,SInfoCopyingFile,[Src,Dest]);
   FIn:=TFileStream.Create(Src,fmopenRead);
@@ -3936,6 +3944,14 @@ begin
     else
       if FileSetDate(S,A)<>0 then
         Log(vlWarning,SWarnFailedToSetTime,[S]);
+{$ifdef UNIX}
+    // Copy the file-access rights on Unix, especially the executable-bit
+    if FpStat(Src,FileStat) <> 0 then
+      Log(vlWarning,SWarnCanNotGetAccessRights,[Src])
+    else
+      if FpChmod(s,FileStat.mode) <> 0 then
+        Log(vlWarning,SWarnCanNotSetAccessRights,[S]);
+{$endif UNIX}
   finally
     FreeAndNil(Fin);
   end;