{-# LINE 1 "libraries/directory/System/Directory/Internal/C_utimensat.hsc" #-}
module System.Directory.Internal.C_utimensat where
{-# LINE 4 "libraries/directory/System/Directory/Internal/C_utimensat.hsc" #-}
{-# LINE 5 "libraries/directory/System/Directory/Internal/C_utimensat.hsc" #-}
{-# LINE 7 "libraries/directory/System/Directory/Internal/C_utimensat.hsc" #-}
{-# LINE 8 "libraries/directory/System/Directory/Internal/C_utimensat.hsc" #-}
{-# LINE 10 "libraries/directory/System/Directory/Internal/C_utimensat.hsc" #-}
{-# LINE 11 "libraries/directory/System/Directory/Internal/C_utimensat.hsc" #-}
{-# LINE 13 "libraries/directory/System/Directory/Internal/C_utimensat.hsc" #-}
import Prelude ()
import System.Directory.Internal.Prelude
import Data.Time.Clock.POSIX (POSIXTime)
data CTimeSpec = CTimeSpec EpochTime CLong
instance Storable CTimeSpec where
sizeOf _ = (16)
{-# LINE 22 "libraries/directory/System/Directory/Internal/C_utimensat.hsc" #-}
alignment _ = (8)
{-# LINE 24 "libraries/directory/System/Directory/Internal/C_utimensat.hsc" #-}
poke p (CTimeSpec sec nsec) = do
((\hsc_ptr -> pokeByteOff hsc_ptr 0)) p sec
{-# LINE 26 "libraries/directory/System/Directory/Internal/C_utimensat.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 8)) p nsec
{-# LINE 27 "libraries/directory/System/Directory/Internal/C_utimensat.hsc" #-}
peek p = do
sec <- (\hsc_ptr -> peekByteOff hsc_ptr 0) p
{-# LINE 29 "libraries/directory/System/Directory/Internal/C_utimensat.hsc" #-}
nsec <- (\hsc_ptr -> peekByteOff hsc_ptr 8) p
{-# LINE 30 "libraries/directory/System/Directory/Internal/C_utimensat.hsc" #-}
return (CTimeSpec sec nsec)
c_AT_FDCWD :: CInt
c_AT_FDCWD = (-100)
{-# LINE 34 "libraries/directory/System/Directory/Internal/C_utimensat.hsc" #-}
utimeOmit :: CTimeSpec
utimeOmit = CTimeSpec (CTime 0) (1073741822)
{-# LINE 37 "libraries/directory/System/Directory/Internal/C_utimensat.hsc" #-}
toCTimeSpec :: POSIXTime -> CTimeSpec
toCTimeSpec t = CTimeSpec (CTime sec) (truncate $ 10 ^ (9 :: Int) * frac)
where
(sec, frac) = if frac' < 0 then (sec' - 1, frac' + 1) else (sec', frac')
(sec', frac') = properFraction (toRational t)
foreign import ccall "utimensat" c_utimensat
:: CInt -> CString -> Ptr CTimeSpec -> CInt -> IO CInt
{-# LINE 48 "libraries/directory/System/Directory/Internal/C_utimensat.hsc" #-}