{-# OPTIONS_GHC -w #-}-- XXX We get some warnings on Windows------------------------------------------------------------------------------- |-- Module : System.Directory-- Copyright : (c) The University of Glasgow 2001-- License : BSD-style (see the file libraries/base/LICENSE)-- -- Maintainer : libraries@haskell.org-- Stability : stable-- Portability : portable---- System-independent interface to directory manipulation.-------------------------------------------------------------------------------moduleSystem.Directory(-- $intro-- * Actions on directoriescreateDirectory-- :: FilePath -> IO ()#ifndef __NHC__,createDirectoryIfMissing-- :: Bool -> FilePath -> IO ()#endif,removeDirectory-- :: FilePath -> IO (),removeDirectoryRecursive-- :: FilePath -> IO (),renameDirectory-- :: FilePath -> FilePath -> IO (),getDirectoryContents-- :: FilePath -> IO [FilePath],getCurrentDirectory-- :: IO FilePath,setCurrentDirectory-- :: FilePath -> IO ()-- * Pre-defined directories,getHomeDirectory,getAppUserDataDirectory,getUserDocumentsDirectory,getTemporaryDirectory-- * Actions on files,removeFile-- :: FilePath -> IO (),renameFile-- :: FilePath -> FilePath -> IO (),copyFile-- :: FilePath -> FilePath -> IO (),canonicalizePath,makeRelativeToCurrentDirectory,findExecutable-- * Existence tests,doesFileExist-- :: FilePath -> IO Bool,doesDirectoryExist-- :: FilePath -> IO Bool-- * Permissions-- $permissions,Permissions(Permissions,readable,-- :: Permissions -> Boolwritable,-- :: Permissions -> Boolexecutable,-- :: Permissions -> Boolsearchable-- :: Permissions -> Bool),getPermissions-- :: FilePath -> IO Permissions,setPermissions-- :: FilePath -> Permissions -> IO (),copyPermissions-- * Timestamps,getModificationTime-- :: FilePath -> IO ClockTime)whereimportPreludehiding(catch)importqualifiedPreludeimportControl.Monad(guard)importSystem.Environment(getEnv)importSystem.FilePathimportSystem.IOimportSystem.IO.Errorhiding(catch,try)importControl.Monad(when,unless)importControl.Exception.Base#ifdef __NHC__importDirectory-- hiding ( getDirectoryContents-- , doesDirectoryExist, doesFileExist-- , getModificationTime )importSystem(system)#endif /* __NHC__ */#ifdef __HUGS__importHugs.Directory#endif /* __HUGS__ */importForeignimportForeign.C{-# CFILES cbits/directory.c #-}importSystem.Time(ClockTime(..))#ifdef __GLASGOW_HASKELL__#if __GLASGOW_HASKELL__ >= 611importGHC.IO.Exception(IOException(..),IOErrorType(..),ioException)#elseimportGHC.IOBase(IOException(..),IOErrorType(..),ioException)#endif#ifdef mingw32_HOST_OSimportSystem.Posix.TypesimportSystem.Posix.InternalsimportqualifiedSystem.Win32asWin32#elseimportqualifiedSystem.PosixasPosix#endif{- $intro
A directory contains a series of entries, each of which is a named
reference to a file system object (file, directory etc.). Some
entries may be hidden, inaccessible, or have some administrative
function (e.g. `.' or `..' under POSIX
<http://www.opengroup.org/onlinepubs/009695399/>), but in
this standard all such entries are considered to form part of the
directory contents. Entries in sub-directories are not, however,
considered to form part of the directory contents.
Each file system object is referenced by a /path/. There is
normally at least one absolute path to each file system object. In
some operating systems, it may also be possible to have paths which
are relative to the current directory.
-}------------------------------------------------------------------------------- Permissions{- $permissions
The 'Permissions' type is used to record whether certain operations are
permissible on a file\/directory. 'getPermissions' and 'setPermissions'
get and set these permissions, respectively. Permissions apply both to
files and directories. For directories, the executable field will be
'False', and for files the searchable field will be 'False'. Note that
directories may be searchable without being readable, if permission has
been given to use them as part of a path, but not to examine the
directory contents.
Note that to change some, but not all permissions, a construct on the following lines must be used.
> makeReadable f = do
> p <- getPermissions f
> setPermissions f (p {readable = True})
-}dataPermissions=Permissions{readable,writable,executable,searchable::Bool}deriving(Eq,Ord,Read,Show){- |The 'getPermissions' operation returns the
permissions for the file or directory.
The operation may fail with:
* 'isPermissionError' if the user is not permitted to access
the permissions; or
* 'isDoesNotExistError' if the file or directory does not exist.
-}getPermissions::FilePath->IOPermissionsgetPermissionsname=do#ifdef mingw32_HOST_OSwithFilePathname$\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 :-)---- I tried for a while to do this properly, using the Windows security API,-- and eventually gave up. getPermissions is a flawed API anyway. -- SimonMallocaBytessizeof_stat$\p_stat->dothrowErrnoIfMinus1_"getPermissions"$c_statsp_statmode<-st_modep_statletusr_read=mode.&.s_IRUSRletusr_write=mode.&.s_IWUSRletusr_exec=mode.&.s_IXUSRletis_dir=mode.&.s_IFDIRreturn(Permissions{readable=usr_read/=0,writable=usr_write/=0,executable=is_dir==0&&usr_exec/=0,searchable=is_dir/=0&&usr_exec/=0})#elseread_ok<-Posix.fileAccessnameTrueFalseFalsewrite_ok<-Posix.fileAccessnameFalseTrueFalseexec_ok<-Posix.fileAccessnameFalseFalseTruestat<-Posix.getFileStatusnameletis_dir=Posix.isDirectorystatreturn(Permissions{readable=read_ok,writable=write_ok,executable=notis_dir&&exec_ok,searchable=is_dir&&exec_ok})#endif{- |The 'setPermissions' operation sets the
permissions for the file or directory.
The operation may fail with:
* 'isPermissionError' if the user is not permitted to set
the permissions; or
* 'isDoesNotExistError' if the file or directory does not exist.
-}setPermissions::FilePath->Permissions->IO()setPermissionsname(Permissionsrwes)=do#ifdef mingw32_HOST_OSallocaBytessizeof_stat$\p_stat->dowithFilePathname$\p_name->dothrowErrnoIfMinus1_"setPermissions"$doc_statp_namep_statmode<-st_modep_statletmode1=modifyBitrmodes_IRUSRletmode2=modifyBitwmode1s_IWUSRletmode3=modifyBit(e||s)mode2s_IXUSRc_wchmodp_namemode3wheremodifyBit::Bool->CMode->CMode->CModemodifyBitFalsemb=m.&.(complementb)modifyBitTruemb=m.|.b#elsestat<-Posix.getFileStatusnameletmode=Posix.fileModestatletmode1=modifyBitrmodePosix.ownerReadModeletmode2=modifyBitwmode1Posix.ownerWriteModeletmode3=modifyBit(e||s)mode2Posix.ownerExecuteModePosix.setFileModenamemode3wheremodifyBit::Bool->Posix.FileMode->Posix.FileMode->Posix.FileModemodifyBitFalsemb=m.&.(complementb)modifyBitTruemb=m.|.b#endif#ifdef mingw32_HOST_OSforeignimportccallunsafe"_wchmod"c_wchmod::CWString->CMode->IOCInt#endifcopyPermissions::FilePath->FilePath->IO()copyPermissionssourcedest=do#ifdef mingw32_HOST_OSallocaBytessizeof_stat$\p_stat->dowithFilePathsource$\p_source->dowithFilePathdest$\p_dest->dothrowErrnoIfMinus1_"copyPermissions"$c_statp_sourcep_statmode<-st_modep_statthrowErrnoIfMinus1_"copyPermissions"$c_wchmodp_destmode#elsestat<-Posix.getFileStatussourceletmode=Posix.fileModestatPosix.setFileModedestmode#endif------------------------------------------------------------------------------- Implementation{- |@'createDirectory' dir@ creates a new directory @dir@ which is
initially empty, or as near to empty as the operating system
allows.
The operation may fail with:
* 'isPermissionError' \/ 'PermissionDenied'
The process has insufficient privileges to perform the operation.
@[EROFS, EACCES]@
* 'isAlreadyExistsError' \/ 'AlreadyExists'
The operand refers to a directory that already exists.
@ [EEXIST]@
* 'HardwareFault'
A physical I\/O error has occurred.
@[EIO]@
* 'InvalidArgument'
The operand is not a valid directory name.
@[ENAMETOOLONG, ELOOP]@
* 'NoSuchThing'
There is no path to the directory.
@[ENOENT, ENOTDIR]@
* 'ResourceExhausted'
Insufficient resources (virtual memory, process file descriptors,
physical disk space, etc.) are available to perform the operation.
@[EDQUOT, ENOSPC, ENOMEM, EMLINK]@
* 'InappropriateType'
The path refers to an existing non-directory object.
@[EEXIST]@
-}createDirectory::FilePath->IO()createDirectorypath=do#ifdef mingw32_HOST_OSWin32.createDirectorypathNothing#elsePosix.createDirectorypath0o777#endif#else /* !__GLASGOW_HASKELL__ */copyPermissions::FilePath->FilePath->IO()copyPermissionsfromFPathtoFPath=getPermissionsfromFPath>>=setPermissionstoFPath#endif#ifndef __NHC__-- | @'createDirectoryIfMissing' parents dir@ creates a new directory -- @dir@ if it doesn\'t exist. If the first argument is 'True'-- the function will also create all parent directories if they are missing.createDirectoryIfMissing::Bool-- ^ Create its parents too?->FilePath-- ^ The path to the directory you want to make->IO()createDirectoryIfMissingcreate_parentspath0|create_parents=createDirs(parentspath0)|otherwise=createDirs(take1(parentspath0))whereparents=reverse.scanl1(</>).splitDirectories.normalisecreateDirs[]=return()createDirs(dir:[])=createDirdirthrowcreateDirs(dir:dirs)=createDirdir$\_->docreateDirsdirscreateDirdirthrowcreateDir::FilePath->(IOException->IO())->IO()createDirdirnotExistHandler=dor<-try$createDirectorydircase(r::EitherIOException())ofRight()->return()Lefte|isDoesNotExistErrore->notExistHandlere-- createDirectory (and indeed POSIX mkdir) does not distinguish-- between a dir already existing and a file already existing. So we-- check for it here. Unfortunately there is a slight race condition-- here, but we think it is benign. It could report an exeption in-- the case that the dir did exist but another process deletes the-- directory and creates a file in its place before we can check-- that the directory did indeed exist.|isAlreadyExistsErrore->(do#ifdef mingw32_HOST_OSwithFileStatus"createDirectoryIfMissing"dir$\st->doisDir<-isDirectorystifisDirthenreturn()elsethrowe#elsestat<-Posix.getFileStatusdirifPosix.isDirectorystatthenreturn()elsethrowe#endif)`catch`((\_->return())::IOException->IO())|otherwise->throwe#endif /* !__NHC__ */#if __GLASGOW_HASKELL__{- | @'removeDirectory' dir@ removes an existing directory /dir/. The
implementation may specify additional constraints which must be
satisfied before a directory can be removed (e.g. the directory has to
be empty, or may not be in use by other processes). It is not legal
for an implementation to partially remove a directory unless the
entire directory is removed. A conformant implementation need not
support directory removal in all situations (e.g. removal of the root
directory).
The operation may fail with:
* 'HardwareFault'
A physical I\/O error has occurred.
EIO
* 'InvalidArgument'
The operand is not a valid directory name.
[ENAMETOOLONG, ELOOP]
* 'isDoesNotExistError' \/ 'NoSuchThing'
The directory does not exist.
@[ENOENT, ENOTDIR]@
* 'isPermissionError' \/ 'PermissionDenied'
The process has insufficient privileges to perform the operation.
@[EROFS, EACCES, EPERM]@
* 'UnsatisfiedConstraints'
Implementation-dependent constraints are not satisfied.
@[EBUSY, ENOTEMPTY, EEXIST]@
* 'UnsupportedOperation'
The implementation does not support removal in this situation.
@[EINVAL]@
* 'InappropriateType'
The operand refers to an existing non-directory object.
@[ENOTDIR]@
-}removeDirectory::FilePath->IO()removeDirectorypath=#ifdef mingw32_HOST_OSWin32.removeDirectorypath#elsePosix.removeDirectorypath#endif#endif-- | @'removeDirectoryRecursive' dir@ removes an existing directory /dir/-- together with its content and all subdirectories. Be careful, -- if the directory contains symlinks, the function will follow them.removeDirectoryRecursive::FilePath->IO()removeDirectoryRecursivestartLoc=docont<-getDirectoryContentsstartLocsequence_[rm(startLoc</>x)|x<-cont,x/="."&&x/=".."]removeDirectorystartLocwhererm::FilePath->IO()rmf=dotemp<-try(removeFilef)casetempofLefte->doisDir<-doesDirectoryExistf-- If f is not a directory, re-throw the errorunlessisDir$throw(e::SomeException)removeDirectoryRecursivefRight_->return()#if __GLASGOW_HASKELL__{- |'removeFile' /file/ removes the directory entry for an existing file
/file/, where /file/ is not itself a directory. The
implementation may specify additional constraints which must be
satisfied before a file can be removed (e.g. the file may not be in
use by other processes).
The operation may fail with:
* 'HardwareFault'
A physical I\/O error has occurred.
@[EIO]@
* 'InvalidArgument'
The operand is not a valid file name.
@[ENAMETOOLONG, ELOOP]@
* 'isDoesNotExistError' \/ 'NoSuchThing'
The file does not exist.
@[ENOENT, ENOTDIR]@
* 'isPermissionError' \/ 'PermissionDenied'
The process has insufficient privileges to perform the operation.
@[EROFS, EACCES, EPERM]@
* 'UnsatisfiedConstraints'
Implementation-dependent constraints are not satisfied.
@[EBUSY]@
* 'InappropriateType'
The operand refers to an existing directory.
@[EPERM, EINVAL]@
-}removeFile::FilePath->IO()removeFilepath=#if mingw32_HOST_OSWin32.deleteFilepath#elsePosix.removeLinkpath#endif{- |@'renameDirectory' old new@ changes the name of an existing
directory from /old/ to /new/. If the /new/ directory
already exists, it is atomically replaced by the /old/ directory.
If the /new/ directory is neither the /old/ directory nor an
alias of the /old/ directory, it is removed as if by
'removeDirectory'. A conformant implementation need not support
renaming directories in all situations (e.g. renaming to an existing
directory, or across different physical devices), but the constraints
must be documented.
On Win32 platforms, @renameDirectory@ fails if the /new/ directory already
exists.
The operation may fail with:
* 'HardwareFault'
A physical I\/O error has occurred.
@[EIO]@
* 'InvalidArgument'
Either operand is not a valid directory name.
@[ENAMETOOLONG, ELOOP]@
* 'isDoesNotExistError' \/ 'NoSuchThing'
The original directory does not exist, or there is no path to the target.
@[ENOENT, ENOTDIR]@
* 'isPermissionError' \/ 'PermissionDenied'
The process has insufficient privileges to perform the operation.
@[EROFS, EACCES, EPERM]@
* 'ResourceExhausted'
Insufficient resources are available to perform the operation.
@[EDQUOT, ENOSPC, ENOMEM, EMLINK]@
* 'UnsatisfiedConstraints'
Implementation-dependent constraints are not satisfied.
@[EBUSY, ENOTEMPTY, EEXIST]@
* 'UnsupportedOperation'
The implementation does not support renaming in this situation.
@[EINVAL, EXDEV]@
* 'InappropriateType'
Either path refers to an existing non-directory object.
@[ENOTDIR, EISDIR]@
-}renameDirectory::FilePath->FilePath->IO()renameDirectoryopathnpath=do-- XXX this test isn't performed atomically with the following rename#ifdef mingw32_HOST_OS-- ToDo: use Win32 APIwithFileStatus"renameDirectory"opath$\st->dois_dir<-isDirectoryst#elsestat<-Posix.getFileStatusopathletis_dir=Posix.fileModestat.&.Posix.directoryMode/=0#endifif(notis_dir)thenioException(ioeSetErrorString(mkIOErrorInappropriateType"renameDirectory"Nothing(Justopath))"not a directory")elsedo#ifdef mingw32_HOST_OSWin32.moveFileExopathnpathWin32.mOVEFILE_REPLACE_EXISTING#elsePosix.renameopathnpath#endif{- |@'renameFile' old new@ changes the name of an existing file system
object from /old/ to /new/. If the /new/ object already
exists, it is atomically replaced by the /old/ object. Neither
path may refer to an existing directory. A conformant implementation
need not support renaming files in all situations (e.g. renaming
across different physical devices), but the constraints must be
documented.
The operation may fail with:
* 'HardwareFault'
A physical I\/O error has occurred.
@[EIO]@
* 'InvalidArgument'
Either operand is not a valid file name.
@[ENAMETOOLONG, ELOOP]@
* 'isDoesNotExistError' \/ 'NoSuchThing'
The original file does not exist, or there is no path to the target.
@[ENOENT, ENOTDIR]@
* 'isPermissionError' \/ 'PermissionDenied'
The process has insufficient privileges to perform the operation.
@[EROFS, EACCES, EPERM]@
* 'ResourceExhausted'
Insufficient resources are available to perform the operation.
@[EDQUOT, ENOSPC, ENOMEM, EMLINK]@
* 'UnsatisfiedConstraints'
Implementation-dependent constraints are not satisfied.
@[EBUSY]@
* 'UnsupportedOperation'
The implementation does not support renaming in this situation.
@[EXDEV]@
* 'InappropriateType'
Either path refers to an existing directory.
@[ENOTDIR, EISDIR, EINVAL, EEXIST, ENOTEMPTY]@
-}renameFile::FilePath->FilePath->IO()renameFileopathnpath=do-- XXX this test isn't performed atomically with the following rename#ifdef mingw32_HOST_OS-- ToDo: use Win32 APIwithFileOrSymlinkStatus"renameFile"opath$\st->dois_dir<-isDirectoryst#elsestat<-Posix.getSymbolicLinkStatusopathletis_dir=Posix.isDirectorystat#endififis_dirthenioException(ioeSetErrorString(mkIOErrorInappropriateType"renameFile"Nothing(Justopath))"is a directory")elsedo#ifdef mingw32_HOST_OSWin32.moveFileExopathnpathWin32.mOVEFILE_REPLACE_EXISTING#elsePosix.renameopathnpath#endif#endif /* __GLASGOW_HASKELL__ */{- |@'copyFile' old new@ copies the existing file from /old/ to /new/.
If the /new/ file already exists, it is atomically replaced by the /old/ file.
Neither path may refer to an existing directory. The permissions of /old/ are
copied to /new/, if possible.
-}copyFile::FilePath->FilePath->IO()#ifdef __NHC__copyFilefromFPathtoFPath=doreadFilefromFPath>>=writeFiletoFPathPrelude.catch(copyPermissionsfromFPathtoFPath)(\_->return())#elsecopyFilefromFPathtoFPath=copy`Prelude.catch`(\exc->throw$ioeSetLocationexc"copyFile")wherecopy=bracket(openBinaryFilefromFPathReadMode)hClose$\hFrom->bracketOnErroropenTmpcleanTmp$\(tmpFPath,hTmp)->doallocaBytesbufferSize$copyContentshFromhTmphClosehTmpignoreIOExceptions$copyPermissionsfromFPathtmpFPathrenameFiletmpFPathtoFPathopenTmp=openBinaryTempFile(takeDirectorytoFPath)".copyFile.tmp"cleanTmp(tmpFPath,hTmp)=doignoreIOExceptions$hClosehTmpignoreIOExceptions$removeFiletmpFPathbufferSize=1024copyContentshFromhTobuffer=docount<-hGetBufhFrombufferbufferSizewhen(count>0)$dohPutBufhTobuffercountcopyContentshFromhTobufferignoreIOExceptionsio=io`catch`ioExceptionIgnorerioExceptionIgnorer::IOException->IO()ioExceptionIgnorer_=return()#endif-- | Given path referring to a file or directory, returns a-- canonicalized path, with the intent that two paths referring-- to the same file\/directory will map to the same canonicalized-- path. Note that it is impossible to guarantee that the-- implication (same file\/dir \<=\> same canonicalizedPath) holds-- in either direction: this function can make only a best-effort-- attempt.canonicalizePath::FilePath->IOFilePathcanonicalizePathfpath=#if defined(mingw32_HOST_OS)dopath<-Win32.getFullPathNamefpath#elsewithCStringfpath$\pInPath->allocaByteslong_path_size$\pOutPath->doc_realpathpInPathpOutPathpath<-peekCStringpOutPath#endifreturn(normalisepath)-- normalise does more stuff, like upper-casing the drive letter#if !defined(mingw32_HOST_OS)foreignimportccallunsafe"realpath"c_realpath::CString->CString->IOCString#endif-- | 'makeRelative' the current directory.makeRelativeToCurrentDirectory::FilePath->IOFilePathmakeRelativeToCurrentDirectoryx=docur<-getCurrentDirectoryreturn$makeRelativecurx-- | Given an executable file name, searches for such file in the-- directories listed in system PATH. The returned value is the path-- to the found executable or Nothing if an executable with the given-- name was not found. For example (findExecutable \"ghc\") gives you-- the path to GHC.---- The path returned by 'findExecutable' corresponds to the-- program that would be executed by 'System.Process.createProcess'-- when passed the same string (as a RawCommand, not a ShellCommand).---- On Windows, 'findExecutable' calls the Win32 function 'SearchPath',-- which may search other places before checking the directories in-- @PATH@. Where it actually searches depends on registry settings,-- but notably includes the directory containing the current-- executable. See-- <http://msdn.microsoft.com/en-us/library/aa365527.aspx> for more-- details. --findExecutable::String->IO(MaybeFilePath)findExecutablebinary=#if defined(mingw32_HOST_OS)Win32.searchPathNothingbinary('.':exeExtension)#elsedopath<-getEnv"PATH"search(splitSearchPathpath)wherefileName=binary<.>exeExtensionsearch::[FilePath]->IO(MaybeFilePath)search[]=returnNothingsearch(d:ds)=doletpath=d</>fileNameb<-doesFileExistpathifbthenreturn(Justpath)elsesearchds#endif#ifdef __GLASGOW_HASKELL__{- |@'getDirectoryContents' dir@ returns a list of /all/ entries
in /dir/.
The operation may fail with:
* 'HardwareFault'
A physical I\/O error has occurred.
@[EIO]@
* 'InvalidArgument'
The operand is not a valid directory name.
@[ENAMETOOLONG, ELOOP]@
* 'isDoesNotExistError' \/ 'NoSuchThing'
The directory does not exist.
@[ENOENT, ENOTDIR]@
* 'isPermissionError' \/ 'PermissionDenied'
The process has insufficient privileges to perform the operation.
@[EACCES]@
* 'ResourceExhausted'
Insufficient resources are available to perform the operation.
@[EMFILE, ENFILE]@
* 'InappropriateType'
The path refers to an existing non-directory object.
@[ENOTDIR]@
-}getDirectoryContents::FilePath->IO[FilePath]getDirectoryContentspath=modifyIOError((`ioeSetFileName`path).(`ioeSetLocation`"getDirectoryContents"))$do#ifndef mingw32_HOST_OSbracket(Posix.openDirStreampath)Posix.closeDirStreamloopwhereloopdirp=doe<-Posix.readDirStreamdirpifnullethenreturn[]elsedoes<-loopdirpreturn(e:es)#elsebracket(Win32.findFirstFile(path</>"*"))(\(h,_)->Win32.findCloseh)(\(h,fdat)->loophfdat[])where-- we needn't worry about empty directories: adirectory always-- has at least "." and ".." entriesloop::Win32.HANDLE->Win32.FindData->[FilePath]->IO[FilePath]loophfdatacc=dofilename<-Win32.getFindDataFileNamefdatmore<-Win32.findNextFilehfdatifmorethenloophfdat(filename:acc)elsereturn(filename:acc)-- no need to reverse, ordering is undefined#endif /* mingw32 */#endif /* __GLASGOW_HASKELL__ */{- |If the operating system has a notion of current directories,
'getCurrentDirectory' returns an absolute path to the
current directory of the calling process.
The operation may fail with:
* 'HardwareFault'
A physical I\/O error has occurred.
@[EIO]@
* 'isDoesNotExistError' \/ 'NoSuchThing'
There is no path referring to the current directory.
@[EPERM, ENOENT, ESTALE...]@
* 'isPermissionError' \/ 'PermissionDenied'
The process has insufficient privileges to perform the operation.
@[EACCES]@
* 'ResourceExhausted'
Insufficient resources are available to perform the operation.
* 'UnsupportedOperation'
The operating system has no notion of current directory.
-}#ifdef __GLASGOW_HASKELL__getCurrentDirectory::IOFilePathgetCurrentDirectory=do#ifdef mingw32_HOST_OSWin32.getCurrentDirectory#elsePosix.getWorkingDirectory#endif{- |If the operating system has a notion of current directories,
@'setCurrentDirectory' dir@ changes the current
directory of the calling process to /dir/.
The operation may fail with:
* 'HardwareFault'
A physical I\/O error has occurred.
@[EIO]@
* 'InvalidArgument'
The operand is not a valid directory name.
@[ENAMETOOLONG, ELOOP]@
* 'isDoesNotExistError' \/ 'NoSuchThing'
The directory does not exist.
@[ENOENT, ENOTDIR]@
* 'isPermissionError' \/ 'PermissionDenied'
The process has insufficient privileges to perform the operation.
@[EACCES]@
* 'UnsupportedOperation'
The operating system has no notion of current directory, or the
current directory cannot be dynamically changed.
* 'InappropriateType'
The path refers to an existing non-directory object.
@[ENOTDIR]@
-}setCurrentDirectory::FilePath->IO()setCurrentDirectorypath=#ifdef mingw32_HOST_OSWin32.setCurrentDirectorypath#elsePosix.changeWorkingDirectorypath#endif#endif /* __GLASGOW_HASKELL__ */#ifdef __GLASGOW_HASKELL__{- |The operation 'doesDirectoryExist' returns 'True' if the argument file
exists and is a directory, and 'False' otherwise.
-}doesDirectoryExist::FilePath->IOBooldoesDirectoryExistname=#ifdef mingw32_HOST_OS(withFileStatus"doesDirectoryExist"name$\st->isDirectoryst)#else(dostat<-Posix.getFileStatusnamereturn(Posix.isDirectorystat))#endif`catch`((\_->returnFalse)::IOException->IOBool){- |The operation 'doesFileExist' returns 'True'
if the argument file exists and is not a directory, and 'False' otherwise.
-}doesFileExist::FilePath->IOBooldoesFileExistname=#ifdef mingw32_HOST_OS(withFileStatus"doesFileExist"name$\st->dob<-isDirectoryst;return(notb))#else(dostat<-Posix.getFileStatusnamereturn(not(Posix.isDirectorystat)))#endif`catch`((\_->returnFalse)::IOException->IOBool){- |The 'getModificationTime' operation returns the
clock time at which the file or directory was last modified.
The operation may fail with:
* 'isPermissionError' if the user is not permitted to access
the modification time; or
* 'isDoesNotExistError' if the file or directory does not exist.
-}getModificationTime::FilePath->IOClockTimegetModificationTimename=do#ifdef mingw32_HOST_OS-- ToDo: use Win32 APIwithFileStatus"getModificationTime"name$\st->domodificationTimest#elsestat<-Posix.getFileStatusnameletrealToInteger=round.realToFrac::Reala=>a->Integerreturn(TOD(realToInteger(Posix.modificationTimestat))0)#endif#endif /* __GLASGOW_HASKELL__ */#ifdef mingw32_HOST_OSwithFileStatus::String->FilePath->(PtrCStat->IOa)->IOawithFileStatuslocnamef=domodifyIOError(`ioeSetFileName`name)$allocaBytessizeof_stat$\p->withFilePath(fileNameEndCleanname)$\s->dothrowErrnoIfMinus1Retry_loc(c_statsp)fpwithFileOrSymlinkStatus::String->FilePath->(PtrCStat->IOa)->IOawithFileOrSymlinkStatuslocnamef=domodifyIOError(`ioeSetFileName`name)$allocaBytessizeof_stat$\p->withFilePathname$\s->dothrowErrnoIfMinus1Retry_loc(lstatsp)fpmodificationTime::PtrCStat->IOClockTimemodificationTimestat=domtime<-st_mtimestatletrealToInteger=round.realToFrac::Reala=>a->Integerreturn(TOD(realToInteger(mtime::CTime))0)isDirectory::PtrCStat->IOBoolisDirectorystat=domode<-st_modestatreturn(s_isdirmode)fileNameEndClean::String->StringfileNameEndCleanname=ifisDrivenamethenaddTrailingPathSeparatornameelsedropTrailingPathSeparatornameforeignimportccallunsafe"HsDirectory.h __hscore_S_IRUSR"s_IRUSR::CModeforeignimportccallunsafe"HsDirectory.h __hscore_S_IWUSR"s_IWUSR::CModeforeignimportccallunsafe"HsDirectory.h __hscore_S_IXUSR"s_IXUSR::CModeforeignimportccallunsafe"__hscore_S_IFDIR"s_IFDIR::CMode#endif#ifdef __GLASGOW_HASKELL__foreignimportccallunsafe"__hscore_long_path_size"long_path_size::Int#elselong_path_size::Intlong_path_size=2048-- // guess?#endif /* __GLASGOW_HASKELL__ */{- | Returns the current user's home directory.
The directory returned is expected to be writable by the current user,
but note that it isn't generally considered good practice to store
application-specific data here; use 'getAppUserDataDirectory'
instead.
On Unix, 'getHomeDirectory' returns the value of the @HOME@
environment variable. On Windows, the system is queried for a
suitable path; a typical path might be
@C:/Documents And Settings/user@.
The operation may fail with:
* 'UnsupportedOperation'
The operating system has no notion of home directory.
* 'isDoesNotExistError'
The home directory for the current user does not exist, or
cannot be found.
-}getHomeDirectory::IOFilePathgetHomeDirectory=modifyIOError((`ioeSetLocation`"getHomeDirectory"))$do#if defined(mingw32_HOST_OS)r<-try$Win32.sHGetFolderPathnullPtrWin32.cSIDL_PROFILEnullPtr0case(r::EitherIOExceptionString)ofRights->returnsLeft_->dor1<-try$Win32.sHGetFolderPathnullPtrWin32.cSIDL_WINDOWSnullPtr0caser1ofRights->returnsLefte->ioError(e::IOException)#elsegetEnv"HOME"#endif{- | Returns the pathname of a directory in which application-specific
data for the current user can be stored. The result of
'getAppUserDataDirectory' for a given application is specific to
the current user.
The argument should be the name of the application, which will be used
to construct the pathname (so avoid using unusual characters that
might result in an invalid pathname).
Note: the directory may not actually exist, and may need to be created
first. It is expected that the parent directory exists and is
writable.
On Unix, this function returns @$HOME\/.appName@. On Windows, a
typical path might be
> C:/Documents And Settings/user/Application Data/appName
The operation may fail with:
* 'UnsupportedOperation'
The operating system has no notion of application-specific data directory.
* 'isDoesNotExistError'
The home directory for the current user does not exist, or
cannot be found.
-}getAppUserDataDirectory::String->IOFilePathgetAppUserDataDirectoryappName=domodifyIOError((`ioeSetLocation`"getAppUserDataDirectory"))$do#if defined(mingw32_HOST_OS)s<-Win32.sHGetFolderPathnullPtrWin32.cSIDL_APPDATAnullPtr0return(s++'\\':appName)#elsepath<-getEnv"HOME"return(path++'/':'.':appName)#endif{- | Returns the current user's document directory.
The directory returned is expected to be writable by the current user,
but note that it isn't generally considered good practice to store
application-specific data here; use 'getAppUserDataDirectory'
instead.
On Unix, 'getUserDocumentsDirectory' returns the value of the @HOME@
environment variable. On Windows, the system is queried for a
suitable path; a typical path might be
@C:\/Documents and Settings\/user\/My Documents@.
The operation may fail with:
* 'UnsupportedOperation'
The operating system has no notion of document directory.
* 'isDoesNotExistError'
The document directory for the current user does not exist, or
cannot be found.
-}getUserDocumentsDirectory::IOFilePathgetUserDocumentsDirectory=domodifyIOError((`ioeSetLocation`"getUserDocumentsDirectory"))$do#if defined(mingw32_HOST_OS)Win32.sHGetFolderPathnullPtrWin32.cSIDL_PERSONALnullPtr0#elsegetEnv"HOME"#endif{- | Returns the current directory for temporary files.
On Unix, 'getTemporaryDirectory' returns the value of the @TMPDIR@
environment variable or \"\/tmp\" if the variable isn\'t defined.
On Windows, the function checks for the existence of environment variables in
the following order and uses the first path found:
*
TMP environment variable.
*
TEMP environment variable.
*
USERPROFILE environment variable.
*
The Windows directory
The operation may fail with:
* 'UnsupportedOperation'
The operating system has no notion of temporary directory.
The function doesn\'t verify whether the path exists.
-}getTemporaryDirectory::IOFilePathgetTemporaryDirectory=do#if defined(mingw32_HOST_OS)Win32.getTemporaryDirectory#elsegetEnv"TMPDIR"#if !__NHC__`Prelude.catch`\e->ifisDoesNotExistErrorethenreturn"/tmp"elsethrowe#else`Prelude.catch`(\ex->return"/tmp")#endif#endif-- ToDo: This should be determined via autoconf (AC_EXEEXT)-- | Extension for executable files-- (typically @\"\"@ on Unix and @\"exe\"@ on Windows or OS\/2)exeExtension::String#ifdef mingw32_HOST_OSexeExtension="exe"#elseexeExtension=""#endif