#ifdef mingw32_HOST_OS
import System.Posix.Types
import System.Posix.Internals
-import qualified System.Win32
+import qualified System.Win32 as Win32
#else
import qualified System.Posix as Posix
#endif
getPermissions :: FilePath -> IO Permissions
getPermissions name = do
- withCString name $ \s -> do
#ifdef mingw32_HOST_OS
+ withFilePath name $ \s -> do
-- stat() does a better job of guessing the permissions on Windows
-- than access() does. e.g. for execute permission, it looks at the
-- filename extension :-)
setPermissions name (Permissions r w e s) = do
#ifdef mingw32_HOST_OS
allocaBytes sizeof_stat $ \ p_stat -> do
- withCString name $ \p_name -> do
+ withFilePath name $ \p_name -> do
throwErrnoIfMinus1_ "setPermissions" $ do
c_stat p_name p_stat
mode <- st_mode p_stat
let mode1 = modifyBit r mode s_IRUSR
let mode2 = modifyBit w mode1 s_IWUSR
let mode3 = modifyBit (e || s) mode2 s_IXUSR
- c_chmod_ p_name mode3
+ c_wchmod p_name mode3
where
modifyBit :: Bool -> CMode -> CMode -> CMode
modifyBit False m b = m .&. (complement b)
#endif
#ifdef mingw32_HOST_OS
-foreign import ccall unsafe "chmod"
- c_chmod_ :: CString -> CMode -> IO CInt
+foreign import ccall unsafe "_wchmod"
+ c_wchmod :: CWString -> CMode -> IO CInt
#endif
copyPermissions :: FilePath -> FilePath -> IO ()
copyPermissions source dest = do
#ifdef mingw32_HOST_OS
allocaBytes sizeof_stat $ \ p_stat -> do
- withCString source $ \p_source -> do
- withCString dest $ \p_dest -> do
+ withFilePath source $ \p_source -> do
+ withFilePath dest $ \p_dest -> do
throwErrnoIfMinus1_ "copyPermissions" $ c_stat p_source p_stat
mode <- st_mode p_stat
- throwErrnoIfMinus1_ "copyPermissions" $ c_chmod p_dest mode
+ throwErrnoIfMinus1_ "copyPermissions" $ c_wchmod p_dest mode
#else
stat <- Posix.getFileStatus source
let mode = Posix.fileMode stat
createDirectory :: FilePath -> IO ()
createDirectory path = do
#ifdef mingw32_HOST_OS
- System.Win32.createDirectory path Nothing
+ Win32.createDirectory path Nothing
#else
Posix.createDirectory path 0o777
#endif
removeDirectory :: FilePath -> IO ()
removeDirectory path =
#ifdef mingw32_HOST_OS
- System.Win32.removeDirectory path
+ Win32.removeDirectory path
#else
Posix.removeDirectory path
#endif
removeFile :: FilePath -> IO ()
removeFile path =
#if mingw32_HOST_OS
- System.Win32.deleteFile path
+ Win32.deleteFile path
#else
Posix.removeLink path
#endif
"not a directory")
else do
#ifdef mingw32_HOST_OS
- System.Win32.moveFileEx opath npath System.Win32.mOVEFILE_REPLACE_EXISTING
+ Win32.moveFileEx opath npath Win32.mOVEFILE_REPLACE_EXISTING
#else
Posix.rename opath npath
#endif
"is a directory")
else do
#ifdef mingw32_HOST_OS
- System.Win32.moveFileEx opath npath System.Win32.mOVEFILE_REPLACE_EXISTING
+ Win32.moveFileEx opath npath Win32.mOVEFILE_REPLACE_EXISTING
#else
Posix.rename opath npath
#endif
canonicalizePath :: FilePath -> IO FilePath
canonicalizePath fpath =
#if defined(mingw32_HOST_OS)
- do path <- System.Win32.getFullPathName fpath
+ do path <- Win32.getFullPathName fpath
#else
withCString fpath $ \pInPath ->
allocaBytes long_path_size $ \pOutPath ->
-}
getDirectoryContents :: FilePath -> IO [FilePath]
-getDirectoryContents path = do
+getDirectoryContents path =
+ modifyIOError ((`ioeSetFileName` path) .
+ (`ioeSetLocation` "getDirectoryContents")) $ do
#ifndef mingw32_HOST_OS
bracket
(Posix.openDirStream path)
es <- loop dirp
return (e:es)
#else
- -- ToDo: rewrite using System.Win32
- modifyIOError (`ioeSetFileName` path) $
- alloca $ \ ptr_dEnt ->
- bracket
- (withCString path $ \s ->
- throwErrnoIfNullRetry desc (c_opendir s))
- (\p -> throwErrnoIfMinus1_ desc (c_closedir p))
- (\p -> loop ptr_dEnt p)
+ bracket
+ (Win32.findFirstFile (path </> "*"))
+ (\(h,_) -> Win32.findClose h)
+ (\(h,fdat) -> loop h fdat [])
where
- desc = "getDirectoryContents"
-
- loop :: Ptr (Ptr CDirent) -> Ptr CDir -> IO [String]
- loop ptr_dEnt dir = do
- resetErrno
- r <- readdir dir ptr_dEnt
- if (r == 0)
- then do
- dEnt <- peek ptr_dEnt
- if (dEnt == nullPtr)
- then return []
- else do
- entry <- (d_name dEnt >>= peekCString)
- freeDirEnt dEnt
- entries <- loop ptr_dEnt dir
- return (entry:entries)
- else do errno <- getErrno
- if (errno == eINTR) then loop ptr_dEnt dir else do
- let (Errno eo) = errno
- if (eo == end_of_dir)
- then return []
- else throwErrno desc
+ -- we needn't worry about empty directories: adirectory always
+ -- has at least "." and ".." entries
+ loop :: Win32.HANDLE -> Win32.FindData -> [FilePath] -> IO [FilePath]
+ loop h fdat acc = do
+ filename <- Win32.getFindDataFileName fdat
+ more <- Win32.findNextFile h fdat
+ if more
+ then loop h fdat (filename:acc)
+ else return (filename:acc)
+ -- no need to reverse, ordering is undefined
#endif /* mingw32 */
#endif /* !__HUGS__ */
getCurrentDirectory :: IO FilePath
getCurrentDirectory = do
#ifdef mingw32_HOST_OS
- System.Win32.getCurrentDirectory
+ Win32.getCurrentDirectory
#else
Posix.getWorkingDirectory
#endif
setCurrentDirectory :: FilePath -> IO ()
setCurrentDirectory path =
#ifdef mingw32_HOST_OS
- System.Win32.setCurrentDirectory path
+ Win32.setCurrentDirectory path
#else
Posix.changeWorkingDirectory path
#endif
withFileStatus loc name f = do
modifyIOError (`ioeSetFileName` name) $
allocaBytes sizeof_stat $ \p ->
- withCString (fileNameEndClean name) $ \s -> do
+ withFilePath (fileNameEndClean name) $ \s -> do
throwErrnoIfMinus1Retry_ loc (c_stat s p)
f p
withFileOrSymlinkStatus loc name f = do
modifyIOError (`ioeSetFileName` name) $
allocaBytes sizeof_stat $ \p ->
- withCString name $ \s -> do
+ withFilePath name $ \s -> do
throwErrnoIfMinus1Retry_ loc (lstat s p)
f p
getTemporaryDirectory :: IO FilePath
getTemporaryDirectory = do
#if defined(mingw32_HOST_OS)
- System.Win32.getTemporaryDirectory
+ Win32.getTemporaryDirectory
#else
getEnv "TMPDIR"
#if !__NHC__