Add accessors for st_blocks and st_blksize

Author: DanielG

System/Posix/Files.hsc

@@ -57,7 +57,11 @@ module System.Posix.Files (
     getFileStatus, getFdStatus, getSymbolicLinkStatus,
     -- ** Querying file status
     deviceID, fileID, fileMode, linkCount, fileOwner, fileGroup,
-    specialDeviceID, fileSize, accessTime, modificationTime,
+    specialDeviceID, fileSize,
+#ifdef HAVE_STRUCT_STAT_ST_BLKSIZE
+    fileBlockSize,
+#endif
+    fileBlocks, accessTime, modificationTime,
     statusChangeTime,
     accessTimeHiRes, modificationTimeHiRes, statusChangeTimeHiRes,
     isBlockDevice, isCharacterDevice, isNamedPipe, isRegularFile,

System/Posix/Files/ByteString.hsc

@@ -57,7 +57,11 @@ module System.Posix.Files.ByteString (
     getFileStatus, getFdStatus, getSymbolicLinkStatus,
     -- ** Querying file status
     deviceID, fileID, fileMode, linkCount, fileOwner, fileGroup,
-    specialDeviceID, fileSize, accessTime, modificationTime,
+    specialDeviceID, fileSize,
+#ifdef HAVE_STRUCT_STAT_ST_BLKSIZE
+    fileBlockSize,
+#endif
+    fileBlocks, accessTime, modificationTime,
     statusChangeTime,
     accessTimeHiRes, modificationTimeHiRes, statusChangeTimeHiRes,
     isBlockDevice, isCharacterDevice, isNamedPipe, isRegularFile,

System/Posix/Files/Common.hsc

@@ -49,7 +49,11 @@ module System.Posix.Files.Common (
     getFdStatus,
     -- ** Querying file status
     deviceID, fileID, fileMode, linkCount, fileOwner, fileGroup,
-    specialDeviceID, fileSize, accessTime, modificationTime,
+    specialDeviceID, fileSize,
+#ifdef HAVE_STRUCT_STAT_ST_BLKSIZE
+    fileBlockSize,
+#endif
+    fileBlocks, accessTime, modificationTime,
     statusChangeTime,
     accessTimeHiRes, modificationTimeHiRes, statusChangeTimeHiRes,
     setFdTimesHiRes, touchFd,
@@ -250,6 +254,8 @@ specialDeviceID  :: FileStatus -> DeviceID
 -- | Size of the file in bytes. If this file is a symbolic link the size is
 -- the length of the pathname it contains.
 fileSize         :: FileStatus -> FileOffset
+-- | Number of block blocks allocated for this file, in units of 512-byte.
+fileBlocks       :: FileStatus -> CBlkCnt
 -- | Time of last access.
 accessTime       :: FileStatus -> EpochTime
 -- | Time of last access in sub-second resolution.
@@ -279,13 +285,22 @@ specialDeviceID (FileStatus stat) =
   unsafePerformIO $ withForeignPtr stat $ (#peek struct stat, st_rdev)
 fileSize (FileStatus stat) =
   unsafePerformIO $ withForeignPtr stat $ (#peek struct stat, st_size)
+fileBlocks (FileStatus stat) =
+  unsafePerformIO $ withForeignPtr stat $ (#peek struct stat, st_blocks)
 accessTime (FileStatus stat) =
   unsafePerformIO $ withForeignPtr stat $ (#peek struct stat, st_atime)
 modificationTime (FileStatus stat) =
   unsafePerformIO $ withForeignPtr stat $ (#peek struct stat, st_mtime)
 statusChangeTime (FileStatus stat) =
   unsafePerformIO $ withForeignPtr stat $ (#peek struct stat, st_ctime)
 
+#ifdef HAVE_STRUCT_STAT_ST_BLKSIZE
+-- | Gives the preferred block size for efficient filesystem I/O in bytes.
+fileBlockSize    :: FileStatus -> CBlkSize
+fileBlockSize (FileStatus stat) =
+  unsafePerformIO $ withForeignPtr stat $ (#peek struct stat, st_blksize)
+#endif
+
 accessTimeHiRes (FileStatus stat) =
   unsafePerformIO $ withForeignPtr stat $ \stat_ptr -> do
     sec  <- (#peek struct stat, st_atime) stat_ptr :: IO EpochTime

configure.ac

@@ -64,6 +64,8 @@ AC_CHECK_MEMBERS([struct stat.st_uatime])
 AC_CHECK_MEMBERS([struct stat.st_umtime])
 AC_CHECK_MEMBERS([struct stat.st_uctime])
 
+AC_CHECK_MEMBERS([struct stat.st_blksize])
+
 AC_CHECK_MEMBER([struct passwd.pw_gecos], [], [AC_DEFINE([HAVE_NO_PASSWD_PW_GECOS],[],[Ignore the pw_gecos member of passwd where it does not exist])], [[#include <pwd.h>]])
 
 # Functions for changing file timestamps