Add BlockSize and BlocksCount fields for FileStatus

TODO: find a better place for the new types

Author: guibou

System/Posix/Files.hsc

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

System/Posix/Files/Common.hsc

@@ -50,7 +50,7 @@ module System.Posix.Files.Common (
     getFdStatus,
     -- ** Querying file status
     deviceID, fileID, fileMode, linkCount, fileOwner, fileGroup,
-    specialDeviceID, fileSize, accessTime, modificationTime,
+    specialDeviceID, fileSize, blockSize, blocksCount, accessTime, modificationTime,
     statusChangeTime,
     accessTimeHiRes, modificationTimeHiRes, statusChangeTimeHiRes,
     setFdTimesHiRes, touchFd,
@@ -234,6 +234,11 @@ setFileCreationMask mask = c_umask mask
 -- -----------------------------------------------------------------------------
 -- stat() support
 
+-- TODO: Those values should be defined in package base
+-- and correct type should be used. CSsize works, but without guarantee
+type BlockSize = CSsize
+type BlocksCount = CSsize
+
 -- | POSIX defines operations to get information, such as owner, permissions,
 -- size and access times, about a file. This information is represented by the
 -- 'FileStatus' type.
@@ -258,6 +263,10 @@ 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
+-- | BlockSize for file
+blockSize        :: FileStatus -> BlockSize
+-- | Number of blocks
+blocksCount        :: FileStatus -> BlocksCount
 -- | Time of last access.
 accessTime       :: FileStatus -> EpochTime
 -- | Time of last access in sub-second resolution.
@@ -287,6 +296,10 @@ specialDeviceID (FileStatus stat) =
   unsafePerformIO $ withForeignPtr stat $ (#peek struct stat, st_rdev)
 fileSize (FileStatus stat) =
   unsafePerformIO $ withForeignPtr stat $ (#peek struct stat, st_size)
+blockSize (FileStatus stat) =
+  unsafePerformIO $ withForeignPtr stat $ (#peek struct stat, st_blksize)
+blocksCount (FileStatus stat) =
+  unsafePerformIO $ withForeignPtr stat $ (#peek struct stat, st_blocks)
 accessTime (FileStatus stat) =
   unsafePerformIO $ withForeignPtr stat $ (#peek struct stat, st_atime)
 modificationTime (FileStatus stat) =