diff --git a/HsDirectoryConfig.h.in b/HsDirectoryConfig.h.in new file mode 100644 --- /dev/null +++ b/HsDirectoryConfig.h.in @@ -0,0 +1,75 @@ +/* HsDirectoryConfig.h.in. Generated from configure.ac by autoheader. */ + +/* Filename extension of executable files */ +#undef EXE_EXTENSION + +/* Define to 1 if you have the `CreateSymbolicLinkW' function. */ +#undef HAVE_CREATESYMBOLICLINKW + +/* Define to 1 if you have the header file. */ +#undef HAVE_FCNTL_H + +/* Define to 1 if you have the `GetFinalPathNameByHandleW' function. */ +#undef HAVE_GETFINALPATHNAMEBYHANDLEW + +/* Define to 1 if you have the header file. */ +#undef HAVE_INTTYPES_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_LIMITS_H + +/* Define to 1 if you have the `realpath' function. */ +#undef HAVE_REALPATH + +/* Define to 1 if you have the header file. */ +#undef HAVE_STDINT_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_STDIO_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_STDLIB_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_STRINGS_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_STRING_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_SYS_STAT_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_SYS_TYPES_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_TIME_H + +/* Define to 1 if you have the header file. */ +#undef HAVE_UNISTD_H + +/* Define to 1 if you have the `utimensat' function. */ +#undef HAVE_UTIMENSAT + +/* Define to the address where bug reports for this package should be sent. */ +#undef PACKAGE_BUGREPORT + +/* Define to the full name of this package. */ +#undef PACKAGE_NAME + +/* Define to the full name and version of this package. */ +#undef PACKAGE_STRING + +/* Define to the one symbol short name of this package. */ +#undef PACKAGE_TARNAME + +/* Define to the home page for this package. */ +#undef PACKAGE_URL + +/* Define to the version of this package. */ +#undef PACKAGE_VERSION + +/* Define to 1 if all of the C90 standard headers exist (not just the ones + required in a freestanding environment). This macro is provided for + backward compatibility; new code need not use it. */ +#undef STDC_HEADERS diff --git a/README.md b/README.md new file mode 100644 --- /dev/null +++ b/README.md @@ -0,0 +1,30 @@ +`directory` +=========== + +[![Hackage][hi]][hl] +[![Build status][bi]][bl] +[![Dependencies status][di]][dl] + +Documentation can be found on [Hackage][hl]. +Changes between versions are recorded in the [change log](changelog.md). + +Building from Git repository +---------------------------- + +When building this package directly from the Git repository, one must run +`autoreconf -fi` to generate the `configure` script needed by `cabal +configure`. This requires [Autoconf][ac] to be installed. + + autoreconf -fi + cabal install + +There is no need to run the `configure` script manually however, as `cabal +configure` does that automatically. + +[hi]: https://img.shields.io/hackage/v/directory.svg +[hl]: https://hackage.haskell.org/package/directory +[bi]: https://github.com/haskell/directory/actions/workflows/build.yml/badge.svg +[bl]: https://github.com/haskell/directory/actions +[di]: https://img.shields.io/hackage-deps/v/directory.svg +[dl]: http://packdeps.haskellers.com/feed?needle=exact:directory +[ac]: https://gnu.org/software/autoconf diff --git a/Setup.hs b/Setup.hs --- a/Setup.hs +++ b/Setup.hs @@ -3,4 +3,4 @@ import Distribution.Simple main :: IO () -main = defaultMainWithHooks defaultUserHooks +main = defaultMainWithHooks autoconfUserHooks diff --git a/System/Directory.hs b/System/Directory.hs --- a/System/Directory.hs +++ b/System/Directory.hs @@ -1,1146 +1,1352 @@ -{-# 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. --- ------------------------------------------------------------------------------ - -module System.Directory - ( - -- $intro - - -- * Actions on directories - createDirectory -- :: 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 -> Bool - writable, -- :: Permissions -> Bool - executable, -- :: Permissions -> Bool - searchable -- :: Permissions -> Bool - ) - - , getPermissions -- :: FilePath -> IO Permissions - , setPermissions -- :: FilePath -> Permissions -> IO () - , copyPermissions - - -- * Timestamps - - , getModificationTime -- :: FilePath -> IO ClockTime - ) where - -import Prelude hiding ( catch ) -import qualified Prelude - -import Control.Monad (guard) -import System.Environment ( getEnv ) -import System.FilePath -import System.IO -import System.IO.Error hiding ( catch, try ) -import Control.Monad ( when, unless ) -import Control.Exception.Base - -#ifdef __NHC__ -import Directory -- hiding ( getDirectoryContents - -- , doesDirectoryExist, doesFileExist - -- , getModificationTime ) -import System (system) -#endif /* __NHC__ */ - -#ifdef __HUGS__ -import Hugs.Directory -#endif /* __HUGS__ */ - -import Foreign -import Foreign.C - -{-# CFILES cbits/directory.c #-} - -import System.Time ( ClockTime(..) ) - -#ifdef __GLASGOW_HASKELL__ - -#if __GLASGOW_HASKELL__ >= 611 -import GHC.IO.Exception ( IOException(..), IOErrorType(..), ioException ) -#else -import GHC.IOBase ( IOException(..), IOErrorType(..), ioException ) -#endif - -#ifdef mingw32_HOST_OS -import System.Posix.Types -import System.Posix.Internals -import qualified System.Win32 as Win32 -#else -import qualified System.Posix as Posix -#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 -), 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}) - --} - -data Permissions - = 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 -> IO Permissions -getPermissions name = 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 :-) - -- - -- I tried for a while to do this properly, using the Windows security API, - -- and eventually gave up. getPermissions is a flawed API anyway. -- SimonM - allocaBytes sizeof_stat $ \ p_stat -> do - throwErrnoIfMinus1_ "getPermissions" $ c_stat s p_stat - mode <- st_mode p_stat - let usr_read = mode .&. s_IRUSR - let usr_write = mode .&. s_IWUSR - let usr_exec = mode .&. s_IXUSR - let is_dir = mode .&. s_IFDIR - return ( - Permissions { - readable = usr_read /= 0, - writable = usr_write /= 0, - executable = is_dir == 0 && usr_exec /= 0, - searchable = is_dir /= 0 && usr_exec /= 0 - } - ) -#else - read_ok <- Posix.fileAccess name True False False - write_ok <- Posix.fileAccess name False True False - exec_ok <- Posix.fileAccess name False False True - stat <- Posix.getFileStatus name - let is_dir = Posix.isDirectory stat - return ( - Permissions { - readable = read_ok, - writable = write_ok, - executable = not is_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 () -setPermissions name (Permissions r w e s) = do -#ifdef mingw32_HOST_OS - allocaBytes sizeof_stat $ \ p_stat -> 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_wchmod p_name mode3 - where - modifyBit :: Bool -> CMode -> CMode -> CMode - modifyBit False m b = m .&. (complement b) - modifyBit True m b = m .|. b -#else - stat <- Posix.getFileStatus name - let mode = Posix.fileMode stat - let mode1 = modifyBit r mode Posix.ownerReadMode - let mode2 = modifyBit w mode1 Posix.ownerWriteMode - let mode3 = modifyBit (e || s) mode2 Posix.ownerExecuteMode - Posix.setFileMode name mode3 - where - modifyBit :: Bool -> Posix.FileMode -> Posix.FileMode -> Posix.FileMode - modifyBit False m b = m .&. (complement b) - modifyBit True m b = m .|. b -#endif - -#ifdef mingw32_HOST_OS -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 - 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_wchmod p_dest mode -#else - stat <- Posix.getFileStatus source - let mode = Posix.fileMode stat - Posix.setFileMode dest mode -#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 () -createDirectory path = do -#ifdef mingw32_HOST_OS - Win32.createDirectory path Nothing -#else - Posix.createDirectory path 0o777 -#endif - -#else /* !__GLASGOW_HASKELL__ */ - -copyPermissions :: FilePath -> FilePath -> IO () -copyPermissions fromFPath toFPath - = getPermissions fromFPath >>= setPermissions toFPath - -#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 () -createDirectoryIfMissing create_parents path0 - | create_parents = createDirs (parents path0) - | otherwise = createDirs (take 1 (parents path0)) - where - parents = reverse . scanl1 () . splitDirectories . normalise - - createDirs [] = return () - createDirs (dir:[]) = createDir dir throw - createDirs (dir:dirs) = - createDir dir $ \_ -> do - createDirs dirs - createDir dir throw - - createDir :: FilePath -> (IOException -> IO ()) -> IO () - createDir dir notExistHandler = do - r <- try $ createDirectory dir - case (r :: Either IOException ()) of - Right () -> return () - Left e - | isDoesNotExistError e -> notExistHandler e - -- 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. - | isAlreadyExistsError e -> (do -#ifdef mingw32_HOST_OS - withFileStatus "createDirectoryIfMissing" dir $ \st -> do - isDir <- isDirectory st - if isDir then return () - else throw e -#else - stat <- Posix.getFileStatus dir - if Posix.isDirectory stat - then return () - else throw e -#endif - ) `catch` ((\_ -> return ()) :: IOException -> IO ()) - | otherwise -> throw e -#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 () -removeDirectory path = -#ifdef mingw32_HOST_OS - Win32.removeDirectory path -#else - Posix.removeDirectory path -#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 () -removeDirectoryRecursive startLoc = do - cont <- getDirectoryContents startLoc - sequence_ [rm (startLoc x) | x <- cont, x /= "." && x /= ".."] - removeDirectory startLoc - where - rm :: FilePath -> IO () - rm f = do temp <- try (removeFile f) - case temp of - Left e -> do isDir <- doesDirectoryExist f - -- If f is not a directory, re-throw the error - unless isDir $ throw (e :: SomeException) - removeDirectoryRecursive f - Right _ -> 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 () -removeFile path = -#if mingw32_HOST_OS - Win32.deleteFile path -#else - Posix.removeLink path -#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 () -renameDirectory opath npath = do - -- XXX this test isn't performed atomically with the following rename -#ifdef mingw32_HOST_OS - -- ToDo: use Win32 API - withFileStatus "renameDirectory" opath $ \st -> do - is_dir <- isDirectory st -#else - stat <- Posix.getFileStatus opath - let is_dir = Posix.fileMode stat .&. Posix.directoryMode /= 0 -#endif - if (not is_dir) - then ioException (ioeSetErrorString - (mkIOError InappropriateType "renameDirectory" Nothing (Just opath)) - "not a directory") - else do -#ifdef mingw32_HOST_OS - Win32.moveFileEx opath npath Win32.mOVEFILE_REPLACE_EXISTING -#else - Posix.rename opath npath -#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 () -renameFile opath npath = do - -- XXX this test isn't performed atomically with the following rename -#ifdef mingw32_HOST_OS - -- ToDo: use Win32 API - withFileOrSymlinkStatus "renameFile" opath $ \st -> do - is_dir <- isDirectory st -#else - stat <- Posix.getSymbolicLinkStatus opath - let is_dir = Posix.isDirectory stat -#endif - if is_dir - then ioException (ioeSetErrorString - (mkIOError InappropriateType "renameFile" Nothing (Just opath)) - "is a directory") - else do -#ifdef mingw32_HOST_OS - Win32.moveFileEx opath npath Win32.mOVEFILE_REPLACE_EXISTING -#else - Posix.rename opath npath -#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__ -copyFile fromFPath toFPath = - do readFile fromFPath >>= writeFile toFPath - Prelude.catch (copyPermissions fromFPath toFPath) - (\_ -> return ()) -#else -copyFile fromFPath toFPath = - copy `Prelude.catch` (\exc -> throw $ ioeSetLocation exc "copyFile") - where copy = bracket (openBinaryFile fromFPath ReadMode) hClose $ \hFrom -> - bracketOnError openTmp cleanTmp $ \(tmpFPath, hTmp) -> - do allocaBytes bufferSize $ copyContents hFrom hTmp - hClose hTmp - ignoreIOExceptions $ copyPermissions fromFPath tmpFPath - renameFile tmpFPath toFPath - openTmp = openBinaryTempFile (takeDirectory toFPath) ".copyFile.tmp" - cleanTmp (tmpFPath, hTmp) - = do ignoreIOExceptions $ hClose hTmp - ignoreIOExceptions $ removeFile tmpFPath - bufferSize = 1024 - - copyContents hFrom hTo buffer = do - count <- hGetBuf hFrom buffer bufferSize - when (count > 0) $ do - hPutBuf hTo buffer count - copyContents hFrom hTo buffer - - ignoreIOExceptions io = io `catch` ioExceptionIgnorer - ioExceptionIgnorer :: 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 -> IO FilePath -canonicalizePath fpath = -#if defined(mingw32_HOST_OS) - do path <- Win32.getFullPathName fpath -#else - withCString fpath $ \pInPath -> - allocaBytes long_path_size $ \pOutPath -> - do throwErrnoPathIfNull "canonicalizePath" fpath $ c_realpath pInPath pOutPath - path <- peekCString pOutPath -#endif - return (normalise path) - -- normalise does more stuff, like upper-casing the drive letter - -#if !defined(mingw32_HOST_OS) -foreign import ccall unsafe "realpath" - c_realpath :: CString - -> CString - -> IO CString -#endif - --- | 'makeRelative' the current directory. -makeRelativeToCurrentDirectory :: FilePath -> IO FilePath -makeRelativeToCurrentDirectory x = do - cur <- getCurrentDirectory - return $ makeRelative cur x - --- | 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 --- for more --- details. --- -findExecutable :: String -> IO (Maybe FilePath) -findExecutable binary = -#if defined(mingw32_HOST_OS) - Win32.searchPath Nothing binary ('.':exeExtension) -#else - do - path <- getEnv "PATH" - search (splitSearchPath path) - where - fileName = binary <.> exeExtension - - search :: [FilePath] -> IO (Maybe FilePath) - search [] = return Nothing - search (d:ds) = do - let path = d fileName - b <- doesFileExist path - if b then return (Just path) - else search ds -#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] -getDirectoryContents path = - modifyIOError ((`ioeSetFileName` path) . - (`ioeSetLocation` "getDirectoryContents")) $ do -#ifndef mingw32_HOST_OS - bracket - (Posix.openDirStream path) - Posix.closeDirStream - loop - where - loop dirp = do - e <- Posix.readDirStream dirp - if null e then return [] else do - es <- loop dirp - return (e:es) -#else - bracket - (Win32.findFirstFile (path "*")) - (\(h,_) -> Win32.findClose h) - (\(h,fdat) -> loop h fdat []) - where - -- 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 /* __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 :: IO FilePath -getCurrentDirectory = do -#ifdef mingw32_HOST_OS - Win32.getCurrentDirectory -#else - Posix.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 () -setCurrentDirectory path = -#ifdef mingw32_HOST_OS - Win32.setCurrentDirectory path -#else - Posix.changeWorkingDirectory path -#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 -> IO Bool -doesDirectoryExist name = -#ifdef mingw32_HOST_OS - (withFileStatus "doesDirectoryExist" name $ \st -> isDirectory st) -#else - (do stat <- Posix.getFileStatus name - return (Posix.isDirectory stat)) -#endif - `catch` ((\ _ -> return False) :: IOException -> IO Bool) - -{- |The operation 'doesFileExist' returns 'True' -if the argument file exists and is not a directory, and 'False' otherwise. --} - -doesFileExist :: FilePath -> IO Bool -doesFileExist name = -#ifdef mingw32_HOST_OS - (withFileStatus "doesFileExist" name $ \st -> do b <- isDirectory st; return (not b)) -#else - (do stat <- Posix.getFileStatus name - return (not (Posix.isDirectory stat))) -#endif - `catch` ((\ _ -> return False) :: IOException -> IO Bool) - -{- |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 -> IO ClockTime -getModificationTime name = do -#ifdef mingw32_HOST_OS - -- ToDo: use Win32 API - withFileStatus "getModificationTime" name $ \ st -> do - modificationTime st -#else - stat <- Posix.getFileStatus name - let realToInteger = round . realToFrac :: Real a => a -> Integer - return (TOD (realToInteger (Posix.modificationTime stat)) 0) -#endif - - -#endif /* __GLASGOW_HASKELL__ */ - -#ifdef mingw32_HOST_OS -withFileStatus :: String -> FilePath -> (Ptr CStat -> IO a) -> IO a -withFileStatus loc name f = do - modifyIOError (`ioeSetFileName` name) $ - allocaBytes sizeof_stat $ \p -> - withFilePath (fileNameEndClean name) $ \s -> do - throwErrnoIfMinus1Retry_ loc (c_stat s p) - f p - -withFileOrSymlinkStatus :: String -> FilePath -> (Ptr CStat -> IO a) -> IO a -withFileOrSymlinkStatus loc name f = do - modifyIOError (`ioeSetFileName` name) $ - allocaBytes sizeof_stat $ \p -> - withFilePath name $ \s -> do - throwErrnoIfMinus1Retry_ loc (lstat s p) - f p - -modificationTime :: Ptr CStat -> IO ClockTime -modificationTime stat = do - mtime <- st_mtime stat - let realToInteger = round . realToFrac :: Real a => a -> Integer - return (TOD (realToInteger (mtime :: CTime)) 0) - -isDirectory :: Ptr CStat -> IO Bool -isDirectory stat = do - mode <- st_mode stat - return (s_isdir mode) - -fileNameEndClean :: String -> String -fileNameEndClean name = if isDrive name then addTrailingPathSeparator name - else dropTrailingPathSeparator name - -foreign import ccall unsafe "HsDirectory.h __hscore_S_IRUSR" s_IRUSR :: CMode -foreign import ccall unsafe "HsDirectory.h __hscore_S_IWUSR" s_IWUSR :: CMode -foreign import ccall unsafe "HsDirectory.h __hscore_S_IXUSR" s_IXUSR :: CMode -foreign import ccall unsafe "__hscore_S_IFDIR" s_IFDIR :: CMode -#endif - - -#ifdef __GLASGOW_HASKELL__ -foreign import ccall unsafe "__hscore_long_path_size" - long_path_size :: Int -#else -long_path_size :: Int -long_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 :: IO FilePath -getHomeDirectory = - modifyIOError ((`ioeSetLocation` "getHomeDirectory")) $ do -#if defined(mingw32_HOST_OS) - r <- try $ Win32.sHGetFolderPath nullPtr Win32.cSIDL_PROFILE nullPtr 0 - case (r :: Either IOException String) of - Right s -> return s - Left _ -> do - r1 <- try $ Win32.sHGetFolderPath nullPtr Win32.cSIDL_WINDOWS nullPtr 0 - case r1 of - Right s -> return s - Left e -> ioError (e :: IOException) -#else - getEnv "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 -> IO FilePath -getAppUserDataDirectory appName = do - modifyIOError ((`ioeSetLocation` "getAppUserDataDirectory")) $ do -#if defined(mingw32_HOST_OS) - s <- Win32.sHGetFolderPath nullPtr Win32.cSIDL_APPDATA nullPtr 0 - return (s++'\\':appName) -#else - path <- 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 :: IO FilePath -getUserDocumentsDirectory = do - modifyIOError ((`ioeSetLocation` "getUserDocumentsDirectory")) $ do -#if defined(mingw32_HOST_OS) - Win32.sHGetFolderPath nullPtr Win32.cSIDL_PERSONAL nullPtr 0 -#else - getEnv "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 :: IO FilePath -getTemporaryDirectory = do -#if defined(mingw32_HOST_OS) - Win32.getTemporaryDirectory -#else - getEnv "TMPDIR" -#if !__NHC__ - `Prelude.catch` \e -> if isDoesNotExistError e then return "/tmp" - else throw e -#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_OS -exeExtension = "exe" -#else -exeExtension = "" -#endif +----------------------------------------------------------------------------- +-- | +-- 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 (FilePath API). +-- +----------------------------------------------------------------------------- + +module System.Directory + ( + -- $intro + + -- * Actions on directories + createDirectory + , createDirectoryIfMissing + , removeDirectory + , removeDirectoryRecursive + , removePathForcibly + , renameDirectory + , listDirectory + , getDirectoryContents + -- ** Current working directory + , getCurrentDirectory + , setCurrentDirectory + , withCurrentDirectory + + -- * Pre-defined directories + , getHomeDirectory + , XdgDirectory(..) + , getXdgDirectory + , XdgDirectoryList(..) + , getXdgDirectoryList + , getAppUserDataDirectory + , getUserDocumentsDirectory + , getTemporaryDirectory + + -- * PATH + , getExecSearchPath + + -- * Actions on files + , removeFile + , renameFile + , renamePath + , copyFile + , copyFileWithMetadata + , getFileSize + + , canonicalizePath + , makeAbsolute + , makeRelativeToCurrentDirectory + + -- * Existence tests + , doesPathExist + , doesFileExist + , doesDirectoryExist + + , findExecutable + , findExecutables + , findExecutablesInDirectories + , findFile + , findFiles + , findFileWith + , findFilesWith + , exeExtension + + -- * Symbolic links + , createFileLink + , createDirectoryLink + , removeDirectoryLink + , pathIsSymbolicLink + , getSymbolicLinkTarget + + -- * Permissions + + -- $permissions + + , Permissions + , emptyPermissions + , readable + , writable + , executable + , searchable + , setOwnerReadable + , setOwnerWritable + , setOwnerExecutable + , setOwnerSearchable + + , getPermissions + , setPermissions + , copyPermissions + + -- * Timestamps + + , getAccessTime + , getModificationTime + , setAccessTime + , setModificationTime + + -- * Deprecated + , isSymbolicLink + + ) where +import Prelude () +import System.Directory.Internal +import System.Directory.Internal.Prelude +import Data.Time (UTCTime) +import System.OsPath (decodeFS, encodeFS) +import qualified System.Directory.OsPath as D + +{- $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 +), 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. + +Unless otherwise documented: + +* 'IO' operations in this package may throw any 'IOError'. No other types of + exceptions shall be thrown. + +* The list of possible 'IOErrorType's in the API documentation is not + exhaustive. The full list may vary by platform and/or evolve over time. + +-} + +----------------------------------------------------------------------------- +-- Permissions + +{- $permissions + +directory offers a limited (and quirky) interface for reading and setting file +and directory permissions; see 'getPermissions' and 'setPermissions' for a +discussion of their limitations. Because permissions are very difficult to +implement portably across different platforms, users who wish to do more +sophisticated things with permissions are advised to use other, +platform-specific libraries instead. For example, if you are only interested +in permissions on POSIX-like platforms, + +offers much more flexibility. + + 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}) + +-} + +emptyPermissions :: Permissions +emptyPermissions = Permissions { + readable = False, + writable = False, + executable = False, + searchable = False + } + +setOwnerReadable :: Bool -> Permissions -> Permissions +setOwnerReadable b p = p { readable = b } + +setOwnerWritable :: Bool -> Permissions -> Permissions +setOwnerWritable b p = p { writable = b } + +setOwnerExecutable :: Bool -> Permissions -> Permissions +setOwnerExecutable b p = p { executable = b } + +setOwnerSearchable :: Bool -> Permissions -> Permissions +setOwnerSearchable b p = p { searchable = b } + +-- | Get the permissions of a file or directory. +-- +-- On Windows, the 'writable' permission corresponds to the "read-only" +-- attribute. The 'executable' permission is set if the file extension is of +-- an executable file type. The 'readable' permission is always set. +-- +-- On POSIX systems, this returns the result of @access@. +-- +-- 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 -> IO Permissions +getPermissions = encodeFS >=> D.getPermissions + +-- | Set the permissions of a file or directory. +-- +-- On Windows, this is only capable of changing the 'writable' permission, +-- which corresponds to the "read-only" attribute. Changing the other +-- permissions has no effect. +-- +-- On POSIX systems, this sets the /owner/ permissions. +-- +-- 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 () +setPermissions path p = encodeFS path >>= (`D.setPermissions` p) + +-- | Copy the permissions of one file to another. This reproduces the +-- permissions more accurately than using 'getPermissions' followed by +-- 'setPermissions'. +-- +-- On Windows, this copies only the read-only attribute. +-- +-- On POSIX systems, this is equivalent to @stat@ followed by @chmod@. +copyPermissions :: FilePath -> FilePath -> IO () +copyPermissions src dst = do + src' <- encodeFS src + dst' <- encodeFS dst + D.copyPermissions src' dst' + + +----------------------------------------------------------------------------- +-- 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' +The process has insufficient privileges to perform the operation. +@[EROFS, EACCES]@ + +* 'isAlreadyExistsError' +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]@ + +* 'isDoesNotExistError' +There is no path to the directory. +@[ENOENT, ENOTDIR]@ + +* 'System.IO.isFullError' +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 () +createDirectory = encodeFS >=> D.createDirectory + +-- | @'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 () +createDirectoryIfMissing cp = encodeFS >=> D.createDirectoryIfMissing cp + + +{- | @'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' +The directory does not exist. +@[ENOENT, ENOTDIR]@ + +* 'isPermissionError' +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 () +removeDirectory = encodeFS >=> D.removeDirectory + +-- | @'removeDirectoryRecursive' dir@ removes an existing directory /dir/ +-- together with its contents and subdirectories. Within this directory, +-- symbolic links are removed without affecting their targets. +-- +-- On Windows, the operation fails if /dir/ is a directory symbolic link. +-- +-- This operation is reported to be flaky on Windows so retry logic may +-- be advisable. See: https://github.com/haskell/directory/pull/108 +removeDirectoryRecursive :: FilePath -> IO () +removeDirectoryRecursive = encodeFS >=> D.removeDirectoryRecursive + +-- | Removes a file or directory at /path/ together with its contents and +-- subdirectories. Symbolic links are removed without affecting their +-- targets. If the path does not exist, nothing happens. +-- +-- Unlike other removal functions, this function will also attempt to delete +-- files marked as read-only or otherwise made unremovable due to permissions. +-- As a result, if the removal is incomplete, the permissions or attributes on +-- the remaining files may be altered. If there are hard links in the +-- directory, then permissions on all related hard links may be altered. +-- +-- If an entry within the directory vanishes while @removePathForcibly@ is +-- running, it is silently ignored. +-- +-- If an exception occurs while removing an entry, @removePathForcibly@ will +-- still try to remove as many entries as it can before failing with an +-- exception. The first exception that it encountered is re-thrown. +-- +-- @since 1.2.7.0 +removePathForcibly :: FilePath -> IO () +removePathForcibly = encodeFS >=> D.removePathForcibly + +{- |'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' +The file does not exist. +@[ENOENT, ENOTDIR]@ + +* 'isPermissionError' +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 () +removeFile = encodeFS >=> D.removeFile + +{- |@'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' +The original directory does not exist, or there is no path to the target. +@[ENOENT, ENOTDIR]@ + +* 'isPermissionError' +The process has insufficient privileges to perform the operation. +@[EROFS, EACCES, EPERM]@ + +* 'System.IO.isFullError' +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 () +renameDirectory opath npath = do + opath' <- encodeFS opath + npath' <- encodeFS npath + D.renameDirectory opath' npath' + +{- |@'renameFile' old new@ changes the name of an existing file system +object from /old/ to /new/. If the /new/ object already exists, it is +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. On Windows, this does not support renaming across different physical +devices; if you are looking to do so, consider using 'copyFileWithMetadata' and +'removeFile'. + +On Windows, this calls @MoveFileEx@ with @MOVEFILE_REPLACE_EXISTING@ set, +which is not guaranteed to be atomic +(). + +On other platforms, this operation is atomic. + +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' +The original file does not exist, or there is no path to the target. +@[ENOENT, ENOTDIR]@ + +* 'isPermissionError' +The process has insufficient privileges to perform the operation. +@[EROFS, EACCES, EPERM]@ + +* 'System.IO.isFullError' +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 () +renameFile opath npath = do + opath' <- encodeFS opath + npath' <- encodeFS npath + D.renameFile opath' npath' + +-- | Rename a file or directory. If the destination path already exists, it +-- is replaced atomically. The destination path must not point 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' +-- The original file does not exist, or there is no path to the target. +-- @[ENOENT, ENOTDIR]@ +-- +-- * 'isPermissionError' +-- The process has insufficient privileges to perform the operation. +-- @[EROFS, EACCES, EPERM]@ +-- +-- * 'System.IO.isFullError' +-- 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 the destination path refers to an existing directory, or one of the +-- parent segments in the destination path is not a directory. +-- @[ENOTDIR, EISDIR, EINVAL, EEXIST, ENOTEMPTY]@ +-- +-- @since 1.2.7.0 +renamePath :: FilePath -- ^ Old path + -> FilePath -- ^ New path + -> IO () +renamePath opath npath = do + opath' <- encodeFS opath + npath' <- encodeFS npath + D.renamePath opath' npath' + +-- | Copy a file with its permissions. If the destination file already exists, +-- it is replaced atomically. Neither path may refer to an existing +-- directory. No exceptions are thrown if the permissions could not be +-- copied. +copyFile :: FilePath -- ^ Source filename + -> FilePath -- ^ Destination filename + -> IO () +copyFile fromFPath toFPath = do + fromFPath' <- encodeFS fromFPath + toFPath' <- encodeFS toFPath + D.copyFile fromFPath' toFPath' + +-- | Copy a file with its associated metadata. If the destination file +-- already exists, it is overwritten. There is no guarantee of atomicity in +-- the replacement of the destination file. Neither path may refer to an +-- existing directory. If the source and/or destination are symbolic links, +-- the copy is performed on the targets of the links. +-- +-- On Windows, it behaves like the Win32 function +-- , +-- which copies various kinds of metadata including file attributes and +-- security resource properties. +-- +-- On Unix-like systems, permissions, access time, and modification time are +-- preserved. If possible, the owner and group are also preserved. Note that +-- the very act of copying can change the access time of the source file, +-- hence the access times of the two files may differ after the operation +-- completes. +-- +-- @since 1.2.6.0 +copyFileWithMetadata :: FilePath -- ^ Source file + -> FilePath -- ^ Destination file + -> IO () +copyFileWithMetadata src dst = do + src' <- encodeFS src + dst' <- encodeFS dst + D.copyFileWithMetadata src' dst' + + +-- | Make a path absolute, normalize the path, and remove as many indirections +-- from it as possible. Any trailing path separators are discarded via +-- 'dropTrailingPathSeparator'. Additionally, on Windows the letter case of +-- the path is canonicalized. +-- +-- __Note__: This function is a very big hammer. If you only need an absolute +-- path, 'makeAbsolute' is sufficient for removing dependence on the current +-- working directory. +-- +-- Indirections include the two special directories @.@ and @..@, as well as +-- any symbolic links (and junction points on Windows). The input path need +-- not point to an existing file or directory. Canonicalization is performed +-- on the longest prefix of the path that points to an existing file or +-- directory. The remaining portion of the path that does not point to an +-- existing file or directory will still be normalized, but case +-- canonicalization and indirection removal are skipped as they are impossible +-- to do on a nonexistent path. +-- +-- Most programs should not worry about the canonicity of a path. In +-- particular, despite the name, the function does not truly guarantee +-- canonicity of the returned path due to the presence of hard links, mount +-- points, etc. +-- +-- If the path points to an existing file or directory, then the output path +-- shall also point to the same file or directory, subject to the condition +-- that the relevant parts of the file system do not change while the function +-- is still running. In other words, the function is definitively not atomic. +-- The results can be utterly wrong if the portions of the path change while +-- this function is running. +-- +-- Since some indirections (symbolic links on all systems, @..@ on non-Windows +-- systems, and junction points on Windows) are dependent on the state of the +-- existing filesystem, the function can only make a conservative attempt by +-- removing such indirections from the longest prefix of the path that still +-- points to an existing file or directory. +-- +-- Note that on Windows parent directories @..@ are always fully expanded +-- before the symbolic links, as consistent with the rest of the Windows API +-- (such as @GetFullPathName@). In contrast, on POSIX systems parent +-- directories @..@ are expanded alongside symbolic links from left to right. +-- To put this more concretely: if @L@ is a symbolic link for @R/P@, then on +-- Windows @L\\..@ refers to @.@, whereas on other operating systems @L/..@ +-- refers to @R@. +-- +-- Similar to 'System.FilePath.normalise', passing an empty path is equivalent +-- to passing the current directory. +-- +-- @canonicalizePath@ can resolve at least 64 indirections in a single path, +-- more than what is supported by most operating systems. Therefore, it may +-- return the fully resolved path even though the operating system itself +-- would have long given up. +-- +-- On Windows XP or earlier systems, junction expansion is not performed due +-- to their lack of @GetFinalPathNameByHandle@. +-- +-- /Changes since 1.2.3.0:/ The function has been altered to be more robust +-- and has the same exception behavior as 'makeAbsolute'. +-- +-- /Changes since 1.3.0.0:/ The function no longer preserves the trailing path +-- separator. File symbolic links that appear in the middle of a path are +-- properly dereferenced. Case canonicalization and symbolic link expansion +-- are now performed on Windows. +-- +canonicalizePath :: FilePath -> IO FilePath +canonicalizePath = encodeFS >=> D.canonicalizePath >=> decodeFS + +-- | Convert a path into an absolute path. If the given path is relative, the +-- current directory is prepended and then the combined result is normalized. +-- If the path is already absolute, the path is simply normalized. The +-- function preserves the presence or absence of the trailing path separator +-- unless the path refers to the root directory @/@. +-- +-- If the path is already absolute, the operation never fails. Otherwise, the +-- operation may fail with the same exceptions as 'getCurrentDirectory'. +-- +-- @since 1.2.2.0 +-- +makeAbsolute :: FilePath -> IO FilePath +makeAbsolute = encodeFS >=> D.makeAbsolute >=> decodeFS + +-- | Construct a path relative to the current directory, similar to +-- 'makeRelative'. +-- +-- The operation may fail with the same exceptions as 'getCurrentDirectory'. +makeRelativeToCurrentDirectory :: FilePath -> IO FilePath +makeRelativeToCurrentDirectory = + encodeFS >=> D.makeRelativeToCurrentDirectory >=> decodeFS + +-- | Given the name or path of an executable file, 'findExecutable' searches +-- for such a file in a list of system-defined locations, which generally +-- includes @PATH@ and possibly more. The full path to the executable is +-- returned if found. For example, @(findExecutable \"ghc\")@ would normally +-- give you the path to GHC. +-- +-- The path returned by @'findExecutable' name@ corresponds to the program +-- that would be executed by +-- @@ +-- when passed the same string (as a @RawCommand@, not a @ShellCommand@), +-- provided that @name@ is not a relative path with more than one segment. +-- +-- On Windows, 'findExecutable' calls the Win32 function +-- @@, +-- which may search other places before checking the directories in the @PATH@ +-- environment variable. Where it actually searches depends on registry +-- settings, but notably includes the directory containing the current +-- executable. +-- +-- On non-Windows platforms, the behavior is equivalent to 'findFileWith' +-- using the search directories from the @PATH@ environment variable and +-- testing each file for executable permissions. Details can be found in the +-- documentation of 'findFileWith'. +findExecutable :: String -> IO (Maybe FilePath) +findExecutable = encodeFS >=> D.findExecutable >=> (`for` decodeFS) + +-- | Search for executable files in a list of system-defined locations, which +-- generally includes @PATH@ and possibly more. +-- +-- On Windows, this /only returns the first occurrence/, if any. Its behavior +-- is therefore equivalent to 'findExecutable'. +-- +-- On non-Windows platforms, the behavior is equivalent to +-- 'findExecutablesInDirectories' using the search directories from the @PATH@ +-- environment variable. Details can be found in the documentation of +-- 'findExecutablesInDirectories'. +-- +-- @since 1.2.2.0 +findExecutables :: String -> IO [FilePath] +findExecutables = encodeFS >=> D.findExecutables >=> (`for` decodeFS) + +-- | Given a name or path, 'findExecutable' appends the 'exeExtension' to the +-- query and searches for executable files in the list of given search +-- directories and returns all occurrences. +-- +-- The behavior is equivalent to 'findFileWith' using the given search +-- directories and testing each file for executable permissions. Details can +-- be found in the documentation of 'findFileWith'. +-- +-- Unlike other similarly named functions, 'findExecutablesInDirectories' does +-- not use @SearchPath@ from the Win32 API. The behavior of this function on +-- Windows is therefore equivalent to those on non-Windows platforms. +-- +-- @since 1.2.4.0 +findExecutablesInDirectories :: [FilePath] -> String -> IO [FilePath] +findExecutablesInDirectories path binary = do + path' <- for path encodeFS + binary' <- encodeFS binary + D.findExecutablesInDirectories path' binary' + >>= (`for` decodeFS) + +-- | Search through the given list of directories for the given file. +-- +-- The behavior is equivalent to 'findFileWith', returning only the first +-- occurrence. Details can be found in the documentation of 'findFileWith'. +findFile :: [FilePath] -> String -> IO (Maybe FilePath) +findFile = findFileWith (\ _ -> pure True) + +-- | Search through the given list of directories for the given file and +-- returns all paths where the given file exists. +-- +-- The behavior is equivalent to 'findFilesWith'. Details can be found in the +-- documentation of 'findFilesWith'. +-- +-- @since 1.2.1.0 +findFiles :: [FilePath] -> String -> IO [FilePath] +findFiles = findFilesWith (\ _ -> pure True) + +-- | Search through a given list of directories for a file that has the given +-- name and satisfies the given predicate and return the path of the first +-- occurrence. The directories are checked in a left-to-right order. +-- +-- This is essentially a more performant version of 'findFilesWith' that +-- always returns the first result, if any. Details can be found in the +-- documentation of 'findFilesWith'. +-- +-- @since 1.2.6.0 +findFileWith + :: (FilePath -> IO Bool) -> [FilePath] -> String -> IO (Maybe FilePath) +findFileWith f ds name = do + ds' <- for ds encodeFS + name' <- encodeFS name + D.findFileWith (decodeFS >=> f) ds' name' + >>= (`for` decodeFS) + +-- | @findFilesWith predicate dirs name@ searches through the list of +-- directories (@dirs@) for files that have the given @name@ and satisfy the +-- given @predicate@ and returns the paths of those files. The directories +-- are checked in a left-to-right order and the paths are returned in the same +-- order. +-- +-- If the @name@ is a relative path, then for every search directory @dir@, +-- the function checks whether @dir '' name@ exists and satisfies the +-- predicate. If so, @dir '' name@ is returned as one of the results. In +-- other words, the returned paths can be either relative or absolute +-- depending on the search directories were used. If there are no search +-- directories, no results are ever returned. +-- +-- If the @name@ is an absolute path, then the function will return a single +-- result if the file exists and satisfies the predicate and no results +-- otherwise. This is irrespective of what search directories were given. +-- +-- @since 1.2.1.0 +findFilesWith :: (FilePath -> IO Bool) -> [FilePath] -> String -> IO [FilePath] +findFilesWith f ds name = do + ds' <- for ds encodeFS + name' <- encodeFS name + res <- D.findFilesWith (decodeFS >=> f) ds' name' + for res decodeFS + +-- | Filename extension for executable files (including the dot if any) +-- (usually @\"\"@ on POSIX systems and @\".exe\"@ on Windows or OS\/2). +-- +-- @since 1.2.4.0 +exeExtension :: String +exeExtension = so D.exeExtension + +-- | Similar to 'listDirectory', but always includes the special entries (@.@ +-- and @..@). (This applies to Windows as well.) +-- +-- The operation may fail with the same exceptions as 'listDirectory'. +getDirectoryContents :: FilePath -> IO [FilePath] +getDirectoryContents = encodeFS >=> D.getDirectoryContents >=> (`for` decodeFS) + +-- | @'listDirectory' dir@ returns a list of /all/ entries in /dir/ without +-- the special entries (@.@ and @..@). +-- +-- 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' +-- The directory does not exist. +-- @[ENOENT, ENOTDIR]@ +-- +-- * 'isPermissionError' +-- The process has insufficient privileges to perform the operation. +-- @[EACCES]@ +-- +-- * 'System.IO.isFullError' +-- Insufficient resources are available to perform the operation. +-- @[EMFILE, ENFILE]@ +-- +-- * @InappropriateType@ +-- The path refers to an existing non-directory object. +-- @[ENOTDIR]@ +-- +-- @since 1.2.5.0 +-- +listDirectory :: FilePath -> IO [FilePath] +listDirectory = encodeFS >=> D.listDirectory >=> (`for` decodeFS) + +-- | Obtain the current working directory as an absolute path. +-- +-- In a multithreaded program, the current working directory is a global state +-- shared among all threads of the process. Therefore, when performing +-- filesystem operations from multiple threads, it is highly recommended to +-- use absolute rather than relative paths (see: 'makeAbsolute'). +-- +-- Note that 'getCurrentDirectory' is not guaranteed to return the same path +-- received by 'setCurrentDirectory'. On POSIX systems, the path returned will +-- always be fully dereferenced (not contain any symbolic links). For more +-- information, refer to the documentation of +-- . +-- +-- The operation may fail with: +-- +-- * @HardwareFault@ +-- A physical I\/O error has occurred. +-- @[EIO]@ +-- +-- * 'isDoesNotExistError' +-- There is no path referring to the working directory. +-- @[EPERM, ENOENT, ESTALE...]@ +-- +-- * 'isPermissionError' +-- The process has insufficient privileges to perform the operation. +-- @[EACCES]@ +-- +-- * 'System.IO.isFullError' +-- Insufficient resources are available to perform the operation. +-- +-- * @UnsupportedOperation@ +-- The operating system has no notion of current working directory. +-- +getCurrentDirectory :: IO FilePath +getCurrentDirectory = D.getCurrentDirectory >>= decodeFS + +-- | Change the working directory to the given path. +-- +-- In a multithreaded program, the current working directory is a global state +-- shared among all threads of the process. Therefore, when performing +-- filesystem operations from multiple threads, it is highly recommended to +-- use absolute rather than relative paths (see: 'makeAbsolute'). +-- +-- 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' +-- The directory does not exist. +-- @[ENOENT, ENOTDIR]@ +-- +-- * 'isPermissionError' +-- The process has insufficient privileges to perform the operation. +-- @[EACCES]@ +-- +-- * @UnsupportedOperation@ +-- The operating system has no notion of current working directory, or the +-- working directory cannot be dynamically changed. +-- +-- * @InappropriateType@ +-- The path refers to an existing non-directory object. +-- @[ENOTDIR]@ +-- +setCurrentDirectory :: FilePath -> IO () +setCurrentDirectory = encodeFS >=> D.setCurrentDirectory + +-- | Run an 'IO' action with the given working directory and restore the +-- original working directory afterwards, even if the given action fails due +-- to an exception. +-- +-- The operation may fail with the same exceptions as 'getCurrentDirectory' +-- and 'setCurrentDirectory'. +-- +-- @since 1.2.3.0 +-- +withCurrentDirectory :: FilePath -- ^ Directory to execute in + -> IO a -- ^ Action to be executed + -> IO a +withCurrentDirectory dir action = + encodeFS dir >>= (`D.withCurrentDirectory` action) + +-- | Obtain the size of a file in bytes. +-- +-- @since 1.2.7.0 +getFileSize :: FilePath -> IO Integer +getFileSize = encodeFS >=> D.getFileSize + +-- | Test whether the given path points to an existing filesystem object. If +-- the user lacks necessary permissions to search the parent directories, this +-- function may return false even if the file does actually exist. +-- +-- @since 1.2.7.0 +doesPathExist :: FilePath -> IO Bool +doesPathExist = encodeFS >=> D.doesPathExist + +{- |The operation 'doesDirectoryExist' returns 'True' if the argument file +exists and is either a directory or a symbolic link to a directory, +and 'False' otherwise. +-} + +doesDirectoryExist :: FilePath -> IO Bool +doesDirectoryExist = encodeFS >=> D.doesDirectoryExist + +{- |The operation 'doesFileExist' returns 'True' +if the argument file exists and is not a directory, and 'False' otherwise. +-} + +doesFileExist :: FilePath -> IO Bool +doesFileExist = encodeFS >=> D.doesFileExist + + +-- | Create a /file/ symbolic link. The target path can be either absolute or +-- relative and need not refer to an existing file. The order of arguments +-- follows the POSIX convention. +-- +-- To remove an existing file symbolic link, use 'removeFile'. +-- +-- Although the distinction between /file/ symbolic links and /directory/ +-- symbolic links does not exist on POSIX systems, on Windows this is an +-- intrinsic property of every symbolic link and cannot be changed without +-- recreating the link. A file symbolic link that actually points to a +-- directory will fail to dereference and vice versa. Moreover, creating +-- symbolic links on Windows may require privileges unavailable to users +-- outside the Administrators group. Portable programs that use symbolic +-- links should take both into consideration. +-- +-- On Windows, the function is implemented using @CreateSymbolicLink@. Since +-- 1.3.3.0, the @SYMBOLIC_LINK_FLAG_ALLOW_UNPRIVILEGED_CREATE@ flag is included +-- if supported by the operating system. On POSIX, the function uses @symlink@ +-- and is therefore atomic. +-- +-- Windows-specific errors: This operation may fail with 'permissionErrorType' +-- if the user lacks the privileges to create symbolic links. It may also +-- fail with 'illegalOperationErrorType' if the file system does not support +-- symbolic links. +-- +-- @since 1.3.1.0 +createFileLink + :: FilePath -- ^ path to the target file + -> FilePath -- ^ path of the link to be created + -> IO () +createFileLink target link = do + target' <- encodeFS target + link' <- encodeFS link + D.createFileLink target' link' + + +-- | Create a /directory/ symbolic link. The target path can be either +-- absolute or relative and need not refer to an existing directory. The +-- order of arguments follows the POSIX convention. +-- +-- To remove an existing directory symbolic link, use 'removeDirectoryLink'. +-- +-- Although the distinction between /file/ symbolic links and /directory/ +-- symbolic links does not exist on POSIX systems, on Windows this is an +-- intrinsic property of every symbolic link and cannot be changed without +-- recreating the link. A file symbolic link that actually points to a +-- directory will fail to dereference and vice versa. Moreover, creating +-- symbolic links on Windows may require privileges unavailable to users +-- outside the Administrators group. Portable programs that use symbolic +-- links should take both into consideration. +-- +-- On Windows, the function is implemented using @CreateSymbolicLink@ with +-- @SYMBOLIC_LINK_FLAG_DIRECTORY@. Since 1.3.3.0, the +-- @SYMBOLIC_LINK_FLAG_ALLOW_UNPRIVILEGED_CREATE@ flag is also included if +-- supported by the operating system. On POSIX, this is an alias for +-- 'createFileLink' and is therefore atomic. +-- +-- Windows-specific errors: This operation may fail with 'permissionErrorType' +-- if the user lacks the privileges to create symbolic links. It may also +-- fail with 'illegalOperationErrorType' if the file system does not support +-- symbolic links. +-- +-- @since 1.3.1.0 +createDirectoryLink + :: FilePath -- ^ path to the target directory + -> FilePath -- ^ path of the link to be created + -> IO () +createDirectoryLink target link = do + target' <- encodeFS target + link' <- encodeFS link + D.createDirectoryLink target' link' + +-- | Remove an existing /directory/ symbolic link. +-- +-- On Windows, this is an alias for 'removeDirectory'. On POSIX systems, this +-- is an alias for 'removeFile'. +-- +-- See also: 'removeFile', which can remove an existing /file/ symbolic link. +-- +-- @since 1.3.1.0 +removeDirectoryLink :: FilePath -> IO () +removeDirectoryLink = encodeFS >=> D.removeDirectoryLink + +-- | Check whether an existing @path@ is a symbolic link. If @path@ is a +-- regular file or directory, 'False' is returned. If @path@ does not exist +-- or is otherwise inaccessible, an exception is thrown (see below). +-- +-- On Windows, this checks for @FILE_ATTRIBUTE_REPARSE_POINT@. In addition to +-- symbolic links, the function also returns true on junction points. On +-- POSIX systems, this checks for @S_IFLNK@. +-- +-- The operation may fail with: +-- +-- * 'isDoesNotExistError' if the symbolic link does not exist; or +-- +-- * 'isPermissionError' if the user is not permitted to read the symbolic +-- link. +-- +-- @since 1.3.0.0 +pathIsSymbolicLink :: FilePath -> IO Bool +pathIsSymbolicLink = encodeFS >=> D.pathIsSymbolicLink + +{-# DEPRECATED isSymbolicLink "Use 'pathIsSymbolicLink' instead" #-} +isSymbolicLink :: FilePath -> IO Bool +isSymbolicLink = pathIsSymbolicLink + +-- | Retrieve the target path of either a file or directory symbolic link. +-- The returned path may not be absolute, may not exist, and may not even be a +-- valid path. +-- +-- On Windows systems, this calls @DeviceIoControl@ with +-- @FSCTL_GET_REPARSE_POINT@. In addition to symbolic links, the function +-- also works on junction points. On POSIX systems, this calls @readlink@. +-- +-- Windows-specific errors: This operation may fail with +-- 'illegalOperationErrorType' if the file system does not support symbolic +-- links. +-- +-- @since 1.3.1.0 +getSymbolicLinkTarget :: FilePath -> IO FilePath +getSymbolicLinkTarget = encodeFS >=> D.getSymbolicLinkTarget >=> decodeFS + +-- | Obtain the time at which the file or directory was last accessed. +-- +-- The operation may fail with: +-- +-- * 'isPermissionError' if the user is not permitted to read +-- the access time; or +-- +-- * 'isDoesNotExistError' if the file or directory does not exist. +-- +-- Caveat for POSIX systems: This function returns a timestamp with sub-second +-- resolution only if this package is compiled against @unix-2.6.0.0@ or later +-- and the underlying filesystem supports them. +-- +-- @since 1.2.3.0 +-- +getAccessTime :: FilePath -> IO UTCTime +getAccessTime = encodeFS >=> D.getAccessTime + +-- | Obtain the time at which the file or directory was last modified. +-- +-- The operation may fail with: +-- +-- * 'isPermissionError' if the user is not permitted to read +-- the modification time; or +-- +-- * 'isDoesNotExistError' if the file or directory does not exist. +-- +-- Caveat for POSIX systems: This function returns a timestamp with sub-second +-- resolution only if this package is compiled against @unix-2.6.0.0@ or later +-- and the underlying filesystem supports them. +-- +getModificationTime :: FilePath -> IO UTCTime +getModificationTime = encodeFS >=> D.getModificationTime + +-- | Change the time at which the file or directory was last accessed. +-- +-- The operation may fail with: +-- +-- * 'isPermissionError' if the user is not permitted to alter the +-- access time; or +-- +-- * 'isDoesNotExistError' if the file or directory does not exist. +-- +-- Some caveats for POSIX systems: +-- +-- * Not all systems support @utimensat@, in which case the function can only +-- emulate the behavior by reading the modification time and then setting +-- both the access and modification times together. On systems where +-- @utimensat@ is supported, the access time is set atomically with +-- nanosecond precision. +-- +-- * If compiled against a version of @unix@ prior to @2.7.0.0@, the function +-- would not be able to set timestamps with sub-second resolution. In this +-- case, there would also be loss of precision in the modification time. +-- +-- @since 1.2.3.0 +-- +setAccessTime :: FilePath -> UTCTime -> IO () +setAccessTime path atime = encodeFS path >>= (`D.setAccessTime` atime) + +-- | Change the time at which the file or directory was last modified. +-- +-- The operation may fail with: +-- +-- * 'isPermissionError' if the user is not permitted to alter the +-- modification time; or +-- +-- * 'isDoesNotExistError' if the file or directory does not exist. +-- +-- * 'InvalidArgument' on FAT32 file system if the time is before +-- DOS Epoch (1 January 1980). +-- +-- Some caveats for POSIX systems: +-- +-- * Not all systems support @utimensat@, in which case the function can only +-- emulate the behavior by reading the access time and then setting both the +-- access and modification times together. On systems where @utimensat@ is +-- supported, the modification time is set atomically with nanosecond +-- precision. +-- +-- * If compiled against a version of @unix@ prior to @2.7.0.0@, the function +-- would not be able to set timestamps with sub-second resolution. In this +-- case, there would also be loss of precision in the access time. +-- +-- @since 1.2.3.0 +-- +setModificationTime :: FilePath -> UTCTime -> IO () +setModificationTime path mtime = + encodeFS path >>= (`D.setModificationTime` mtime) + +{- | 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 'getXdgDirectory' or +'getAppUserDataDirectory' instead. + +On Unix, 'getHomeDirectory' behaves as follows: + +* Returns $HOME env variable if set (including to an empty string). +* Otherwise uses home directory returned by @getpwuid_r@ using the UID of the + current process' user. This basically reads the @\/etc\/passwd@ file. An + empty home directory field is considered valid. + +On Windows, the system is queried for a suitable path; a typical path might be +@C:\/Users\//\/@. + +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 :: IO FilePath +getHomeDirectory = D.getHomeDirectory >>= decodeFS + +-- | Obtain the paths to special directories for storing user-specific +-- application data, configuration, and cache files, conforming to the +-- . +-- Compared with 'getAppUserDataDirectory', this function provides a more +-- fine-grained hierarchy as well as greater flexibility for the user. +-- +-- On Windows, 'XdgData' and 'XdgConfig' usually map to the same directory +-- unless overridden. +-- +-- Refer to the docs of 'XdgDirectory' for more details. +-- +-- The second argument is usually the name of the application. Since it +-- will be integrated into the path, it must consist of valid path +-- characters. Note: if the second argument is an absolute path, it will +-- just return the second argument. +-- +-- Note: The directory may not actually exist, in which case you would need +-- to create it with file mode @700@ (i.e. only accessible by the owner). +-- +-- As of 1.3.5.0, the environment variable is ignored if set to a relative +-- path, per revised XDG Base Directory Specification. See +-- . +-- +-- @since 1.2.3.0 +getXdgDirectory :: XdgDirectory -- ^ which special directory + -> FilePath -- ^ a relative path that is appended + -- to the path; if empty, the base + -- path is returned + -> IO FilePath +getXdgDirectory xdgDir = encodeFS >=> D.getXdgDirectory xdgDir >=> decodeFS + +-- | Similar to 'getXdgDirectory' but retrieves the entire list of XDG +-- directories. +-- +-- On Windows, 'XdgDataDirs' and 'XdgConfigDirs' usually map to the same list +-- of directories unless overridden. +-- +-- Refer to the docs of 'XdgDirectoryList' for more details. +getXdgDirectoryList :: XdgDirectoryList -- ^ which special directory list + -> IO [FilePath] +getXdgDirectoryList = D.getXdgDirectoryList >=> (`for` decodeFS) + +-- | Obtain the path to a special directory for storing user-specific +-- application data (traditional Unix location). Newer applications may +-- prefer the the XDG-conformant location provided by 'getXdgDirectory' +-- (). +-- +-- The argument is usually the name of the application. Since it will be +-- integrated into the path, it must consist of valid path characters. +-- +-- * On Unix-like systems, the path is @~\/./\/@. +-- * On Windows, the path is @%APPDATA%\//\/@ +-- (e.g. @C:\/Users\//\/\/AppData\/Roaming\//\/@) +-- +-- Note: the directory may not actually exist, in which case you would need +-- to create it. It is expected that the parent directory exists and is +-- writable. +-- +-- 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 :: FilePath -- ^ a relative path that is appended + -- to the path + -> IO FilePath +getAppUserDataDirectory = encodeFS >=> D.getAppUserDataDirectory >=>decodeFS + +{- | 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 'getXdgDirectory' or +'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:\/Users\//\/\/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 :: IO FilePath +getUserDocumentsDirectory = D.getUserDocumentsDirectory >>= decodeFS + +{- | 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 :: IO FilePath +getTemporaryDirectory = D.getTemporaryDirectory >>= decodeFS + +-- | Get the contents of the @PATH@ environment variable. +getExecSearchPath :: IO [FilePath] +getExecSearchPath = D.getExecSearchPath >>= (`for` decodeFS) diff --git a/System/Directory/Internal.hs b/System/Directory/Internal.hs new file mode 100644 --- /dev/null +++ b/System/Directory/Internal.hs @@ -0,0 +1,31 @@ +{-# LANGUAGE CPP #-} +{-# OPTIONS_HADDOCK not-home #-} +-- | +-- Stability: unstable +-- Portability: unportable +-- +-- Internal modules are always subject to change from version to version. +-- The contents of this module are also platform-dependent, hence what is +-- shown in the Hackage documentation may differ from what is actually +-- available on your system. + +#include + +module System.Directory.Internal + ( module System.Directory.Internal.Common + +#if defined(mingw32_HOST_OS) + , module System.Directory.Internal.Windows +#else + , module System.Directory.Internal.Posix +#endif + + ) where + +import System.Directory.Internal.Common + +#if defined(mingw32_HOST_OS) +import System.Directory.Internal.Windows +#else +import System.Directory.Internal.Posix +#endif diff --git a/System/Directory/Internal/C_utimensat.hsc b/System/Directory/Internal/C_utimensat.hsc new file mode 100644 --- /dev/null +++ b/System/Directory/Internal/C_utimensat.hsc @@ -0,0 +1,45 @@ +{-# LANGUAGE CApiFFI #-} + +module System.Directory.Internal.C_utimensat where +#include +#ifdef HAVE_UTIMENSAT +#ifdef HAVE_FCNTL_H +# include +#endif +#ifdef HAVE_TIME_H +# include +#endif +#ifdef HAVE_SYS_STAT_H +# include +#endif +import Prelude () +import System.Directory.Internal.Prelude +import Data.Time.Clock.POSIX (POSIXTime) +import qualified System.Posix as Posix + +data CTimeSpec = CTimeSpec EpochTime CLong + +instance Storable CTimeSpec where + sizeOf _ = #{size struct timespec} + alignment _ = #{alignment struct timespec} + poke p (CTimeSpec sec nsec) = do + (#poke struct timespec, tv_sec) p sec + (#poke struct timespec, tv_nsec) p nsec + peek p = do + sec <- #{peek struct timespec, tv_sec } p + nsec <- #{peek struct timespec, tv_nsec} p + return (CTimeSpec sec nsec) + +utimeOmit :: CTimeSpec +utimeOmit = CTimeSpec (CTime 0) (#const UTIME_OMIT) + +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 capi "sys/stat.h utimensat" c_utimensat + :: Posix.Fd -> CString -> Ptr CTimeSpec -> CInt -> IO CInt + +#endif diff --git a/System/Directory/Internal/Common.hs b/System/Directory/Internal/Common.hs new file mode 100644 --- /dev/null +++ b/System/Directory/Internal/Common.hs @@ -0,0 +1,353 @@ +{-# LANGUAGE CPP #-} +module System.Directory.Internal.Common + ( module System.Directory.Internal.Common + , OsPath + , OsString + ) where +import Prelude () +import System.Directory.Internal.Prelude +import GHC.IO.Encoding.Failure (CodingFailureMode(TransliterateCodingFailure)) +import GHC.IO.Encoding.UTF16 (mkUTF16le) +import GHC.IO.Encoding.UTF8 (mkUTF8) +import qualified System.File.OsPath.Internal as File +import System.OsPath + ( OsPath + , OsString + , addTrailingPathSeparator + , decodeUtf + , decodeWith + , encodeUtf + , hasTrailingPathSeparator + , isPathSeparator + , isRelative + , joinDrive + , joinPath + , normalise + , pack + , pathSeparator + , pathSeparators + , splitDirectories + , splitDrive + , toChar + , unpack + , unsafeFromChar + ) + +-- | A generator with side-effects. +newtype ListT m a = ListT { unListT :: m (Maybe (a, ListT m a)) } + +emptyListT :: Applicative m => ListT m a +emptyListT = ListT (pure Nothing) + +maybeToListT :: Applicative m => m (Maybe a) -> ListT m a +maybeToListT m = ListT (((\ x -> (x, emptyListT)) <$>) <$> m) + +listToListT :: Applicative m => [a] -> ListT m a +listToListT [] = emptyListT +listToListT (x : xs) = ListT (pure (Just (x, listToListT xs))) + +liftJoinListT :: Monad m => m (ListT m a) -> ListT m a +liftJoinListT m = ListT (m >>= unListT) + +listTHead :: Functor m => ListT m a -> m (Maybe a) +listTHead (ListT m) = (fst <$>) <$> m + +listTToList :: Monad m => ListT m a -> m [a] +listTToList (ListT m) = do + mx <- m + case mx of + Nothing -> pure [] + Just (x, m') -> do + xs <- listTToList m' + pure (x : xs) + +andM :: Monad m => m Bool -> m Bool -> m Bool +andM mx my = do + x <- mx + if x + then my + else pure x + +sequenceWithIOErrors_ :: [IO ()] -> IO () +sequenceWithIOErrors_ actions = go (Right ()) actions + where + + go :: Either IOError () -> [IO ()] -> IO () + go (Left e) [] = ioError e + go (Right ()) [] = pure () + go s (m : ms) = s `seq` do + r <- tryIOError m + go (s *> r) ms + +-- | Similar to 'try' but only catches a specify kind of 'IOError' as +-- specified by the predicate. +tryIOErrorType :: (IOError -> Bool) -> IO a -> IO (Either IOError a) +tryIOErrorType check action = do + result <- tryIOError action + case result of + Left err -> if check err then pure (Left err) else throwIO err + Right val -> pure (Right val) + +-- | Attempt to perform the given action, silencing any IO exception thrown by +-- it. +ignoreIOExceptions :: IO () -> IO () +ignoreIOExceptions io = io `catchIOError` (\_ -> pure ()) + +specializeErrorString :: String -> (IOError -> Bool) -> IO a -> IO a +specializeErrorString str errType action = do + mx <- tryIOErrorType errType action + case mx of + Left e -> throwIO (ioeSetErrorString e str) + Right x -> pure x + +ioeAddLocation :: IOError -> String -> IOError +ioeAddLocation e loc = do + ioeSetLocation e newLoc + where + newLoc = loc <> if null oldLoc then "" else ":" <> oldLoc + oldLoc = ioeGetLocation e + +rightOrError :: Exception e => Either e a -> a +rightOrError (Left e) = error (displayException e) +rightOrError (Right a) = a + +-- | Fallibly converts String to OsString. Only intended to be used on literals. +os :: String -> OsString +os = rightOrError . encodeUtf + +-- | Fallibly converts OsString to String. Only intended to be used on literals. +so :: OsString -> String +so = rightOrError . decodeUtf + +ioeSetOsPath :: IOError -> OsPath -> IOError +ioeSetOsPath err = + ioeSetFileName err . + rightOrError . + decodeWith + (mkUTF8 TransliterateCodingFailure) + (mkUTF16le TransliterateCodingFailure) + +dropSpecialDotDirs :: [OsPath] -> [OsPath] +dropSpecialDotDirs = filter f + where f filename = filename /= os "." && filename /= os ".." + +-- | Given a list of path segments, expand @.@ and @..@. The path segments +-- must not contain path separators. +expandDots :: [OsPath] -> [OsPath] +expandDots = reverse . go [] + where + go ys' xs' = + case xs' of + [] -> ys' + x : xs + | x == os "." -> go ys' xs + | x == os ".." -> + case ys' of + [] -> go (x : ys') xs + y : ys + | y == os ".." -> go (x : ys') xs + | otherwise -> go ys xs + | otherwise -> go (x : ys') xs + +-- | Convert to the right kind of slashes. +normalisePathSeps :: OsPath -> OsPath +normalisePathSeps p = pack (normaliseChar <$> unpack p) + where normaliseChar c = if isPathSeparator c then pathSeparator else c + +-- | Remove redundant trailing slashes and pick the right kind of slash. +normaliseTrailingSep :: OsPath -> OsPath +normaliseTrailingSep path = do + let path' = reverse (unpack path) + let (sep, path'') = span isPathSeparator path' + let addSep = if null sep then id else (pathSeparator :) + pack (reverse (addSep path'')) + +-- | Convert empty paths to the current directory, otherwise leave it +-- unchanged. +emptyToCurDir :: OsPath -> OsPath +emptyToCurDir path + | path == mempty = os "." + | otherwise = path + +-- | Similar to 'normalise' but empty paths stay empty. +simplifyPosix :: OsPath -> OsPath +simplifyPosix path + | path == mempty = mempty + | otherwise = normalise path + +-- | Similar to 'normalise' but: +-- +-- * empty paths stay empty, +-- * parent dirs (@..@) are expanded, and +-- * paths starting with @\\\\@ are preserved. +-- +-- The goal is to preserve the meaning of paths better than 'normalise'. +simplifyWindows :: OsPath -> OsPath +simplifyWindows path + | path == mempty = mempty + | otherwise = case toChar <$> unpack drive' of + '\\' : '\\' : _ -> drive' <> subpath + _ -> simplifiedPath + where + simplifiedPath = joinDrive drive' subpath' + (drive, subpath) = splitDrive path + drive' = upperDrive (normaliseTrailingSep (normalisePathSeps drive)) + subpath' = appendSep . avoidEmpty . prependSep . joinPath . + stripPardirs . expandDots . skipSeps . + splitDirectories $ subpath + + upperDrive d = case unpack d of + c : k : s + | isAlpha (toChar c), toChar k == ':', all isPathSeparator s -> + -- unsafeFromChar is safe here since all characters are ASCII. + pack (unsafeFromChar (toUpper (toChar c)) : unsafeFromChar ':' : s) + _ -> d + skipSeps = + (pack <$>) . + filter (not . (`elem` (pure <$> pathSeparators))) . + (unpack <$>) + stripPardirs | pathIsAbsolute || subpathIsAbsolute = dropWhile (== os "..") + | otherwise = id + prependSep | subpathIsAbsolute = (pack [pathSeparator] <>) + | otherwise = id + avoidEmpty | not pathIsAbsolute + , drive == mempty || hasTrailingPathSep -- prefer "C:" over "C:." + = emptyToCurDir + | otherwise = id + appendSep p | hasTrailingPathSep, not (pathIsAbsolute && p == mempty) + = addTrailingPathSeparator p + | otherwise = p + pathIsAbsolute = not (isRelative path) + subpathIsAbsolute = any isPathSeparator (take 1 (unpack subpath)) + hasTrailingPathSep = hasTrailingPathSeparator subpath + +data WhetherFollow = NoFollow | FollowLinks deriving (Show) + +isNoFollow :: WhetherFollow -> Bool +isNoFollow NoFollow = True +isNoFollow FollowLinks = False + +data FileType + = File + | SymbolicLink -- ^ POSIX: either file or directory link; Windows: file link + | Directory + | DirectoryLink -- ^ Windows only: directory link + deriving (Bounded, Enum, Eq, Ord, Read, Show) + +-- | Check whether the given 'FileType' is considered a directory by the +-- operating system. This affects the choice of certain functions +-- e.g. 'System.Directory.removeDirectory' vs 'System.Directory.removeFile'. +fileTypeIsDirectory :: FileType -> Bool +fileTypeIsDirectory Directory = True +fileTypeIsDirectory DirectoryLink = True +fileTypeIsDirectory _ = False + +-- | Return whether the given 'FileType' is a link. +fileTypeIsLink :: FileType -> Bool +fileTypeIsLink SymbolicLink = True +fileTypeIsLink DirectoryLink = True +fileTypeIsLink _ = False + +data Permissions + = Permissions + { readable :: Bool + , writable :: Bool + , executable :: Bool + , searchable :: Bool + } deriving (Eq, Ord, Read, Show) + +withBinaryFile :: OsPath -> IOMode -> (Handle -> IO r) -> IO r +withBinaryFile path mode = + bracket (File.openFileWithCloseOnExec path mode) hClose + +openTempFile' :: String -> OsPath -> OsString -> Bool -> CMode -> Bool + -> IO (OsPath, Handle) +openTempFile' loc tmpDir template binary mode _cloExec = + File.openTempFile' loc tmpDir template binary mode +#if MIN_VERSION_file_io(0, 2, 0) + _cloExec +#endif + +-- | Copy data from one handle to another until end of file. +copyHandleData :: Handle -- ^ Source handle + -> Handle -- ^ Destination handle + -> IO () +copyHandleData hFrom hTo = + (`ioeAddLocation` "copyData") `modifyIOError` do + allocaBytes bufferSize go + where + -- 128 KiB, as coreutils `cp` uses as of May 2014 (see ioblksize.h) + bufferSize = 131072 + go buffer = do + count <- hGetBuf hFrom buffer bufferSize + when (count > 0) $ do + hPutBuf hTo buffer count + go buffer + +-- | Special directories for storing user-specific application data, +-- configuration, and cache files, as specified by the +-- . +-- +-- Note: On Windows, 'XdgData' and 'XdgConfig' usually map to the same +-- directory. +-- +-- @since 1.2.3.0 +data XdgDirectory + = XdgData + -- ^ For data files (e.g. images). + -- It uses the @XDG_DATA_HOME@ environment variable. + -- On non-Windows systems, the default is @~\/.local\/share@. + -- On Windows, the default is @%APPDATA%@ + -- (e.g. @C:\/Users\//\/\/AppData\/Roaming@). + -- Can be considered as the user-specific equivalent of @\/usr\/share@. + | XdgConfig + -- ^ For configuration files. + -- It uses the @XDG_CONFIG_HOME@ environment variable. + -- On non-Windows systems, the default is @~\/.config@. + -- On Windows, the default is @%APPDATA%@ + -- (e.g. @C:\/Users\//\/\/AppData\/Roaming@). + -- Can be considered as the user-specific equivalent of @\/etc@. + | XdgCache + -- ^ For non-essential files (e.g. cache). + -- It uses the @XDG_CACHE_HOME@ environment variable. + -- On non-Windows systems, the default is @~\/.cache@. + -- On Windows, the default is @%LOCALAPPDATA%@ + -- (e.g. @C:\/Users\//\/\/AppData\/Local@). + -- Can be considered as the user-specific equivalent of @\/var\/cache@. + | XdgState + -- ^ For data that should persist between (application) restarts, + -- but that is not important or portable enough to the user that it + -- should be stored in 'XdgData'. + -- It uses the @XDG_STATE_HOME@ environment variable. + -- On non-Windows systems, the default is @~\/.local\/state@. On + -- Windows, the default is @%LOCALAPPDATA%@ + -- (e.g. @C:\/Users\//\/\/AppData\/Local@). + -- + -- @since 1.3.7.0 + deriving (Bounded, Enum, Eq, Ord, Read, Show) + +-- | Search paths for various application data, as specified by the +-- . +-- +-- The list of paths is split using 'System.FilePath.searchPathSeparator', +-- which on Windows is a semicolon. +-- +-- Note: On Windows, 'XdgDataDirs' and 'XdgConfigDirs' usually yield the same +-- result. +-- +-- @since 1.3.2.0 +data XdgDirectoryList + = XdgDataDirs + -- ^ For data files (e.g. images). + -- It uses the @XDG_DATA_DIRS@ environment variable. + -- On non-Windows systems, the default is @\/usr\/local\/share\/@ and + -- @\/usr\/share\/@. + -- On Windows, the default is @%PROGRAMDATA%@ or @%ALLUSERSPROFILE%@ + -- (e.g. @C:\/ProgramData@). + | XdgConfigDirs + -- ^ For configuration files. + -- It uses the @XDG_CONFIG_DIRS@ environment variable. + -- On non-Windows systems, the default is @\/etc\/xdg@. + -- On Windows, the default is @%PROGRAMDATA%@ or @%ALLUSERSPROFILE%@ + -- (e.g. @C:\/ProgramData@). + deriving (Bounded, Enum, Eq, Ord, Read, Show) diff --git a/System/Directory/Internal/Config.hs b/System/Directory/Internal/Config.hs new file mode 100644 --- /dev/null +++ b/System/Directory/Internal/Config.hs @@ -0,0 +1,11 @@ +{-# LANGUAGE CPP #-} +module System.Directory.Internal.Config where +#include +import System.Directory.Internal.Common + +exeExtension :: OsString +exeExtension = os EXE_EXTENSION +-- We avoid using #const_str from hsc because it breaks cross-compilation +-- builds, so we use this ugly workaround where we simply paste the C string +-- literal directly in here. This will probably break if the EXE_EXTENSION +-- contains strange characters, but hopefully no sane OS would ever do that. diff --git a/System/Directory/Internal/Posix.hsc b/System/Directory/Internal/Posix.hsc new file mode 100644 --- /dev/null +++ b/System/Directory/Internal/Posix.hsc @@ -0,0 +1,438 @@ +{-# LANGUAGE CApiFFI #-} +module System.Directory.Internal.Posix where +#include +#if !defined(mingw32_HOST_OS) +#include +#ifdef HAVE_LIMITS_H +# include +#endif +#ifdef HAVE_SYS_STAT_H +# include +#endif +import Prelude () +import System.Directory.Internal.Prelude +#ifdef HAVE_UTIMENSAT +import System.Directory.Internal.C_utimensat +#endif +import System.Directory.Internal.Common +import System.Directory.Internal.Config (exeExtension) +import Data.Time (UTCTime) +import Data.Time.Clock.POSIX (POSIXTime) +import System.OsPath ((), isRelative, splitSearchPath) +import System.OsString.Internal.Types (OsString(OsString, getOsString)) +import qualified Data.Time.Clock.POSIX as POSIXTime +import qualified System.OsPath.Internal as OsPath +import qualified System.Posix.Directory.Fd as Posix +import qualified System.Posix.Directory.PosixPath as Posix +import qualified System.Posix.Env.PosixString as Posix +import qualified System.Posix.Files as Posix (FileStatus(..)) +import qualified System.Posix.Files.PosixString as Posix +import qualified System.Posix.Internals as Posix (CStat) +import qualified System.Posix.IO.PosixString as Posix +import qualified System.Posix.PosixPath.FilePath as Posix +import qualified System.Posix.Types as Posix +import qualified System.Posix.User.ByteString as Posix + +c_AT_FDCWD :: Posix.Fd +c_AT_FDCWD = Posix.Fd (#const AT_FDCWD) + +c_AT_SYMLINK_NOFOLLOW :: CInt +c_AT_SYMLINK_NOFOLLOW = (#const AT_SYMLINK_NOFOLLOW) + +atWhetherFollow :: WhetherFollow -> CInt +atWhetherFollow NoFollow = c_AT_SYMLINK_NOFOLLOW +atWhetherFollow FollowLinks = 0 + +defaultOpenFlags :: Posix.OpenFileFlags +defaultOpenFlags = + Posix.defaultFileFlags + { Posix.noctty = True + , Posix.nonBlock = True + , Posix.cloexec = True + } + +type RawHandle = Posix.Fd + +openRaw :: WhetherFollow -> Maybe RawHandle -> OsPath -> IO RawHandle +openRaw whetherFollow dir (OsString path) = + Posix.openFdAt dir path Posix.ReadOnly flags + where + flags = defaultOpenFlags { Posix.nofollow = isNoFollow whetherFollow } + +closeRaw :: RawHandle -> IO () +closeRaw = Posix.closeFd + +createDirectoryInternal :: OsPath -> IO () +createDirectoryInternal (OsString path) = Posix.createDirectory path 0o777 + +foreign import ccall "unistd.h unlinkat" c_unlinkat + :: Posix.Fd -> CString -> CInt -> IO CInt + +removePathAt :: FileType -> Maybe RawHandle -> OsPath -> IO () +removePathAt ty dir (OsString path) = + Posix.withFilePath path $ \ pPath -> do + Posix.throwErrnoPathIfMinus1_ "unlinkat" path + (c_unlinkat (fromMaybe c_AT_FDCWD dir) pPath flag) + pure () + where + flag | fileTypeIsDirectory ty = (#const AT_REMOVEDIR) + | otherwise = 0 + +removePathInternal :: Bool -> OsPath -> IO () +removePathInternal True = Posix.removeDirectory . getOsString +removePathInternal False = Posix.removeLink . getOsString + +renamePathInternal :: OsPath -> OsPath -> IO () +renamePathInternal (OsString p1) (OsString p2) = Posix.rename p1 p2 + +-- On POSIX, the removability of a file is only affected by the attributes of +-- the containing directory. +filesAlwaysRemovable :: Bool +filesAlwaysRemovable = True + +-- | On POSIX, equivalent to 'simplifyPosix'. +simplify :: OsPath -> OsPath +simplify = simplifyPosix + +-- we use the 'free' from the standard library here since it's not entirely +-- clear whether Haskell's 'free' corresponds to the same one +foreign import ccall unsafe "free" c_free :: Ptr a -> IO () + +c_PATH_MAX :: Maybe Int +#ifdef PATH_MAX +c_PATH_MAX | c_PATH_MAX' > toInteger maxValue = Nothing + | otherwise = Just (fromInteger c_PATH_MAX') + where c_PATH_MAX' = (#const PATH_MAX) + maxValue = maxBound `asTypeInMaybe` c_PATH_MAX + asTypeInMaybe :: a -> Maybe a -> a + asTypeInMaybe = const +#else +c_PATH_MAX = Nothing +#endif + +#if !defined(HAVE_REALPATH) + +c_realpath :: CString -> CString -> IO CString +c_realpath _ _ = + throwIO + (mkIOError + UnsupportedOperation + "platform does not support realpath" + Nothing + Nothing) + +#else + +foreign import ccall "realpath" c_realpath :: CString -> CString -> IO CString + +#endif + +withRealpath :: CString -> (CString -> IO a) -> IO a +withRealpath path action = case c_PATH_MAX of + Nothing -> + -- newer versions of POSIX support cases where the 2nd arg is NULL; + -- hopefully that is the case here, as there is no safer way + bracket (realpath nullPtr) c_free action + Just pathMax -> + -- allocate one extra just to be safe + allocaBytes (pathMax + 1) (realpath >=> action) + where realpath = throwErrnoIfNull "" . c_realpath path + +realPath :: OsPath -> IO OsPath +realPath (OsString path') = + Posix.withFilePath path' + (`withRealpath` ((OsString <$>) . Posix.peekFilePath)) + +canonicalizePathSimplify :: OsPath -> IO OsPath +canonicalizePathSimplify = pure + +findExecutablesLazyInternal :: ([OsPath] -> OsString -> ListT IO OsPath) + -> OsString + -> ListT IO OsPath +findExecutablesLazyInternal findExecutablesInDirectoriesLazy binary = + liftJoinListT $ do + path <- getPath + pure (findExecutablesInDirectoriesLazy path binary) + +getPath :: IO [OsPath] +getPath = splitSearchPath <$> getEnvOs (os "PATH") + +exeExtensionInternal :: OsString +exeExtensionInternal = exeExtension + +openDirFromFd :: Posix.Fd -> IO Posix.DirStream +openDirFromFd fd = Posix.unsafeOpenDirStreamFd =<< Posix.dup fd + +readDirStreamToEnd :: Posix.DirStream -> IO [OsPath] +readDirStreamToEnd stream = loop id + where + loop acc = do + e <- Posix.readDirStream stream + if e == mempty + then pure (acc []) + else loop (acc . (OsString e :)) + +readDirToEnd :: RawHandle -> IO [OsPath] +readDirToEnd fd = + bracket (openDirFromFd fd) Posix.closeDirStream readDirStreamToEnd + +getDirectoryContentsInternal :: OsPath -> IO [OsPath] +getDirectoryContentsInternal (OsString path) = + bracket (Posix.openDirStream path) Posix.closeDirStream readDirStreamToEnd + +getCurrentDirectoryInternal :: IO OsPath +getCurrentDirectoryInternal = OsString <$> Posix.getWorkingDirectory + +-- | Convert a path into an absolute path. If the given path is relative, the +-- current directory is prepended and the path may or may not be simplified. +-- If the path is already absolute, the path is returned unchanged. The +-- function preserves the presence or absence of the trailing path separator. +-- +-- If the path is already absolute, the operation never fails. Otherwise, the +-- operation may throw exceptions. +-- +-- Empty paths are treated as the current directory. +prependCurrentDirectory :: OsPath -> IO OsPath +prependCurrentDirectory path + | isRelative path = + ((`ioeAddLocation` "prependCurrentDirectory") . + (`ioeSetOsPath` path)) `modifyIOError` do + ( path) <$> getCurrentDirectoryInternal + | otherwise = pure path + +setCurrentDirectoryInternal :: OsPath -> IO () +setCurrentDirectoryInternal = Posix.changeWorkingDirectory . getOsString + +linkToDirectoryIsDirectory :: Bool +linkToDirectoryIsDirectory = False + +createHardLink :: OsPath -> OsPath -> IO () +createHardLink (OsString p1) (OsString p2) = Posix.createLink p1 p2 + +createSymbolicLink :: Bool -> OsPath -> OsPath -> IO () +createSymbolicLink _ (OsString p1) (OsString p2) = + Posix.createSymbolicLink p1 p2 + +readSymbolicLink :: OsPath -> IO OsPath +readSymbolicLink = (OsString <$>) . Posix.readSymbolicLink . getOsString + +type Metadata = Posix.FileStatus + +foreign import capi "sys/stat.h fstatat" c_fstatat + :: Posix.Fd -> CString -> Ptr Posix.CStat -> CInt -> IO CInt + +getMetadataAt :: WhetherFollow -> Maybe RawHandle -> OsPath -> IO Metadata +getMetadataAt whetherFollow dir (OsString path) = + Posix.withFilePath path $ \ pPath -> do + stat <- mallocForeignPtrBytes (#const sizeof(struct stat)) + withForeignPtr stat $ \ pStat -> do + Posix.throwErrnoPathIfMinus1_ "fstatat" path $ do + c_fstatat (fromMaybe c_AT_FDCWD dir) pPath pStat flags + pure (Posix.FileStatus stat) + where + flags = atWhetherFollow whetherFollow + +getSymbolicLinkMetadata :: OsPath -> IO Metadata +getSymbolicLinkMetadata = Posix.getSymbolicLinkStatus . getOsString + +getFileMetadata :: OsPath -> IO Metadata +getFileMetadata = Posix.getFileStatus . getOsString + +fileTypeFromMetadata :: Metadata -> FileType +fileTypeFromMetadata stat + | isLink = SymbolicLink + | isDir = Directory + | otherwise = File + where + isLink = Posix.isSymbolicLink stat + isDir = Posix.isDirectory stat + +fileSizeFromMetadata :: Metadata -> Integer +fileSizeFromMetadata = fromIntegral . Posix.fileSize + +accessTimeFromMetadata :: Metadata -> UTCTime +accessTimeFromMetadata = + POSIXTime.posixSecondsToUTCTime . Posix.accessTimeHiRes + +modificationTimeFromMetadata :: Metadata -> UTCTime +modificationTimeFromMetadata = + POSIXTime.posixSecondsToUTCTime . Posix.modificationTimeHiRes + +type Mode = Posix.FileMode + +modeFromMetadata :: Metadata -> Mode +modeFromMetadata = Posix.fileMode + +allWriteMode :: Posix.FileMode +allWriteMode = + Posix.ownerWriteMode .|. + Posix.groupWriteMode .|. + Posix.otherWriteMode + +hasWriteMode :: Mode -> Bool +hasWriteMode m = m .&. allWriteMode /= 0 + +setWriteMode :: Bool -> Mode -> Mode +setWriteMode False m = m .&. complement allWriteMode +setWriteMode True m = m .|. allWriteMode + +setForceRemoveMode :: Mode -> Mode +setForceRemoveMode m = m .|. Posix.ownerModes + +foreign import capi "sys/stat.h fchmodat" c_fchmodat + :: Posix.Fd -> CString -> Posix.FileMode -> CInt -> IO CInt + +setModeAt :: Maybe RawHandle -> OsPath -> Mode -> IO () +setModeAt dir (OsString path) mode = do + Posix.withFilePath path $ \ pPath -> + Posix.throwErrnoPathIfMinus1_ "fchmodat" path $ do + c_fchmodat (fromMaybe c_AT_FDCWD dir) pPath mode 0 + +setFileMode :: OsPath -> Mode -> IO () +setFileMode = Posix.setFileMode . getOsString + +setFilePermissions :: OsPath -> Mode -> IO () +setFilePermissions = setFileMode + +getAccessPermissions :: OsPath -> IO Permissions +getAccessPermissions path = do + m <- getFileMetadata path + let isDir = fileTypeIsDirectory (fileTypeFromMetadata m) + let OsString path' = path + r <- Posix.fileAccess path' True False False + w <- Posix.fileAccess path' False True False + x <- Posix.fileAccess path' False False True + pure Permissions + { readable = r + , writable = w + , executable = x && not isDir + , searchable = x && isDir + } + +setAccessPermissions :: OsPath -> Permissions -> IO () +setAccessPermissions path (Permissions r w e s) = do + m <- getFileMetadata path + setFileMode path (modifyBit (e || s) Posix.ownerExecuteMode . + modifyBit w Posix.ownerWriteMode . + modifyBit r Posix.ownerReadMode . + modeFromMetadata $ m) + where + modifyBit :: Bool -> Posix.FileMode -> Posix.FileMode -> Posix.FileMode + modifyBit False b m = m .&. complement b + modifyBit True b m = m .|. b + +copyOwnerFromStatus :: Posix.FileStatus -> OsPath -> IO () +copyOwnerFromStatus st (OsString dst) = do + Posix.setOwnerAndGroup dst (Posix.fileOwner st) (-1) + +copyGroupFromStatus :: Posix.FileStatus -> OsPath -> IO () +copyGroupFromStatus st (OsString dst) = do + Posix.setOwnerAndGroup dst (-1) (Posix.fileGroup st) + +tryCopyOwnerAndGroupFromStatus :: Posix.FileStatus -> OsPath -> IO () +tryCopyOwnerAndGroupFromStatus st dst = do + ignoreIOExceptions (copyOwnerFromStatus st dst) + ignoreIOExceptions (copyGroupFromStatus st dst) + +-- | Truncate the destination file and then copy the contents of the source +-- file to the destination file. If the destination file already exists, its +-- attributes shall remain unchanged. Otherwise, its attributes are reset to +-- the defaults. +copyFileContents :: OsPath -- ^ Source filename + -> OsPath -- ^ Destination filename + -> IO () +copyFileContents fromFPath toFPath = + (`ioeAddLocation` "copyFileContents") `modifyIOError` do + withBinaryFile toFPath WriteMode $ \ hTo -> do + withBinaryFile fromFPath ReadMode $ \ hFrom -> do + copyHandleData hFrom hTo + +copyFileWithMetadataInternal :: (Metadata -> OsPath -> IO ()) + -> (Metadata -> OsPath -> IO ()) + -> OsPath + -> OsPath + -> IO () +copyFileWithMetadataInternal copyPermissionsFromMetadata + copyTimesFromMetadata + src + dst = do + st <- Posix.getFileStatus (getOsString src) + copyFileContents src dst + tryCopyOwnerAndGroupFromStatus st dst + copyPermissionsFromMetadata st dst + copyTimesFromMetadata st dst + +setTimes :: OsPath -> (Maybe POSIXTime, Maybe POSIXTime) -> IO () +#ifdef HAVE_UTIMENSAT +setTimes (OsString path') (atime', mtime') = + Posix.withFilePath path' $ \ path'' -> + withArray [ maybe utimeOmit toCTimeSpec atime' + , maybe utimeOmit toCTimeSpec mtime' ] $ \ times -> + Posix.throwErrnoPathIfMinus1_ "" path' $ + c_utimensat c_AT_FDCWD path'' times 0 +#else +setTimes (OsString path') (Just atime', Just mtime') = + Posix.setFileTimesHiRes path' atime' mtime' +setTimes (OsString path') (atime', mtime') = do + m <- getFileMetadata (OsString path') + let atimeOld = accessTimeFromMetadata m + let mtimeOld = modificationTimeFromMetadata m + Posix.setFileTimesHiRes path' + (fromMaybe (POSIXTime.utcTimeToPOSIXSeconds atimeOld) atime') + (fromMaybe (POSIXTime.utcTimeToPOSIXSeconds mtimeOld) mtime') +#endif + +lookupEnvOs :: OsString -> IO (Maybe OsString) +lookupEnvOs (OsString name) = (OsString <$>) <$> Posix.getEnv name + +getEnvOs :: OsString -> IO OsString +getEnvOs name = do + env <- lookupEnvOs name + case env of + Nothing -> + throwIO $ + mkIOError + doesNotExistErrorType + ("env var " <> show name <> " not found") + Nothing + Nothing + Just value -> pure value + +-- | $HOME is preferred, because the user has control over it. However, POSIX +-- doesn't define it as a mandatory variable, so fall back to `getpwuid_r`. +getHomeDirectoryInternal :: IO OsPath +getHomeDirectoryInternal = do + e <- lookupEnvOs (os "HOME") + case e of + Just fp -> pure fp + Nothing -> + OsPath.fromBytes . Posix.homeDirectory =<< + Posix.getUserEntryForID =<< + Posix.getEffectiveUserID + +getXdgDirectoryFallback :: IO OsPath -> XdgDirectory -> IO OsPath +getXdgDirectoryFallback getHomeDirectory xdgDir = do + (<$> getHomeDirectory) $ flip () $ case xdgDir of + XdgData -> os ".local/share" + XdgConfig -> os ".config" + XdgCache -> os ".cache" + XdgState -> os ".local/state" + +getXdgDirectoryListFallback :: XdgDirectoryList -> IO [OsPath] +getXdgDirectoryListFallback xdgDirs = + pure $ case xdgDirs of + XdgDataDirs -> [os "/usr/local/share/", os "/usr/share/"] + XdgConfigDirs -> [os "/etc/xdg"] + +getAppUserDataDirectoryInternal :: OsPath -> IO OsPath +getAppUserDataDirectoryInternal appName = + (\ home -> home <> (os "/" <> os "." <> appName)) <$> getHomeDirectoryInternal + +getUserDocumentsDirectoryInternal :: IO OsPath +getUserDocumentsDirectoryInternal = getHomeDirectoryInternal + +getTemporaryDirectoryInternal :: IO OsPath +getTemporaryDirectoryInternal = + fromMaybe (os "/tmp") <$> lookupEnvOs (os "TMPDIR") + +#endif diff --git a/System/Directory/Internal/Prelude.hs b/System/Directory/Internal/Prelude.hs new file mode 100644 --- /dev/null +++ b/System/Directory/Internal/Prelude.hs @@ -0,0 +1,150 @@ +{-# OPTIONS_HADDOCK hide #-} +-- | +-- Stability: unstable +-- Portability: portable +-- +-- Internal modules are always subject to change from version to version. + +module System.Directory.Internal.Prelude + ( module Prelude + , module Control.Arrow + , module Control.Concurrent + , module Control.Exception + , module Control.Monad + , module Data.Bits + , module Data.Char + , module Data.Foldable + , module Data.Function + , module Data.Maybe + , module Data.Monoid + , module Data.IORef + , module Data.Traversable + , module Foreign + , module Foreign.C + , module GHC.IO.Encoding + , module GHC.IO.Exception + , module System.Environment + , module System.Exit + , module System.IO + , module System.IO.Error + , module System.Posix.Types + , module System.Timeout + , Void + ) where +import Data.Void (Void) +import Control.Arrow (second) +import Control.Concurrent + ( forkIO + , killThread + , newEmptyMVar + , putMVar + , readMVar + , takeMVar + , forkFinally + ) +import Control.Exception + ( Exception(displayException) + , SomeException + , bracket + , bracket_ + , bracketOnError + , catch + , finally + , mask + , onException + , throwIO + , try + ) +import Control.Monad ((>=>), (<=<), unless, when, replicateM, replicateM_) +import Data.Bits ((.&.), (.|.), complement) +import Data.Char (isAlpha, isAscii, toLower, toUpper) +import Data.Foldable (for_, sequenceA_) +import Data.Function (on) +import Data.Maybe (catMaybes, fromMaybe, maybeToList) +import Data.Monoid ((<>), mconcat, mempty) +import Data.IORef (IORef, newIORef, readIORef, writeIORef) +import Data.Traversable (for) +import Foreign + ( Ptr + , Storable + ( alignment + , peek + , peekByteOff + , peekElemOff + , poke + , pokeByteOff + , pokeElemOff + , sizeOf + ) + , alloca + , allocaArray + , allocaBytes + , allocaBytesAligned + , mallocForeignPtrBytes + , maybeWith + , nullPtr + , plusPtr + , with + , withArray + , withForeignPtr + ) +import Foreign.C + ( CInt(..) + , CLong(..) + , CString + , CTime(..) + , CUChar(..) + , CULong(..) + , CUShort(..) + , CWString + , CWchar(..) + , throwErrnoIfMinus1Retry_ + , throwErrnoIfMinus1_ + , throwErrnoIfNull + ) +import GHC.IO.Exception + ( IOErrorType + ( InappropriateType + , InvalidArgument + , OtherError + , UnsupportedOperation + ) + ) +import GHC.IO.Encoding (getFileSystemEncoding) +import System.Environment (getArgs) +import System.Exit (exitFailure) +import System.IO + ( Handle + , IOMode(ReadMode, WriteMode) + , hClose + , hFlush + , hGetBuf + , hPutBuf + , hPutStr + , hPutStrLn + , stderr + , stdout + ) +import System.IO.Error + ( IOError + , catchIOError + , doesNotExistErrorType + , illegalOperationErrorType + , ioeGetErrorString + , ioeGetErrorType + , ioeGetLocation + , ioeSetErrorString + , ioeSetFileName + , ioeSetLocation + , isAlreadyExistsError + , isDoesNotExistError + , isIllegalOperation + , isPermissionError + , mkIOError + , modifyIOError + , permissionErrorType + , tryIOError + , userError + ) +import System.Posix.Types (CMode, EpochTime) +import System.Timeout (timeout) diff --git a/System/Directory/Internal/Windows.hsc b/System/Directory/Internal/Windows.hsc new file mode 100644 --- /dev/null +++ b/System/Directory/Internal/Windows.hsc @@ -0,0 +1,731 @@ +{-# LANGUAGE CPP #-} +module System.Directory.Internal.Windows where +#include +#if defined(mingw32_HOST_OS) +##if defined(i386_HOST_ARCH) +## define WINAPI stdcall +##elif defined(x86_64_HOST_ARCH) || defined(aarch64_HOST_ARCH) +## define WINAPI ccall +##else +## error unknown architecture +##endif +#include +#include +#include +#include +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.Internal.Common +import System.Directory.Internal.Config (exeExtension) +import Data.Time (UTCTime) +import Data.Time.Clock.POSIX (POSIXTime, posixSecondsToUTCTime) +#ifdef __IO_MANAGER_WINIO__ +import GHC.IO.SubSystem (IoSubSystem(IoPOSIX, IoNative), ioSubSystem) +#endif +import System.OsPath + ( () + , hasExtension + , isExtensionOf + , isPathSeparator + , isRelative + , pack + , pathSeparator + , splitDirectories + , splitSearchPath + , takeExtension + , toChar + , unpack + ) +import System.OsPath.Types (WindowsPath, WindowsString) +import System.OsString.Internal.Types (OsString(OsString, getOsString)) +import qualified Data.List as List +import qualified System.Win32.WindowsString.File as Win32 +import qualified System.Win32.WindowsString.Info as Win32 +import qualified System.Win32.WindowsString.Shell as Win32 +import qualified System.Win32.WindowsString.Time as Win32 +import qualified System.Win32.WindowsString.Types as Win32 +import qualified System.Win32.WindowsString.Console as Win32 + +type RawHandle = OsPath + +pathAt :: Maybe RawHandle -> OsPath -> OsPath +pathAt dir path = fromMaybe mempty dir path + +openRaw :: WhetherFollow -> Maybe RawHandle -> OsPath -> IO RawHandle +openRaw _ dir path = pure (pathAt dir path) + +closeRaw :: RawHandle -> IO () +closeRaw _ = pure () + +lookupEnvOs :: OsString -> IO (Maybe OsString) +lookupEnvOs (OsString name) = (OsString <$>) <$> Win32.getEnv name + +getEnvOs :: OsString -> IO OsString +getEnvOs name = do + env <- lookupEnvOs name + case env of + Nothing -> + throwIO $ + mkIOError + doesNotExistErrorType + ("env var " <> show name <> " not found") + Nothing + Nothing + Just value -> pure value + +-- | Get the contents of the @PATH@ environment variable. +getPath :: IO [OsPath] +getPath = splitSearchPath <$> getEnvOs (os "PATH") + +createDirectoryInternal :: OsPath -> IO () +createDirectoryInternal path = + (`ioeSetOsPath` path) `modifyIOError` do + path' <- furnishPath path + Win32.createDirectory path' Nothing + +removePathAt :: FileType -> Maybe RawHandle -> OsPath -> IO () +removePathAt ty dir path = removePathInternal isDir (pathAt dir path) + where isDir = fileTypeIsDirectory ty + +removePathInternal :: Bool -> OsPath -> IO () +removePathInternal isDir path = + (`ioeSetOsPath` path) `modifyIOError` do + furnishPath path + >>= if isDir then Win32.removeDirectory else Win32.deleteFile + +renamePathInternal :: OsPath -> OsPath -> IO () +renamePathInternal opath npath = + (`ioeSetOsPath` opath) `modifyIOError` do + opath' <- furnishPath opath + npath' <- furnishPath npath + Win32.moveFileEx opath' (Just npath') Win32.mOVEFILE_REPLACE_EXISTING + +-- On Windows, the removability of a file may be affected by the attributes of +-- the file itself. +filesAlwaysRemovable :: Bool +filesAlwaysRemovable = False + +copyFileWithMetadataInternal :: (Metadata -> OsPath -> IO ()) + -> (Metadata -> OsPath -> IO ()) + -> OsPath + -> OsPath + -> IO () +copyFileWithMetadataInternal _ _ src dst = + (`ioeSetOsPath` src) `modifyIOError` do + src' <- furnishPath src + dst' <- furnishPath dst + Win32.copyFile src' dst' False + +win32_cSIDL_COMMON_APPDATA :: Win32.CSIDL +win32_cSIDL_COMMON_APPDATA = (#const CSIDL_COMMON_APPDATA) + +win32_eRROR_ENVVAR_NOT_FOUND :: Win32.ErrCode +win32_eRROR_ENVVAR_NOT_FOUND = (#const ERROR_ENVVAR_NOT_FOUND) + +win32_eRROR_INVALID_FUNCTION :: Win32.ErrCode +win32_eRROR_INVALID_FUNCTION = (#const ERROR_INVALID_FUNCTION) + +win32_eRROR_INVALID_PARAMETER :: Win32.ErrCode +win32_eRROR_INVALID_PARAMETER = (#const ERROR_INVALID_PARAMETER) + +win32_eRROR_PRIVILEGE_NOT_HELD :: Win32.ErrCode +win32_eRROR_PRIVILEGE_NOT_HELD = (#const ERROR_PRIVILEGE_NOT_HELD) + +win32_sYMBOLIC_LINK_FLAG_DIRECTORY :: Win32.DWORD +win32_sYMBOLIC_LINK_FLAG_DIRECTORY = 0x1 + +win32_sYMBOLIC_LINK_FLAG_ALLOW_UNPRIVILEGED_CREATE :: Win32.DWORD +win32_sYMBOLIC_LINK_FLAG_ALLOW_UNPRIVILEGED_CREATE = 0x2 + +maxShareMode :: Win32.ShareMode +maxShareMode = + Win32.fILE_SHARE_DELETE .|. + Win32.fILE_SHARE_READ .|. + Win32.fILE_SHARE_WRITE + +win32_getFinalPathNameByHandle :: Win32.HANDLE -> Win32.DWORD -> IO WindowsPath +#ifdef HAVE_GETFINALPATHNAMEBYHANDLEW +win32_getFinalPathNameByHandle h flags = do + result <- peekTStringWith (#const MAX_PATH) $ \ ptr len -> do + c_GetFinalPathNameByHandle h ptr len flags + case result of + Left errCode -> Win32.failWith "GetFinalPathNameByHandle" errCode + Right path -> pure path + +foreign import WINAPI unsafe "windows.h GetFinalPathNameByHandleW" + c_GetFinalPathNameByHandle + :: Win32.HANDLE + -> Ptr CWchar + -> Win32.DWORD + -> Win32.DWORD + -> IO Win32.DWORD + +#else +win32_getFinalPathNameByHandle _ _ = throwIO $ + mkIOError + UnsupportedOperation + "platform does not support GetFinalPathNameByHandle" + Nothing + Nothing +#endif + +getFinalPathName :: OsPath -> IO OsPath +getFinalPathName = + (fromExtendedLengthPath <$>) . + rawGetFinalPathName . + toExtendedLengthPath + where +#ifdef HAVE_GETFINALPATHNAMEBYHANDLEW + rawGetFinalPathName path = do + let open = Win32.createFile path 0 maxShareMode Nothing + Win32.oPEN_EXISTING Win32.fILE_FLAG_BACKUP_SEMANTICS Nothing + bracket open Win32.closeHandle $ \ h -> do + win32_getFinalPathNameByHandle h 0 +#else + rawGetFinalPathName = Win32.getLongPathName <=< Win32.getShortPathName +#endif + +win32_fILE_FLAG_OPEN_REPARSE_POINT :: Win32.FileAttributeOrFlag +win32_fILE_FLAG_OPEN_REPARSE_POINT = 0x00200000 + +win32_fSCTL_GET_REPARSE_POINT :: Win32.DWORD +win32_fSCTL_GET_REPARSE_POINT = 0x900a8 + +win32_iO_REPARSE_TAG_MOUNT_POINT, win32_iO_REPARSE_TAG_SYMLINK :: CULong +win32_iO_REPARSE_TAG_MOUNT_POINT = (#const IO_REPARSE_TAG_MOUNT_POINT) +win32_iO_REPARSE_TAG_SYMLINK = (#const IO_REPARSE_TAG_SYMLINK) + +win32_mAXIMUM_REPARSE_DATA_BUFFER_SIZE :: Win32.DWORD +win32_mAXIMUM_REPARSE_DATA_BUFFER_SIZE = + (#const MAXIMUM_REPARSE_DATA_BUFFER_SIZE) + +win32_sYMLINK_FLAG_RELATIVE :: CULong +win32_sYMLINK_FLAG_RELATIVE = 0x00000001 + +data Win32_REPARSE_DATA_BUFFER + = Win32_MOUNT_POINT_REPARSE_DATA_BUFFER WindowsString WindowsString + -- ^ substituteName printName + | Win32_SYMLINK_REPARSE_DATA_BUFFER WindowsString WindowsString Bool + -- ^ substituteName printName isRelative + | Win32_GENERIC_REPARSE_DATA_BUFFER + +win32_alloca_REPARSE_DATA_BUFFER + :: ((Ptr Win32_REPARSE_DATA_BUFFER, Int) -> IO a) -> IO a +win32_alloca_REPARSE_DATA_BUFFER action = + allocaBytesAligned size align $ \ ptr -> + action (ptr, size) + where size = fromIntegral win32_mAXIMUM_REPARSE_DATA_BUFFER_SIZE + align = #{alignment HsDirectory_REPARSE_DATA_BUFFER} + +win32_peek_REPARSE_DATA_BUFFER + :: Ptr Win32_REPARSE_DATA_BUFFER -> IO Win32_REPARSE_DATA_BUFFER +win32_peek_REPARSE_DATA_BUFFER p = do + tag <- #{peek HsDirectory_REPARSE_DATA_BUFFER, ReparseTag} p + case () of + _ | tag == win32_iO_REPARSE_TAG_MOUNT_POINT -> do + let buf = #{ptr HsDirectory_REPARSE_DATA_BUFFER, + MountPointReparseBuffer.PathBuffer} p + sni <- #{peek HsDirectory_REPARSE_DATA_BUFFER, + MountPointReparseBuffer.SubstituteNameOffset} p + sns <- #{peek HsDirectory_REPARSE_DATA_BUFFER, + MountPointReparseBuffer.SubstituteNameLength} p + sn <- peekName buf sni sns + pni <- #{peek HsDirectory_REPARSE_DATA_BUFFER, + MountPointReparseBuffer.PrintNameOffset} p + pns <- #{peek HsDirectory_REPARSE_DATA_BUFFER, + MountPointReparseBuffer.PrintNameLength} p + pn <- peekName buf pni pns + pure (Win32_MOUNT_POINT_REPARSE_DATA_BUFFER sn pn) + | tag == win32_iO_REPARSE_TAG_SYMLINK -> do + let buf = #{ptr HsDirectory_REPARSE_DATA_BUFFER, + SymbolicLinkReparseBuffer.PathBuffer} p + sni <- #{peek HsDirectory_REPARSE_DATA_BUFFER, + SymbolicLinkReparseBuffer.SubstituteNameOffset} p + sns <- #{peek HsDirectory_REPARSE_DATA_BUFFER, + SymbolicLinkReparseBuffer.SubstituteNameLength} p + sn <- peekName buf sni sns + pni <- #{peek HsDirectory_REPARSE_DATA_BUFFER, + SymbolicLinkReparseBuffer.PrintNameOffset} p + pns <- #{peek HsDirectory_REPARSE_DATA_BUFFER, + SymbolicLinkReparseBuffer.PrintNameLength} p + pn <- peekName buf pni pns + flags <- #{peek HsDirectory_REPARSE_DATA_BUFFER, + SymbolicLinkReparseBuffer.Flags} p + pure (Win32_SYMLINK_REPARSE_DATA_BUFFER sn pn + (flags .&. win32_sYMLINK_FLAG_RELATIVE /= 0)) + | otherwise -> pure Win32_GENERIC_REPARSE_DATA_BUFFER + where + peekName :: Ptr CWchar -> CUShort -> CUShort -> IO WindowsString + peekName buf offset size = + Win32.peekTStringLen ( buf `plusPtr` fromIntegral offset + , fromIntegral size `div` sizeOf (0 :: CWchar) ) + +deviceIoControl + :: Win32.HANDLE + -> Win32.DWORD + -> (Ptr a, Int) + -> (Ptr b, Int) + -> Maybe Void + -> IO (Either Win32.ErrCode Int) +deviceIoControl h code (inPtr, inSize) (outPtr, outSize) _ = do + with 0 $ \ lenPtr -> do + ok <- c_DeviceIoControl h code inPtr (fromIntegral inSize) outPtr + (fromIntegral outSize) lenPtr nullPtr + if ok + then Right . fromIntegral <$> peek lenPtr + else Left <$> Win32.getLastError + +foreign import WINAPI unsafe "windows.h DeviceIoControl" + c_DeviceIoControl + :: Win32.HANDLE + -> Win32.DWORD + -> Ptr a + -> Win32.DWORD + -> Ptr b + -> Win32.DWORD + -> Ptr Win32.DWORD + -> Ptr Void + -> IO Win32.BOOL + +readSymbolicLink :: OsPath -> IO OsPath +readSymbolicLink path = + (`ioeSetOsPath` path) `modifyIOError` do + path' <- furnishPath path + let open = Win32.createFile path' 0 maxShareMode Nothing Win32.oPEN_EXISTING + (Win32.fILE_FLAG_BACKUP_SEMANTICS .|. + win32_fILE_FLAG_OPEN_REPARSE_POINT) Nothing + bracket open Win32.closeHandle $ \ h -> do + win32_alloca_REPARSE_DATA_BUFFER $ \ ptrAndSize@(ptr, _) -> do + result <- deviceIoControl h win32_fSCTL_GET_REPARSE_POINT + (nullPtr, 0) ptrAndSize Nothing + case result of + Left e | e == win32_eRROR_INVALID_FUNCTION -> do + let msg = "Incorrect function. The file system " <> + "might not support symbolic links." + throwIO (mkIOError illegalOperationErrorType + "DeviceIoControl" Nothing Nothing + `ioeSetErrorString` msg) + | otherwise -> Win32.failWith "DeviceIoControl" e + Right _ -> pure () + rData <- win32_peek_REPARSE_DATA_BUFFER ptr + strip . OsString <$> case rData of + Win32_MOUNT_POINT_REPARSE_DATA_BUFFER sn _ -> pure sn + Win32_SYMLINK_REPARSE_DATA_BUFFER sn _ _ -> pure sn + _ -> throwIO (mkIOError InappropriateType + "readSymbolicLink" Nothing Nothing) + where + strip sn = + fromMaybe sn + (pack <$> List.stripPrefix (unpack (os "\\??\\")) (unpack sn)) + +-- | On Windows, equivalent to 'simplifyWindows'. +simplify :: OsPath -> OsPath +simplify = simplifyWindows + +-- | Normalise the path separators and prepend the @"\\\\?\\"@ prefix if +-- necessary or possible. This is used for symbolic links targets because +-- they can't handle forward slashes. +normaliseSeparators :: OsPath -> WindowsPath +normaliseSeparators path + | isRelative path = getOsString (pack (normaliseSep <$> unpack path)) + | otherwise = toExtendedLengthPath path + where normaliseSep c = if isPathSeparator c then pathSeparator else c + +-- | 'simplify' the path and prepend the @"\\\\?\\"@ if possible. This +-- function can sometimes be used to bypass the @MAX_PATH@ length restriction +-- in Windows API calls. +toExtendedLengthPath :: OsPath -> WindowsPath +toExtendedLengthPath path = + getOsString $ + if isRelative path + then simplifiedPath + else + case toChar <$> simplifiedPath' of + '\\' : '?' : '?' : '\\' : _ -> simplifiedPath + '\\' : '\\' : _ -> simplifiedPath + _ -> os "\\\\?\\" <> simplifiedPath + where simplifiedPath = simplify path + simplifiedPath' = unpack simplifiedPath + +-- | Make a path absolute and convert to an extended length path, if possible. +-- +-- Empty paths are left unchanged. +-- +-- This function never fails. If it doesn't understand the path, it just +-- returns the path unchanged. +furnishPath :: OsPath -> IO WindowsPath +furnishPath path = + (toExtendedLengthPath <$> rawPrependCurrentDirectory path) + `catchIOError` \ _ -> + pure (getOsString path) + +-- | Strip the @"\\\\?\\"@ prefix if possible. +-- The prefix is kept if the meaning of the path would otherwise change. +fromExtendedLengthPath :: WindowsPath -> OsPath +fromExtendedLengthPath ePath' = + case unpack ePath of + c1 : c2 : c3 : c4 : path + | (toChar <$> [c1, c2, c3, c4]) == "\\\\?\\" -> + case path of + c5 : c6 : c7 : subpath@(c8 : _) + | (toChar <$> [c5, c6, c7, c8]) == "UNC\\" -> + pack (c8 : subpath) + drive : col : subpath + -- if the path is not "regular", then the prefix is necessary + -- to ensure the path is interpreted literally + | toChar col == ':', isDriveChar drive, isPathRegular subpath -> + pack path + _ -> ePath + _ -> ePath + where + ePath = OsString ePath' + isDriveChar drive = isAlpha (toChar drive) && isAscii (toChar drive) + isPathRegular path = + not ('/' `elem` (toChar <$> path) || + os "." `elem` splitDirectories (pack path) || + os ".." `elem` splitDirectories (pack path)) + +saturatingDouble :: Win32.DWORD -> Win32.DWORD +saturatingDouble s | s > maxBound `div` 2 = maxBound + | otherwise = s * 2 + +-- Handles Windows APIs that write strings through a user-provided buffer and +-- can propose a new length when it isn't big enough. This is similar to +-- Win32.try, but also returns the precise error code. +peekTStringWith :: Win32.DWORD + -> (Win32.LPTSTR -> Win32.DWORD -> IO Win32.DWORD) + -- ^ Must accept a buffer and its size in TCHARs. If the + -- buffer is large enough for the function, it must write a + -- string to it, which need not be null-terminated, and + -- return the length of the string, not including the null + -- terminator if present. If the buffer is too small, it + -- must return a proposed buffer size in TCHARs, although it + -- need not guarantee success with the proposed size if, + -- say, the underlying data changes in the interim. If it + -- fails for any other reason, it must return zero and + -- communicate the error code through GetLastError. + -> IO (Either Win32.ErrCode WindowsPath) +peekTStringWith bufferSize cFunc = do + outcome <- do + allocaArray (fromIntegral bufferSize) $ \ ptr -> do + size <- cFunc ptr bufferSize + case size of + 0 -> Right . Left <$> Win32.getLastError + _ | size <= bufferSize -> + Right . Right <$> Win32.peekTStringLen (ptr, fromIntegral size) + | otherwise -> + -- At least double the size to ensure fast termination. + pure (Left (max size (saturatingDouble bufferSize))) + case outcome of + Left proposedSize -> peekTStringWith proposedSize cFunc + Right result -> pure result + +realPath :: OsPath -> IO OsPath +realPath = getFinalPathName + +canonicalizePathSimplify :: OsPath -> IO OsPath +canonicalizePathSimplify path = + getFullPathName path + `catchIOError` \ _ -> + pure path + +searchPathEnvForExes :: OsString -> IO (Maybe OsPath) +searchPathEnvForExes binaryPath@(OsString binary) = do + maybePath <- search + `catch` \e -> + if ioeGetErrorType e == InvalidArgument + then pure Nothing + else throwIO e + pure (OsString <$> maybePath >>= verify) + where + search = Win32.searchPath Nothing binary (Just (getOsString exeExtension)) + verify p + | hasExtension binaryPath || exeExtension `isExtensionOf` p = Just p + | otherwise = Nothing + +findExecutablesLazyInternal :: ([OsPath] -> OsString -> ListT IO OsPath) + -> OsString + -> ListT IO OsPath +findExecutablesLazyInternal _ = maybeToListT . searchPathEnvForExes + +exeExtensionInternal :: OsString +exeExtensionInternal = exeExtension + +readDirToEnd :: RawHandle -> IO [OsPath] +readDirToEnd = getDirectoryContentsInternal + +getDirectoryContentsInternal :: OsPath -> IO [OsPath] +getDirectoryContentsInternal path = do + query <- furnishPath (path os "*") + bracket + (Win32.findFirstFile query) + (\ (h, _) -> Win32.findClose h) + (\ (h, fdat) -> loop h fdat []) + where + -- we needn't worry about empty directories: a directory always + -- has at least "." and ".." entries + loop :: Win32.HANDLE -> Win32.FindData -> [OsPath] -> IO [OsPath] + loop h fdat acc = do + filename <- Win32.getFindDataFileName fdat + more <- Win32.findNextFile h fdat + if more + then loop h fdat (OsString filename : acc) + else pure (OsString filename : acc) + -- no need to reverse, ordering is undefined + +getCurrentDirectoryInternal :: IO OsPath +getCurrentDirectoryInternal = OsString <$> Win32.getCurrentDirectory + +getFullPathName :: OsPath -> IO OsPath +getFullPathName path = + fromExtendedLengthPath <$> Win32.getFullPathName (toExtendedLengthPath path) + +-- | Similar to 'prependCurrentDirectory' but fails for empty paths. +rawPrependCurrentDirectory :: OsPath -> IO OsPath +rawPrependCurrentDirectory path + | isRelative path = + ((`ioeAddLocation` "prependCurrentDirectory") . + (`ioeSetOsPath` path)) `modifyIOError` do + getFullPathName path + | otherwise = pure path + +-- | Convert a path into an absolute path. If the given path is relative, the +-- current directory is prepended and the path may or may not be simplified. +-- If the path is already absolute, the path is returned unchanged. The +-- function preserves the presence or absence of the trailing path separator. +-- +-- If the path is already absolute, the operation never fails. Otherwise, the +-- operation may throw exceptions. +-- +-- Empty paths are treated as the current directory. +prependCurrentDirectory :: OsPath -> IO OsPath +prependCurrentDirectory = rawPrependCurrentDirectory . emptyToCurDir + +-- SetCurrentDirectory does not support long paths even with the \\?\ prefix +-- https://ghc.haskell.org/trac/ghc/ticket/13373#comment:6 +setCurrentDirectoryInternal :: OsPath -> IO () +setCurrentDirectoryInternal = Win32.setCurrentDirectory . getOsString + +createSymbolicLinkUnpriv :: WindowsPath -> WindowsPath -> Bool -> IO () +createSymbolicLinkUnpriv link _target _isDir = +#ifdef HAVE_CREATESYMBOLICLINKW + Win32.withTString link $ \ pLink -> + Win32.withTString _target $ \ pTarget -> do + let flags = if _isDir then win32_sYMBOLIC_LINK_FLAG_DIRECTORY else 0 + call pLink pTarget flags win32_sYMBOLIC_LINK_FLAG_ALLOW_UNPRIVILEGED_CREATE + where + call pLink pTarget flags unpriv = do + status <- c_CreateSymbolicLink pLink pTarget (flags .|. unpriv) + when (status == 0) $ do + e <- Win32.getLastError + case () of + _ | e == win32_eRROR_INVALID_FUNCTION -> do + let msg = "Incorrect function. The underlying file system " <> + "might not support symbolic links." + throwIO (mkIOError illegalOperationErrorType + "CreateSymbolicLink" Nothing Nothing + `ioeSetOsPath` OsString link + `ioeSetErrorString` msg) + | e == win32_eRROR_PRIVILEGE_NOT_HELD -> do + let msg = "A required privilege is not held by the client. " <> + "Creating symbolic links usually requires " <> + "administrative rights." + throwIO (mkIOError permissionErrorType "CreateSymbolicLink" + Nothing Nothing + `ioeSetOsPath` OsString link + `ioeSetErrorString` msg) + | e == win32_eRROR_INVALID_PARAMETER && + unpriv /= 0 -> + -- for compatibility with older versions of Windows, + -- try it again without the flag + call pLink pTarget flags 0 + | otherwise -> Win32.failWith "CreateSymbolicLink" e + +foreign import WINAPI unsafe "windows.h CreateSymbolicLinkW" + c_CreateSymbolicLink + :: Ptr CWchar -> Ptr CWchar -> Win32.DWORD -> IO Win32.BYTE + +#else + throwIO . (`ioeSetErrorString` unsupportedErrorMsg) + . (`ioeSetOsPath` OsString link) $ + mkIOError UnsupportedOperation "CreateSymbolicLink" + Nothing Nothing + where unsupportedErrorMsg = "Not supported on Windows XP or older" +#endif + +linkToDirectoryIsDirectory :: Bool +linkToDirectoryIsDirectory = True + +createSymbolicLink :: Bool -> OsPath -> OsPath -> IO () +createSymbolicLink isDir target link = + (`ioeSetOsPath` link) `modifyIOError` do + -- normaliseSeparators ensures the target gets normalised properly + link' <- furnishPath link + createSymbolicLinkUnpriv + link' + (normaliseSeparators target) + isDir + +type Metadata = Win32.BY_HANDLE_FILE_INFORMATION + +getMetadataAt :: WhetherFollow -> Maybe RawHandle -> OsPath -> IO Metadata +getMetadataAt NoFollow dir path = getSymbolicLinkMetadata (pathAt dir path) +getMetadataAt FollowLinks dir path = getFileMetadata (pathAt dir path) + +getSymbolicLinkMetadata :: OsPath -> IO Metadata +getSymbolicLinkMetadata path = + (`ioeSetOsPath` path) `modifyIOError` do + path' <- furnishPath path + let open = Win32.createFile path' 0 maxShareMode Nothing Win32.oPEN_EXISTING + (Win32.fILE_FLAG_BACKUP_SEMANTICS .|. + win32_fILE_FLAG_OPEN_REPARSE_POINT) Nothing + bracket open Win32.closeHandle $ \ h -> do + Win32.getFileInformationByHandle h + +getFileMetadata :: OsPath -> IO Metadata +getFileMetadata path = + (`ioeSetOsPath` path) `modifyIOError` do + path' <- furnishPath path + let open = Win32.createFile path' 0 maxShareMode Nothing Win32.oPEN_EXISTING + Win32.fILE_FLAG_BACKUP_SEMANTICS Nothing + bracket open Win32.closeHandle $ \ h -> do + Win32.getFileInformationByHandle h + +fileTypeFromMetadata :: Metadata -> FileType +fileTypeFromMetadata info + | isLink = if isDir then DirectoryLink else SymbolicLink + | isDir = Directory + | otherwise = File + where + isLink = attrs .&. Win32.fILE_ATTRIBUTE_REPARSE_POINT /= 0 + isDir = attrs .&. Win32.fILE_ATTRIBUTE_DIRECTORY /= 0 + attrs = Win32.bhfiFileAttributes info + +fileSizeFromMetadata :: Metadata -> Integer +fileSizeFromMetadata = fromIntegral . Win32.bhfiSize + +accessTimeFromMetadata :: Metadata -> UTCTime +accessTimeFromMetadata = + posixSecondsToUTCTime . windowsToPosixTime . Win32.bhfiLastAccessTime + +modificationTimeFromMetadata :: Metadata -> UTCTime +modificationTimeFromMetadata = + posixSecondsToUTCTime . windowsToPosixTime . Win32.bhfiLastWriteTime + +-- | Difference between the Windows and POSIX epochs in units of 100ns. +windowsPosixEpochDifference :: Num a => a +windowsPosixEpochDifference = 116444736000000000 + +-- | Convert from Windows time to POSIX time. +windowsToPosixTime :: Win32.FILETIME -> POSIXTime +windowsToPosixTime (Win32.FILETIME t) = + (fromIntegral t - windowsPosixEpochDifference) / 10000000 + +-- | Convert from POSIX time to Windows time. This is lossy as Windows time +-- has a resolution of only 100ns. +posixToWindowsTime :: POSIXTime -> Win32.FILETIME +posixToWindowsTime t = Win32.FILETIME $ + truncate (t * 10000000 + windowsPosixEpochDifference) + +setTimes :: OsPath -> (Maybe POSIXTime, Maybe POSIXTime) -> IO () +setTimes path' (atime', mtime') = + bracket (openFileHandle path' Win32.gENERIC_WRITE) + Win32.closeHandle $ \ handle -> + Win32.setFileTime + handle + Nothing + (posixToWindowsTime <$> atime') + (posixToWindowsTime <$> mtime') + +-- | Open the handle of an existing file or directory. +openFileHandle :: OsString -> Win32.AccessMode -> IO Win32.HANDLE +openFileHandle path mode = + (`ioeSetOsPath` path) `modifyIOError` do + path' <- furnishPath path + Win32.createFile path' mode maxShareMode Nothing + Win32.oPEN_EXISTING flags Nothing + where flags = Win32.fILE_ATTRIBUTE_NORMAL + .|. Win32.fILE_FLAG_BACKUP_SEMANTICS -- required for directories + +type Mode = Win32.FileAttributeOrFlag + +modeFromMetadata :: Metadata -> Mode +modeFromMetadata = Win32.bhfiFileAttributes + +hasWriteMode :: Mode -> Bool +hasWriteMode m = m .&. Win32.fILE_ATTRIBUTE_READONLY == 0 + +setWriteMode :: Bool -> Mode -> Mode +setWriteMode False m = m .|. Win32.fILE_ATTRIBUTE_READONLY +setWriteMode True m = m .&. complement Win32.fILE_ATTRIBUTE_READONLY + +setForceRemoveMode :: Mode -> Mode +setForceRemoveMode m = m .&. complement Win32.fILE_ATTRIBUTE_READONLY + +setModeAt :: Maybe RawHandle -> OsPath -> Mode -> IO () +setModeAt dir path = setFileMode (pathAt dir path) + +setFileMode :: OsPath -> Mode -> IO () +setFileMode path mode = + (`ioeSetOsPath` path) `modifyIOError` do + path' <- furnishPath path + Win32.setFileAttributes path' mode + +-- | A restricted form of 'setFileMode' that only sets the permission bits. +-- For Windows, this means only the "read-only" attribute is affected. +setFilePermissions :: OsPath -> Mode -> IO () +setFilePermissions path m = do + m' <- modeFromMetadata <$> getFileMetadata path + setFileMode path ((m' .&. complement Win32.fILE_ATTRIBUTE_READONLY) .|. + (m .&. Win32.fILE_ATTRIBUTE_READONLY)) + +getAccessPermissions :: OsPath -> IO Permissions +getAccessPermissions path = do + m <- getFileMetadata path + let isDir = fileTypeIsDirectory (fileTypeFromMetadata m) + let w = hasWriteMode (modeFromMetadata m) + let x = (toLower . toChar <$> unpack (takeExtension path)) + `elem` [".bat", ".cmd", ".com", ".exe"] + pure Permissions + { readable = True + , writable = w + , executable = x && not isDir + , searchable = isDir + } + +setAccessPermissions :: OsPath -> Permissions -> IO () +setAccessPermissions path Permissions{writable = w} = do + setFilePermissions path (setWriteMode w 0) + +getFolderPath :: Win32.CSIDL -> IO OsPath +getFolderPath what = OsString <$> Win32.sHGetFolderPath nullPtr what nullPtr 0 + +getHomeDirectoryInternal :: IO OsPath +getHomeDirectoryInternal = + getFolderPath Win32.cSIDL_PROFILE `catchIOError` \ _ -> + getFolderPath Win32.cSIDL_WINDOWS + +getXdgDirectoryFallback :: IO OsPath -> XdgDirectory -> IO OsPath +getXdgDirectoryFallback _ xdgDir = do + case xdgDir of + XdgData -> getFolderPath Win32.cSIDL_APPDATA + XdgConfig -> getFolderPath Win32.cSIDL_APPDATA + XdgCache -> getFolderPath Win32.cSIDL_LOCAL_APPDATA + XdgState -> getFolderPath Win32.cSIDL_LOCAL_APPDATA + +getXdgDirectoryListFallback :: XdgDirectoryList -> IO [OsPath] +getXdgDirectoryListFallback _ = + pure <$> getFolderPath win32_cSIDL_COMMON_APPDATA + +getAppUserDataDirectoryInternal :: OsPath -> IO OsPath +getAppUserDataDirectoryInternal appName = + (\ appData -> appData <> (os "\\" <> appName)) + <$> getXdgDirectoryFallback getHomeDirectoryInternal XdgData + +getUserDocumentsDirectoryInternal :: IO OsPath +getUserDocumentsDirectoryInternal = getFolderPath Win32.cSIDL_PERSONAL + +getTemporaryDirectoryInternal :: IO OsPath +getTemporaryDirectoryInternal = OsString <$> Win32.getTemporaryDirectory + +#endif diff --git a/System/Directory/Internal/windows_ext.h b/System/Directory/Internal/windows_ext.h new file mode 100644 --- /dev/null +++ b/System/Directory/Internal/windows_ext.h @@ -0,0 +1,33 @@ +#ifndef HS_DIRECTORY_WINDOWS_EXT_H +#define HS_DIRECTORY_WINDOWS_EXT_H +#include + +// define prototype to get size, offsets, and alignments +// (can't include because that only exists in WDK) +typedef struct { + ULONG ReparseTag; + USHORT ReparseDataLength; + USHORT Reserved; + union { + struct { + USHORT SubstituteNameOffset; + USHORT SubstituteNameLength; + USHORT PrintNameOffset; + USHORT PrintNameLength; + ULONG Flags; + WCHAR PathBuffer[1]; + } SymbolicLinkReparseBuffer; + struct { + USHORT SubstituteNameOffset; + USHORT SubstituteNameLength; + USHORT PrintNameOffset; + USHORT PrintNameLength; + WCHAR PathBuffer[1]; + } MountPointReparseBuffer; + struct { + UCHAR DataBuffer[1]; + } GenericReparseBuffer; + }; +} HsDirectory_REPARSE_DATA_BUFFER; + +#endif diff --git a/System/Directory/OsPath.hs b/System/Directory/OsPath.hs new file mode 100644 --- /dev/null +++ b/System/Directory/OsPath.hs @@ -0,0 +1,1669 @@ +----------------------------------------------------------------------------- +-- | +-- Module : System.Directory.OsPath +-- 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. +-- +-- @since 1.3.8.0 +-- +----------------------------------------------------------------------------- + +module System.Directory.OsPath + ( + -- $intro + + -- * Actions on directories + createDirectory + , createDirectoryIfMissing + , removeDirectory + , removeDirectoryRecursive + , removePathForcibly + , renameDirectory + , listDirectory + , getDirectoryContents + -- ** Current working directory + , getCurrentDirectory + , setCurrentDirectory + , withCurrentDirectory + + -- * Pre-defined directories + , getHomeDirectory + , XdgDirectory(..) + , getXdgDirectory + , XdgDirectoryList(..) + , getXdgDirectoryList + , getAppUserDataDirectory + , getUserDocumentsDirectory + , getTemporaryDirectory + + -- * PATH + , getExecSearchPath + + -- * Actions on files + , removeFile + , renameFile + , renamePath + , copyFile + , copyFileWithMetadata + , getFileSize + + , canonicalizePath + , makeAbsolute + , makeRelativeToCurrentDirectory + + -- * Existence tests + , doesPathExist + , doesFileExist + , doesDirectoryExist + + , findExecutable + , findExecutables + , findExecutablesInDirectories + , findFile + , findFiles + , findFileWith + , findFilesWith + , exeExtension + + -- * Symbolic links + , createFileLink + , createDirectoryLink + , removeDirectoryLink + , pathIsSymbolicLink + , getSymbolicLinkTarget + + -- * Permissions + + -- $permissions + + , Permissions + , emptyPermissions + , readable + , writable + , executable + , searchable + , setOwnerReadable + , setOwnerWritable + , setOwnerExecutable + , setOwnerSearchable + + , getPermissions + , setPermissions + , copyPermissions + + -- * Timestamps + + , getAccessTime + , getModificationTime + , setAccessTime + , setModificationTime + + ) where +import Prelude () +import System.Directory.Internal +import System.Directory.Internal.Prelude +import System.OsPath + ( (<.>) + , () + , addTrailingPathSeparator + , dropTrailingPathSeparator + , hasTrailingPathSeparator + , isAbsolute + , joinPath + , makeRelative + , splitDirectories + , splitSearchPath + , takeDirectory + , encodeWith + ) +import qualified Data.List.NonEmpty as NE +import Data.Time (UTCTime) +import Data.Time.Clock.POSIX (utcTimeToPOSIXSeconds) +import GHC.IO.Encoding.UTF8 ( mkUTF8 ) +import GHC.IO.Encoding.UTF16 ( mkUTF16le ) +import GHC.IO.Encoding.Failure ( CodingFailureMode(..) ) + +{- $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 +), 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. + +Unless otherwise documented: + +* 'IO' operations in this package may throw any 'IOError'. No other types of + exceptions shall be thrown. + +* The list of possible 'IOErrorType's in the API documentation is not + exhaustive. The full list may vary by platform and/or evolve over time. + +-} + +----------------------------------------------------------------------------- +-- Permissions + +{- $permissions + +directory offers a limited (and quirky) interface for reading and setting file +and directory permissions; see 'getPermissions' and 'setPermissions' for a +discussion of their limitations. Because permissions are very difficult to +implement portably across different platforms, users who wish to do more +sophisticated things with permissions are advised to use other, +platform-specific libraries instead. For example, if you are only interested +in permissions on POSIX-like platforms, + +offers much more flexibility. + + 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}) + +-} + +emptyPermissions :: Permissions +emptyPermissions = Permissions { + readable = False, + writable = False, + executable = False, + searchable = False + } + +setOwnerReadable :: Bool -> Permissions -> Permissions +setOwnerReadable b p = p { readable = b } + +setOwnerWritable :: Bool -> Permissions -> Permissions +setOwnerWritable b p = p { writable = b } + +setOwnerExecutable :: Bool -> Permissions -> Permissions +setOwnerExecutable b p = p { executable = b } + +setOwnerSearchable :: Bool -> Permissions -> Permissions +setOwnerSearchable b p = p { searchable = b } + +-- | Get the permissions of a file or directory. +-- +-- On Windows, the 'writable' permission corresponds to the "read-only" +-- attribute. The 'executable' permission is set if the file extension is of +-- an executable file type. The 'readable' permission is always set. +-- +-- On POSIX systems, this returns the result of @access@. +-- +-- 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 :: OsPath -> IO Permissions +getPermissions path = + (`ioeAddLocation` "getPermissions") `modifyIOError` do + getAccessPermissions (emptyToCurDir path) + +-- | Set the permissions of a file or directory. +-- +-- On Windows, this is only capable of changing the 'writable' permission, +-- which corresponds to the "read-only" attribute. Changing the other +-- permissions has no effect. +-- +-- On POSIX systems, this sets the /owner/ permissions. +-- +-- 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 :: OsPath -> Permissions -> IO () +setPermissions path p = + (`ioeAddLocation` "setPermissions") `modifyIOError` do + setAccessPermissions (emptyToCurDir path) p + +-- | Copy the permissions of one file to another. This reproduces the +-- permissions more accurately than using 'getPermissions' followed by +-- 'setPermissions'. +-- +-- On Windows, this copies only the read-only attribute. +-- +-- On POSIX systems, this is equivalent to @stat@ followed by @chmod@. +copyPermissions :: OsPath -> OsPath -> IO () +copyPermissions src dst = + (`ioeAddLocation` "copyPermissions") `modifyIOError` do + m <- getFileMetadata src + copyPermissionsFromMetadata m dst + +copyPermissionsFromMetadata :: Metadata -> OsPath -> IO () +copyPermissionsFromMetadata m dst = do + -- instead of setFileMode, setFilePermissions is used here + -- this is to retain backward compatibility in copyPermissions + setFilePermissions dst (modeFromMetadata m) + +----------------------------------------------------------------------------- +-- 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' +The process has insufficient privileges to perform the operation. +@[EROFS, EACCES]@ + +* 'isAlreadyExistsError' +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]@ + +* 'isDoesNotExistError' +There is no path to the directory. +@[ENOENT, ENOTDIR]@ + +* 'System.IO.isFullError' +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 :: OsPath -> IO () +createDirectory = createDirectoryInternal + +-- | @'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? + -> OsPath -- ^ The path to the directory you want to make + -> IO () +createDirectoryIfMissing create_parents path0 + | create_parents = createDirs (parents path0) + | otherwise = createDirs (take 1 (parents path0)) + where + parents = reverse . scanl1 () . splitDirectories . simplify + + createDirs [] = pure () + createDirs [dir] = createDir dir ioError + createDirs (dir:dirs) = + createDir dir $ \_ -> do + createDirs dirs + createDir dir ioError + + createDir dir notExistHandler = do + r <- tryIOError (createDirectory dir) + case r of + Right () -> pure () + Left e + | isDoesNotExistError e -> notExistHandler e + -- 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 exception 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. + -- We also follow this path when we get a permissions error, as + -- trying to create "." when in the root directory on Windows + -- fails with + -- CreateDirectory ".": permission denied (Access is denied.) + -- This caused GHCi to crash when loading a module in the root + -- directory. + | isAlreadyExistsError e + || isPermissionError e -> do + canIgnore <- pathIsDirectory dir + `catchIOError` \ _ -> + pure (isAlreadyExistsError e) + unless canIgnore (ioError e) + | otherwise -> ioError e + + +{- | @'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' +The directory does not exist. +@[ENOENT, ENOTDIR]@ + +* 'isPermissionError' +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 :: OsPath -> IO () +removeDirectory = removePathInternal True + +type Preremover = Maybe RawHandle -> OsPath -> Metadata -> IO () + +noPreremover :: Preremover +noPreremover _ _ _ = pure () + +forcePreremover :: Preremover +forcePreremover dir path metadata = do + when (fileTypeIsDirectory (fileTypeFromMetadata metadata) + || not filesAlwaysRemovable) $ do + setModeAt dir path mode + `catchIOError` \ _ -> pure () + where + mode = setForceRemoveMode (modeFromMetadata metadata) + +removeRecursivelyAt + :: (IO () -> IO ()) + -> ([IO ()] -> IO ()) + -> Preremover + -> Maybe RawHandle + -> OsPath + -> IO () +removeRecursivelyAt catcher sequencer preremover dir name = catcher $ do + metadata <- getMetadataAt NoFollow dir name + preremover dir name metadata + let + fileType = fileTypeFromMetadata metadata + subremovals = do + when (fileType == Directory) $ do + bracket (openRaw NoFollow dir name) closeRaw $ \ handle -> do + -- dropSpecialDotDirs is extremely important! Otherwise it will + -- recurse into the parent directory and wreak havoc. + names <- dropSpecialDotDirs <$> readDirToEnd handle + sequencer (recurse (Just handle) <$> names) + sequencer [subremovals, removePathAt fileType dir name] + where recurse = removeRecursivelyAt catcher sequencer preremover + +-- | @'removeDirectoryRecursive' dir@ removes an existing directory /dir/ +-- together with its contents and subdirectories. Within this directory, +-- symbolic links are removed without affecting their targets. +-- +-- On Windows, the operation fails if /dir/ is a directory symbolic link. +-- +-- This operation is reported to be flaky on Windows so retry logic may +-- be advisable. See: https://github.com/haskell/directory/pull/108 +removeDirectoryRecursive :: OsPath -> IO () +removeDirectoryRecursive path = + (`ioeAddLocation` "removeDirectoryRecursive") `modifyIOError` do + m <- getSymbolicLinkMetadata path + case fileTypeFromMetadata m of + Directory -> + removeRecursivelyAt id sequenceA_ noPreremover Nothing path + DirectoryLink -> + ioError (err `ioeSetErrorString` "is a directory symbolic link") + _ -> + ioError (err `ioeSetErrorString` "not a directory") + where err = mkIOError InappropriateType "" Nothing Nothing `ioeSetOsPath` path + +-- | Removes a file or directory at /path/ together with its contents and +-- subdirectories. Symbolic links are removed without affecting their +-- targets. If the path does not exist, nothing happens. +-- +-- Unlike other removal functions, this function will also attempt to delete +-- files marked as read-only or otherwise made unremovable due to permissions. +-- As a result, if the removal is incomplete, the permissions or attributes on +-- the remaining files may be altered. If there are hard links in the +-- directory, then permissions on all related hard links may be altered. +-- +-- If an entry within the directory vanishes while @removePathForcibly@ is +-- running, it is silently ignored. +-- +-- If an exception occurs while removing an entry, @removePathForcibly@ will +-- still try to remove as many entries as it can before failing with an +-- exception. The first exception that it encountered is re-thrown. +removePathForcibly :: OsPath -> IO () +removePathForcibly path = + (`ioeAddLocation` "removePathForcibly") `modifyIOError` do + removeRecursivelyAt + ignoreDoesNotExistError + sequenceWithIOErrors_ + forcePreremover + Nothing + path + + where + + ignoreDoesNotExistError :: IO () -> IO () + ignoreDoesNotExistError action = + () <$ tryIOErrorType isDoesNotExistError action + +{- |'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' +The file does not exist. +@[ENOENT, ENOTDIR]@ + +* 'isPermissionError' +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 :: OsPath -> IO () +removeFile = removePathInternal False + +{- |@'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' +The original directory does not exist, or there is no path to the target. +@[ENOENT, ENOTDIR]@ + +* 'isPermissionError' +The process has insufficient privileges to perform the operation. +@[EROFS, EACCES, EPERM]@ + +* 'System.IO.isFullError' +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 :: OsPath -> OsPath -> IO () +renameDirectory opath npath = + (`ioeAddLocation` "renameDirectory") `modifyIOError` do + -- XXX this test isn't performed atomically with the following rename + isDir <- pathIsDirectory opath + when (not isDir) . ioError $ + mkIOError InappropriateType "renameDirectory" Nothing Nothing + `ioeSetErrorString` "not a directory" + `ioeSetOsPath` opath + renamePath opath npath + +{- |@'renameFile' old new@ changes the name of an existing file system +object from /old/ to /new/. If the /new/ object already exists, it is +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. On Windows, this does not support renaming across different physical +devices; if you are looking to do so, consider using 'copyFileWithMetadata' and +'removeFile'. + +On Windows, this calls @MoveFileEx@ with @MOVEFILE_REPLACE_EXISTING@ set, +which is not guaranteed to be atomic +(). + +On other platforms, this operation is atomic. + +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' +The original file does not exist, or there is no path to the target. +@[ENOENT, ENOTDIR]@ + +* 'isPermissionError' +The process has insufficient privileges to perform the operation. +@[EROFS, EACCES, EPERM]@ + +* 'System.IO.isFullError' +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 :: OsPath -> OsPath -> IO () +renameFile opath npath = + (`ioeAddLocation` "renameFile") `modifyIOError` do + -- XXX the tests are not performed atomically with the rename + checkNotDir opath + renamePath opath npath + -- The underlying rename implementation can throw odd exceptions when the + -- destination is a directory. For example, Windows typically throws a + -- permission error, while POSIX systems may throw a resource busy error + -- if one of the paths refers to the current directory. In these cases, + -- we check if the destination is a directory and, if so, throw an + -- InappropriateType error. + `catchIOError` \ err -> do + checkNotDir npath + ioError err + where checkNotDir path = do + m <- tryIOError (getSymbolicLinkMetadata path) + case fileTypeIsDirectory . fileTypeFromMetadata <$> m of + Right True -> + ioError $ + mkIOError InappropriateType "" Nothing Nothing + `ioeSetErrorString` "is a directory" + `ioeSetOsPath` path + _ -> pure () + +-- | Rename a file or directory. If the destination path already exists, it +-- is replaced atomically. The destination path must not point 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' +-- The original file does not exist, or there is no path to the target. +-- @[ENOENT, ENOTDIR]@ +-- +-- * 'isPermissionError' +-- The process has insufficient privileges to perform the operation. +-- @[EROFS, EACCES, EPERM]@ +-- +-- * 'System.IO.isFullError' +-- 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 the destination path refers to an existing directory, or one of the +-- parent segments in the destination path is not a directory. +-- @[ENOTDIR, EISDIR, EINVAL, EEXIST, ENOTEMPTY]@ +renamePath :: OsPath -- ^ Old path + -> OsPath -- ^ New path + -> IO () +renamePath opath npath = + (`ioeAddLocation` "renamePath") `modifyIOError` do + renamePathInternal opath npath + +-- | Copy a file with its permissions. If the destination file already exists, +-- it is replaced atomically. Neither path may refer to an existing +-- directory. No exceptions are thrown if the permissions could not be +-- copied. +copyFile :: OsPath -- ^ Source filename + -> OsPath -- ^ Destination filename + -> IO () +copyFile fromFPath toFPath = + (`ioeAddLocation` "copyFile") `modifyIOError` do + atomicCopyFileContents fromFPath toFPath + (ignoreIOExceptions . copyPermissions fromFPath) + +-- | Copy all data from a file to a handle. +copyFileToHandle :: OsPath -- ^ Source file + -> Handle -- ^ Destination handle + -> IO () +copyFileToHandle fromFPath hTo = + (`ioeAddLocation` "copyFileToHandle") `modifyIOError` do + withBinaryFile fromFPath ReadMode $ \ hFrom -> + copyHandleData hFrom hTo + +-- | Copy the contents of a source file to a destination file, replacing the +-- destination file atomically via @withReplacementFile@, resetting the +-- attributes of the destination file to the defaults. +atomicCopyFileContents :: OsPath -- ^ Source filename + -> OsPath -- ^ Destination filename + -> (OsPath -> IO ()) -- ^ Post-action + -> IO () +atomicCopyFileContents fromFPath toFPath postAction = + (`ioeAddLocation` "atomicCopyFileContents") `modifyIOError` do + withReplacementFile toFPath postAction $ \ hTo -> do + copyFileToHandle fromFPath hTo + +-- | A helper function useful for replacing files in an atomic manner. The +-- function creates a temporary file in the directory of the destination file, +-- opens it, performs the main action with its handle, closes it, performs the +-- post-action with its path, and finally replaces the destination file with +-- the temporary file. If an error occurs during any step of this process, +-- the temporary file is removed and the destination file remains untouched. +withReplacementFile :: OsPath -- ^ Destination file + -> (OsPath -> IO ()) -- ^ Post-action + -> (Handle -> IO a) -- ^ Main action + -> IO a +withReplacementFile path postAction action = + (`ioeAddLocation` "withReplacementFile") `modifyIOError` do + mask $ \ restore -> do + let tmpPath = case encodeWith (mkUTF8 ErrorOnCodingFailure) + (mkUTF16le ErrorOnCodingFailure) + ".copyFile.tmp" + of + Left err -> + error ("withReplacementFile: invalid encoding: " <> show err) + Right p -> p + let dir = takeDirectory path + (tmpFPath, hTmp) <- + openTempFile' "openTempFile'" dir tmpPath True 0o600 True + (`onException` ignoreIOExceptions (removeFile tmpFPath)) $ do + r <- (`onException` ignoreIOExceptions (hClose hTmp)) $ do + restore (action hTmp) + hClose hTmp + restore (postAction tmpFPath) + renameFile tmpFPath path + pure r + +-- | Copy a file with its associated metadata. If the destination file +-- already exists, it is overwritten. There is no guarantee of atomicity in +-- the replacement of the destination file. Neither path may refer to an +-- existing directory. If the source and/or destination are symbolic links, +-- the copy is performed on the targets of the links. +-- +-- On Windows, it behaves like the Win32 function +-- , +-- which copies various kinds of metadata including file attributes and +-- security resource properties. +-- +-- On Unix-like systems, permissions, access time, and modification time are +-- preserved. If possible, the owner and group are also preserved. Note that +-- the very act of copying can change the access time of the source file, +-- hence the access times of the two files may differ after the operation +-- completes. +copyFileWithMetadata :: OsPath -- ^ Source file + -> OsPath -- ^ Destination file + -> IO () +copyFileWithMetadata src dst = + (`ioeAddLocation` "copyFileWithMetadata") `modifyIOError` + copyFileWithMetadataInternal copyPermissionsFromMetadata + copyTimesFromMetadata + src + dst + +copyTimesFromMetadata :: Metadata -> OsPath -> IO () +copyTimesFromMetadata st dst = do + let atime = accessTimeFromMetadata st + let mtime = modificationTimeFromMetadata st + setFileTimes dst (Just atime, Just mtime) + +-- | Make a path absolute, normalize the path, and remove as many indirections +-- from it as possible. Any trailing path separators are discarded via +-- 'dropTrailingPathSeparator'. Additionally, on Windows the letter case of +-- the path is canonicalized. +-- +-- __Note__: This function is a very big hammer. If you only need an absolute +-- path, 'makeAbsolute' is sufficient for removing dependence on the current +-- working directory. +-- +-- Indirections include the two special directories @.@ and @..@, as well as +-- any symbolic links (and junction points on Windows). The input path need +-- not point to an existing file or directory. Canonicalization is performed +-- on the longest prefix of the path that points to an existing file or +-- directory. The remaining portion of the path that does not point to an +-- existing file or directory will still be normalized, but case +-- canonicalization and indirection removal are skipped as they are impossible +-- to do on a nonexistent path. +-- +-- Most programs should not worry about the canonicity of a path. In +-- particular, despite the name, the function does not truly guarantee +-- canonicity of the returned path due to the presence of hard links, mount +-- points, etc. +-- +-- If the path points to an existing file or directory, then the output path +-- shall also point to the same file or directory, subject to the condition +-- that the relevant parts of the file system do not change while the function +-- is still running. In other words, the function is definitively not atomic. +-- The results can be utterly wrong if the portions of the path change while +-- this function is running. +-- +-- Since some indirections (symbolic links on all systems, @..@ on non-Windows +-- systems, and junction points on Windows) are dependent on the state of the +-- existing filesystem, the function can only make a conservative attempt by +-- removing such indirections from the longest prefix of the path that still +-- points to an existing file or directory. +-- +-- Note that on Windows parent directories @..@ are always fully expanded +-- before the symbolic links, as consistent with the rest of the Windows API +-- (such as @GetFullPathName@). In contrast, on POSIX systems parent +-- directories @..@ are expanded alongside symbolic links from left to right. +-- To put this more concretely: if @L@ is a symbolic link for @R/P@, then on +-- Windows @L\\..@ refers to @.@, whereas on other operating systems @L/..@ +-- refers to @R@. +-- +-- Similar to 'System.FilePath.normalise', passing an empty path is equivalent +-- to passing the current directory. +-- +-- @canonicalizePath@ can resolve at least 64 indirections in a single path, +-- more than what is supported by most operating systems. Therefore, it may +-- return the fully resolved path even though the operating system itself +-- would have long given up. +-- +-- On Windows XP or earlier systems, junction expansion is not performed due +-- to their lack of @GetFinalPathNameByHandle@. +-- +-- /Changes since 1.2.3.0:/ The function has been altered to be more robust +-- and has the same exception behavior as 'makeAbsolute'. +-- +-- /Changes since 1.3.0.0:/ The function no longer preserves the trailing path +-- separator. File symbolic links that appear in the middle of a path are +-- properly dereferenced. Case canonicalization and symbolic link expansion +-- are now performed on Windows. +-- +canonicalizePath :: OsPath -> IO OsPath +canonicalizePath = \ path -> + ((`ioeAddLocation` "canonicalizePath") . + (`ioeSetOsPath` path)) `modifyIOError` do + -- simplify does more stuff, like upper-casing the drive letter + dropTrailingPathSeparator . simplify <$> + (attemptRealpath realPath =<< prependCurrentDirectory path) + where + + -- allow up to 64 cycles before giving up + attemptRealpath realpath = + attemptRealpathWith (64 :: Int) Nothing realpath + <=< canonicalizePathSimplify + + -- n is a counter to make sure we don't run into an infinite loop; we + -- don't try to do any cycle detection here because an adversary could DoS + -- any arbitrarily clever algorithm + attemptRealpathWith n mFallback realpath path = + case mFallback of + -- too many indirections ... giving up. + Just fallback | n <= 0 -> pure fallback + -- either mFallback == Nothing (first attempt) + -- or n > 0 (still have some attempts left) + _ -> realpathPrefix (reverse (zip prefixes suffixes)) + + where + + segments = splitDirectories path + prefixes = scanl1 () segments + suffixes = NE.tail (NE.scanr () mempty segments) + + -- try to call realpath on the largest possible prefix + realpathPrefix candidates = + case candidates of + [] -> pure path + (prefix, suffix) : rest -> do + exist <- doesPathExist prefix + if not exist + -- never call realpath on an inaccessible path + -- (to avoid bugs in system realpath implementations) + -- try a smaller prefix instead + then realpathPrefix rest + else do + mp <- tryIOError (realpath prefix) + case mp of + -- realpath failed: try a smaller prefix instead + Left _ -> realpathPrefix rest + -- realpath succeeded: fine-tune the result + Right p -> realpathFurther (p suffix) p suffix + + -- by now we have a reasonable fallback value that we can use if we + -- run into too many indirections; the fallback value is the same + -- result that we have been returning in versions prior to 1.3.1.0 + -- (this is essentially the fix to #64) + realpathFurther fallback p suffix = + case splitDirectories suffix of + [] -> pure fallback + next : restSuffix -> do + -- see if the 'next' segment is a symlink + mTarget <- tryIOError (getSymbolicLinkTarget (p next)) + case mTarget of + Left _ -> pure fallback + Right target -> do + -- if so, dereference it and restart the whole cycle + let mFallback' = Just (fromMaybe fallback mFallback) + path' <- canonicalizePathSimplify + (p target joinPath restSuffix) + attemptRealpathWith (n - 1) mFallback' realpath path' + +-- | Convert a path into an absolute path. If the given path is relative, the +-- current directory is prepended and then the combined result is normalized. +-- If the path is already absolute, the path is simply normalized. The +-- function preserves the presence or absence of the trailing path separator +-- unless the path refers to the root directory @/@. +-- +-- If the path is already absolute, the operation never fails. Otherwise, the +-- operation may fail with the same exceptions as 'getCurrentDirectory'. +-- +makeAbsolute :: OsPath -> IO OsPath +makeAbsolute path = + ((`ioeAddLocation` "makeAbsolute") . + (`ioeSetOsPath` path)) `modifyIOError` do + matchTrailingSeparator path . simplify <$> prependCurrentDirectory path + +-- | Add or remove the trailing path separator in the second path so as to +-- match its presence in the first path. +-- +-- (internal API) +matchTrailingSeparator :: OsPath -> OsPath -> OsPath +matchTrailingSeparator path + | hasTrailingPathSeparator path = addTrailingPathSeparator + | otherwise = dropTrailingPathSeparator + +-- | Construct a path relative to the current directory, similar to +-- 'makeRelative'. +-- +-- The operation may fail with the same exceptions as 'getCurrentDirectory'. +makeRelativeToCurrentDirectory :: OsPath -> IO OsPath +makeRelativeToCurrentDirectory x = do + (`makeRelative` x) <$> getCurrentDirectory + +-- | Given the name or path of an executable file, 'findExecutable' searches +-- for such a file in a list of system-defined locations, which generally +-- includes @PATH@ and possibly more. The full path to the executable is +-- returned if found. For example, @(findExecutable \"ghc\")@ would normally +-- give you the path to GHC. +-- +-- The path returned by @'findExecutable' name@ corresponds to the program +-- that would be executed by +-- @@ +-- when passed the same string (as a @RawCommand@, not a @ShellCommand@), +-- provided that @name@ is not a relative path with more than one segment. +-- +-- On Windows, 'findExecutable' calls the Win32 function +-- @@, +-- which may search other places before checking the directories in the @PATH@ +-- environment variable. Where it actually searches depends on registry +-- settings, but notably includes the directory containing the current +-- executable. +-- +-- On non-Windows platforms, the behavior is equivalent to 'findFileWith' +-- using the search directories from the @PATH@ environment variable and +-- testing each file for executable permissions. Details can be found in the +-- documentation of 'findFileWith'. +findExecutable :: OsString -> IO (Maybe OsPath) +findExecutable binary = + listTHead + (findExecutablesLazyInternal findExecutablesInDirectoriesLazy binary) + +-- | Search for executable files in a list of system-defined locations, which +-- generally includes @PATH@ and possibly more. +-- +-- On Windows, this /only returns the first occurrence/, if any. Its behavior +-- is therefore equivalent to 'findExecutable'. +-- +-- On non-Windows platforms, the behavior is equivalent to +-- 'findExecutablesInDirectories' using the search directories from the @PATH@ +-- environment variable. Details can be found in the documentation of +-- 'findExecutablesInDirectories'. +findExecutables :: OsString -> IO [OsPath] +findExecutables binary = + listTToList + (findExecutablesLazyInternal findExecutablesInDirectoriesLazy binary) + +-- | Given a name or path, 'findExecutable' appends the 'exeExtension' to the +-- query and searches for executable files in the list of given search +-- directories and returns all occurrences. +-- +-- The behavior is equivalent to 'findFileWith' using the given search +-- directories and testing each file for executable permissions. Details can +-- be found in the documentation of 'findFileWith'. +-- +-- Unlike other similarly named functions, 'findExecutablesInDirectories' does +-- not use @SearchPath@ from the Win32 API. The behavior of this function on +-- Windows is therefore equivalent to those on non-Windows platforms. +findExecutablesInDirectories :: [OsPath] -> OsString -> IO [OsPath] +findExecutablesInDirectories path binary = + listTToList (findExecutablesInDirectoriesLazy path binary) + +findExecutablesInDirectoriesLazy :: [OsPath] -> OsString -> ListT IO OsPath +findExecutablesInDirectoriesLazy path binary = + findFilesWithLazy isExecutable path (binary <.> exeExtension) + +-- | Test whether a file has executable permissions. +isExecutable :: OsPath -> IO Bool +isExecutable file = executable <$> getPermissions file + +-- | Search through the given list of directories for the given file. +-- +-- The behavior is equivalent to 'findFileWith', returning only the first +-- occurrence. Details can be found in the documentation of 'findFileWith'. +findFile :: [OsPath] -> OsString -> IO (Maybe OsPath) +findFile = findFileWith (\ _ -> pure True) + +-- | Search through the given list of directories for the given file and +-- returns all paths where the given file exists. +-- +-- The behavior is equivalent to 'findFilesWith'. Details can be found in the +-- documentation of 'findFilesWith'. +findFiles :: [OsPath] -> OsString -> IO [OsPath] +findFiles = findFilesWith (\ _ -> pure True) + +-- | Search through a given list of directories for a file that has the given +-- name and satisfies the given predicate and return the path of the first +-- occurrence. The directories are checked in a left-to-right order. +-- +-- This is essentially a more performant version of 'findFilesWith' that +-- always returns the first result, if any. Details can be found in the +-- documentation of 'findFilesWith'. +findFileWith :: (OsPath -> IO Bool) -> [OsPath] -> OsString -> IO (Maybe OsPath) +findFileWith f ds name = listTHead (findFilesWithLazy f ds name) + +-- | @findFilesWith predicate dirs name@ searches through the list of +-- directories (@dirs@) for files that have the given @name@ and satisfy the +-- given @predicate@ and returns the paths of those files. The directories +-- are checked in a left-to-right order and the paths are returned in the same +-- order. +-- +-- If the @name@ is a relative path, then for every search directory @dir@, +-- the function checks whether @dir '' name@ exists and satisfies the +-- predicate. If so, @dir '' name@ is returned as one of the results. In +-- other words, the returned paths can be either relative or absolute +-- depending on the search directories were used. If there are no search +-- directories, no results are ever returned. +-- +-- If the @name@ is an absolute path, then the function will return a single +-- result if the file exists and satisfies the predicate and no results +-- otherwise. This is irrespective of what search directories were given. +findFilesWith :: (OsPath -> IO Bool) -> [OsPath] -> OsString -> IO [OsPath] +findFilesWith f ds name = listTToList (findFilesWithLazy f ds name) + +findFilesWithLazy + :: (OsPath -> IO Bool) -> [OsPath] -> OsString -> ListT IO OsPath +findFilesWithLazy f dirs path + -- make sure absolute paths are handled properly irrespective of 'dirs' + -- https://github.com/haskell/directory/issues/72 + | isAbsolute path = ListT (find [mempty]) + | otherwise = ListT (find dirs) + + where + + find [] = pure Nothing + find (d : ds) = do + let p = d path + found <- doesFileExist p `andM` f p + if found + then pure (Just (p, ListT (find ds))) + else find ds + +-- | Filename extension for executable files (including the dot if any) +-- (usually @\"\"@ on POSIX systems and @\".exe\"@ on Windows or OS\/2). +exeExtension :: OsString +exeExtension = exeExtensionInternal + +-- | Similar to 'listDirectory', but always includes the special entries (@.@ +-- and @..@). (This applies to Windows as well.) +-- +-- The operation may fail with the same exceptions as 'listDirectory'. +getDirectoryContents :: OsPath -> IO [OsPath] +getDirectoryContents path = + ((`ioeSetOsPath` path) . + (`ioeAddLocation` "getDirectoryContents")) `modifyIOError` do + getDirectoryContentsInternal path + +-- | @'listDirectory' dir@ returns a list of /all/ entries in /dir/ without +-- the special entries (@.@ and @..@). +-- +-- 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' +-- The directory does not exist. +-- @[ENOENT, ENOTDIR]@ +-- +-- * 'isPermissionError' +-- The process has insufficient privileges to perform the operation. +-- @[EACCES]@ +-- +-- * 'System.IO.isFullError' +-- Insufficient resources are available to perform the operation. +-- @[EMFILE, ENFILE]@ +-- +-- * @InappropriateType@ +-- The path refers to an existing non-directory object. +-- @[ENOTDIR]@ +-- +listDirectory :: OsPath -> IO [OsPath] +listDirectory path = dropSpecialDotDirs <$> getDirectoryContents path + +-- | Obtain the current working directory as an absolute path. +-- +-- In a multithreaded program, the current working directory is a global state +-- shared among all threads of the process. Therefore, when performing +-- filesystem operations from multiple threads, it is highly recommended to +-- use absolute rather than relative paths (see: 'makeAbsolute'). +-- +-- Note that 'getCurrentDirectory' is not guaranteed to return the same path +-- received by 'setCurrentDirectory'. On POSIX systems, the path returned will +-- always be fully dereferenced (not contain any symbolic links). For more +-- information, refer to the documentation of +-- . +-- +-- The operation may fail with: +-- +-- * @HardwareFault@ +-- A physical I\/O error has occurred. +-- @[EIO]@ +-- +-- * 'isDoesNotExistError' +-- There is no path referring to the working directory. +-- @[EPERM, ENOENT, ESTALE...]@ +-- +-- * 'isPermissionError' +-- The process has insufficient privileges to perform the operation. +-- @[EACCES]@ +-- +-- * 'System.IO.isFullError' +-- Insufficient resources are available to perform the operation. +-- +-- * @UnsupportedOperation@ +-- The operating system has no notion of current working directory. +-- +getCurrentDirectory :: IO OsPath +getCurrentDirectory = + (`ioeAddLocation` "getCurrentDirectory") `modifyIOError` do + specializeErrorString + "Current working directory no longer exists" + isDoesNotExistError + getCurrentDirectoryInternal + +-- | Change the working directory to the given path. +-- +-- In a multithreaded program, the current working directory is a global state +-- shared among all threads of the process. Therefore, when performing +-- filesystem operations from multiple threads, it is highly recommended to +-- use absolute rather than relative paths (see: 'makeAbsolute'). +-- +-- 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' +-- The directory does not exist. +-- @[ENOENT, ENOTDIR]@ +-- +-- * 'isPermissionError' +-- The process has insufficient privileges to perform the operation. +-- @[EACCES]@ +-- +-- * @UnsupportedOperation@ +-- The operating system has no notion of current working directory, or the +-- working directory cannot be dynamically changed. +-- +-- * @InappropriateType@ +-- The path refers to an existing non-directory object. +-- @[ENOTDIR]@ +-- +setCurrentDirectory :: OsPath -> IO () +setCurrentDirectory = setCurrentDirectoryInternal + +-- | Run an 'IO' action with the given working directory and restore the +-- original working directory afterwards, even if the given action fails due +-- to an exception. +-- +-- The operation may fail with the same exceptions as 'getCurrentDirectory' +-- and 'setCurrentDirectory'. +-- +withCurrentDirectory :: OsPath -- ^ Directory to execute in + -> IO a -- ^ Action to be executed + -> IO a +withCurrentDirectory dir action = + bracket getCurrentDirectory setCurrentDirectory $ \ _ -> do + setCurrentDirectory dir + action + +-- | Obtain the size of a file in bytes. +getFileSize :: OsPath -> IO Integer +getFileSize path = + (`ioeAddLocation` "getFileSize") `modifyIOError` do + fileSizeFromMetadata <$> getFileMetadata path + +-- | Test whether the given path points to an existing filesystem object. If +-- the user lacks necessary permissions to search the parent directories, this +-- function may return false even if the file does actually exist. This +-- operation traverses symbolic links, so it can return either True or False +-- for them. +doesPathExist :: OsPath -> IO Bool +doesPathExist path = do + (True <$ getFileMetadata path) + `catchIOError` \ _ -> + pure False + +-- | The operation 'doesDirectoryExist' returns 'True' if the argument file +-- exists and is either a directory or a symbolic link to a directory, and +-- 'False' otherwise. This operation traverses symbolic links, so it can +-- return either True or False for them. +doesDirectoryExist :: OsPath -> IO Bool +doesDirectoryExist path = do + pathIsDirectory path + `catchIOError` \ _ -> + pure False + +-- | The operation 'doesFileExist' returns 'True' if the argument file exists +-- and is not a directory, and 'False' otherwise. This operation traverses +-- symbolic links, so it can return either True or False for them. +doesFileExist :: OsPath -> IO Bool +doesFileExist path = do + (not <$> pathIsDirectory path) + `catchIOError` \ _ -> + pure False + +pathIsDirectory :: OsPath -> IO Bool +pathIsDirectory path = + (`ioeAddLocation` "pathIsDirectory") `modifyIOError` do + fileTypeIsDirectory . fileTypeFromMetadata <$> getFileMetadata path + +-- | Create a /file/ symbolic link. The target path can be either absolute or +-- relative and need not refer to an existing file. The order of arguments +-- follows the POSIX convention. +-- +-- To remove an existing file symbolic link, use 'removeFile'. +-- +-- Although the distinction between /file/ symbolic links and /directory/ +-- symbolic links does not exist on POSIX systems, on Windows this is an +-- intrinsic property of every symbolic link and cannot be changed without +-- recreating the link. A file symbolic link that actually points to a +-- directory will fail to dereference and vice versa. Moreover, creating +-- symbolic links on Windows may require privileges unavailable to users +-- outside the Administrators group. Portable programs that use symbolic +-- links should take both into consideration. +-- +-- On Windows, the function is implemented using @CreateSymbolicLink@. Since +-- 1.3.3.0, the @SYMBOLIC_LINK_FLAG_ALLOW_UNPRIVILEGED_CREATE@ flag is included +-- if supported by the operating system. On POSIX, the function uses @symlink@ +-- and is therefore atomic. +-- +-- Windows-specific errors: This operation may fail with 'permissionErrorType' +-- if the user lacks the privileges to create symbolic links. It may also +-- fail with 'illegalOperationErrorType' if the file system does not support +-- symbolic links. +createFileLink + :: OsPath -- ^ path to the target file + -> OsPath -- ^ path of the link to be created + -> IO () +createFileLink target link = + (`ioeAddLocation` "createFileLink") `modifyIOError` do + createSymbolicLink False target link + +-- | Create a /directory/ symbolic link. The target path can be either +-- absolute or relative and need not refer to an existing directory. The +-- order of arguments follows the POSIX convention. +-- +-- To remove an existing directory symbolic link, use 'removeDirectoryLink'. +-- +-- Although the distinction between /file/ symbolic links and /directory/ +-- symbolic links does not exist on POSIX systems, on Windows this is an +-- intrinsic property of every symbolic link and cannot be changed without +-- recreating the link. A file symbolic link that actually points to a +-- directory will fail to dereference and vice versa. Moreover, creating +-- symbolic links on Windows may require privileges unavailable to users +-- outside the Administrators group. Portable programs that use symbolic +-- links should take both into consideration. +-- +-- On Windows, the function is implemented using @CreateSymbolicLink@ with +-- @SYMBOLIC_LINK_FLAG_DIRECTORY@. Since 1.3.3.0, the +-- @SYMBOLIC_LINK_FLAG_ALLOW_UNPRIVILEGED_CREATE@ flag is also included if +-- supported by the operating system. On POSIX, this is an alias for +-- 'createFileLink' and is therefore atomic. +-- +-- Windows-specific errors: This operation may fail with 'permissionErrorType' +-- if the user lacks the privileges to create symbolic links. It may also +-- fail with 'illegalOperationErrorType' if the file system does not support +-- symbolic links. +createDirectoryLink + :: OsPath -- ^ path to the target directory + -> OsPath -- ^ path of the link to be created + -> IO () +createDirectoryLink target link = + (`ioeAddLocation` "createDirectoryLink") `modifyIOError` do + createSymbolicLink True target link + +-- | Remove an existing /directory/ symbolic link. +-- +-- On Windows, this is an alias for 'removeDirectory'. On POSIX systems, this +-- is an alias for 'removeFile'. +-- +-- See also: 'removeFile', which can remove an existing /file/ symbolic link. +removeDirectoryLink :: OsPath -> IO () +removeDirectoryLink path = + (`ioeAddLocation` "removeDirectoryLink") `modifyIOError` do + removePathInternal linkToDirectoryIsDirectory path + +-- | Check whether an existing @path@ is a symbolic link. If @path@ is a +-- regular file or directory, 'False' is returned. If @path@ does not exist +-- or is otherwise inaccessible, an exception is thrown (see below). +-- +-- On Windows, this checks for @FILE_ATTRIBUTE_REPARSE_POINT@. In addition to +-- symbolic links, the function also returns true on junction points. On +-- POSIX systems, this checks for @S_IFLNK@. +-- +-- The operation may fail with: +-- +-- * 'isDoesNotExistError' if the symbolic link does not exist; or +-- +-- * 'isPermissionError' if the user is not permitted to read the symbolic +-- link. +pathIsSymbolicLink :: OsPath -> IO Bool +pathIsSymbolicLink path = + ((`ioeAddLocation` "pathIsSymbolicLink") . + (`ioeSetOsPath` path)) `modifyIOError` do + fileTypeIsLink . fileTypeFromMetadata <$> getSymbolicLinkMetadata path + +-- | Retrieve the target path of either a file or directory symbolic link. +-- The returned path may not be absolute, may not exist, and may not even be a +-- valid path. +-- +-- On Windows systems, this calls @DeviceIoControl@ with +-- @FSCTL_GET_REPARSE_POINT@. In addition to symbolic links, the function +-- also works on junction points. On POSIX systems, this calls @readlink@. +-- +-- Windows-specific errors: This operation may fail with +-- 'illegalOperationErrorType' if the file system does not support symbolic +-- links. +getSymbolicLinkTarget :: OsPath -> IO OsPath +getSymbolicLinkTarget path = + (`ioeAddLocation` "getSymbolicLinkTarget") `modifyIOError` do + readSymbolicLink path + +-- | Obtain the time at which the file or directory was last accessed. +-- +-- The operation may fail with: +-- +-- * 'isPermissionError' if the user is not permitted to read +-- the access time; or +-- +-- * 'isDoesNotExistError' if the file or directory does not exist. +-- +-- Caveat for POSIX systems: This function returns a timestamp with sub-second +-- resolution only if this package is compiled against @unix-2.6.0.0@ or later +-- and the underlying filesystem supports them. +-- +getAccessTime :: OsPath -> IO UTCTime +getAccessTime path = + (`ioeAddLocation` "getAccessTime") `modifyIOError` do + accessTimeFromMetadata <$> getFileMetadata (emptyToCurDir path) + +-- | Obtain the time at which the file or directory was last modified. +-- +-- The operation may fail with: +-- +-- * 'isPermissionError' if the user is not permitted to read +-- the modification time; or +-- +-- * 'isDoesNotExistError' if the file or directory does not exist. +-- +-- Caveat for POSIX systems: This function returns a timestamp with sub-second +-- resolution only if this package is compiled against @unix-2.6.0.0@ or later +-- and the underlying filesystem supports them. +-- +getModificationTime :: OsPath -> IO UTCTime +getModificationTime path = + (`ioeAddLocation` "getModificationTime") `modifyIOError` do + modificationTimeFromMetadata <$> getFileMetadata (emptyToCurDir path) + +-- | Change the time at which the file or directory was last accessed. +-- +-- The operation may fail with: +-- +-- * 'isPermissionError' if the user is not permitted to alter the +-- access time; or +-- +-- * 'isDoesNotExistError' if the file or directory does not exist. +-- +-- Some caveats for POSIX systems: +-- +-- * Not all systems support @utimensat@, in which case the function can only +-- emulate the behavior by reading the modification time and then setting +-- both the access and modification times together. On systems where +-- @utimensat@ is supported, the access time is set atomically with +-- nanosecond precision. +-- +-- * If compiled against a version of @unix@ prior to @2.7.0.0@, the function +-- would not be able to set timestamps with sub-second resolution. In this +-- case, there would also be loss of precision in the modification time. +-- +setAccessTime :: OsPath -> UTCTime -> IO () +setAccessTime path atime = + (`ioeAddLocation` "setAccessTime") `modifyIOError` do + setFileTimes path (Just atime, Nothing) + +-- | Change the time at which the file or directory was last modified. +-- +-- The operation may fail with: +-- +-- * 'isPermissionError' if the user is not permitted to alter the +-- modification time; or +-- +-- * 'isDoesNotExistError' if the file or directory does not exist. +-- +-- * 'InvalidArgument' on FAT32 file system if the time is before +-- DOS Epoch (1 January 1980). +-- +-- Some caveats for POSIX systems: +-- +-- * Not all systems support @utimensat@, in which case the function can only +-- emulate the behavior by reading the access time and then setting both the +-- access and modification times together. On systems where @utimensat@ is +-- supported, the modification time is set atomically with nanosecond +-- precision. +-- +-- * If compiled against a version of @unix@ prior to @2.7.0.0@, the function +-- would not be able to set timestamps with sub-second resolution. In this +-- case, there would also be loss of precision in the access time. +-- +setModificationTime :: OsPath -> UTCTime -> IO () +setModificationTime path mtime = + (`ioeAddLocation` "setModificationTime") `modifyIOError` do + setFileTimes path (Nothing, Just mtime) + +setFileTimes :: OsPath -> (Maybe UTCTime, Maybe UTCTime) -> IO () +setFileTimes _ (Nothing, Nothing) = pure () +setFileTimes path (atime, mtime) = + ((`ioeAddLocation` "setFileTimes") . + (`ioeSetOsPath` path)) `modifyIOError` do + setTimes (emptyToCurDir path) + (utcTimeToPOSIXSeconds <$> atime, utcTimeToPOSIXSeconds <$> mtime) + +{- | 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 'getXdgDirectory' or +'getAppUserDataDirectory' instead. + +On Unix, 'getHomeDirectory' behaves as follows: + +* Returns $HOME env variable if set (including to an empty string). +* Otherwise uses home directory returned by @getpwuid_r@ using the UID of the + current process' user. This basically reads the @\/etc\/passwd@ file. An + empty home directory field is considered valid. + +On Windows, the system is queried for a suitable path; a typical path might be +@C:\/Users\//\/@. + +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 :: IO OsPath +getHomeDirectory = + (`ioeAddLocation` "getHomeDirectory") `modifyIOError` do + getHomeDirectoryInternal + +-- | Obtain the paths to special directories for storing user-specific +-- application data, configuration, and cache files, conforming to the +-- . +-- Compared with 'getAppUserDataDirectory', this function provides a more +-- fine-grained hierarchy as well as greater flexibility for the user. +-- +-- On Windows, 'XdgData' and 'XdgConfig' usually map to the same directory +-- unless overridden. +-- +-- Refer to the docs of 'XdgDirectory' for more details. +-- +-- The second argument is usually the name of the application. Since it +-- will be integrated into the path, it must consist of valid path +-- characters. Note: if the second argument is an absolute path, it will +-- just return the second argument. +-- +-- Note: The directory may not actually exist, in which case you would need +-- to create it with file mode @700@ (i.e. only accessible by the owner). +-- +-- As of 1.3.5.0, the environment variable is ignored if set to a relative +-- path, per revised XDG Base Directory Specification. See +-- . +getXdgDirectory :: XdgDirectory -- ^ which special directory + -> OsPath -- ^ a relative path that is appended + -- to the path; if empty, the base + -- path is returned + -> IO OsPath +getXdgDirectory xdgDir suffix = + (`ioeAddLocation` "getXdgDirectory") `modifyIOError` do + simplify . ( suffix) <$> do + env <- lookupEnvOs $ case xdgDir of + XdgData -> os "XDG_DATA_HOME" + XdgConfig -> os "XDG_CONFIG_HOME" + XdgCache -> os "XDG_CACHE_HOME" + XdgState -> os "XDG_STATE_HOME" + case env of + Just path | isAbsolute path -> pure path + _ -> getXdgDirectoryFallback getHomeDirectory xdgDir + +-- | Similar to 'getXdgDirectory' but retrieves the entire list of XDG +-- directories. +-- +-- On Windows, 'XdgDataDirs' and 'XdgConfigDirs' usually map to the same list +-- of directories unless overridden. +-- +-- Refer to the docs of 'XdgDirectoryList' for more details. +getXdgDirectoryList :: XdgDirectoryList -- ^ which special directory list + -> IO [OsPath] +getXdgDirectoryList xdgDirs = + (`ioeAddLocation` "getXdgDirectoryList") `modifyIOError` do + env <- lookupEnvOs $ case xdgDirs of + XdgDataDirs -> os "XDG_DATA_DIRS" + XdgConfigDirs -> os "XDG_CONFIG_DIRS" + case env of + Nothing -> getXdgDirectoryListFallback xdgDirs + Just paths -> pure (splitSearchPath paths) + +-- | Obtain the path to a special directory for storing user-specific +-- application data (traditional Unix location). Newer applications may +-- prefer the the XDG-conformant location provided by 'getXdgDirectory' +-- (). +-- +-- The argument is usually the name of the application. Since it will be +-- integrated into the path, it must consist of valid path characters. +-- +-- * On Unix-like systems, the path is @~\/./\/@. +-- * On Windows, the path is @%APPDATA%\//\/@ +-- (e.g. @C:\/Users\//\/\/AppData\/Roaming\//\/@) +-- +-- Note: the directory may not actually exist, in which case you would need +-- to create it. It is expected that the parent directory exists and is +-- writable. +-- +-- 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 :: OsPath -- ^ a relative path that is appended + -- to the path + -> IO OsPath +getAppUserDataDirectory appName = do + (`ioeAddLocation` "getAppUserDataDirectory") `modifyIOError` do + getAppUserDataDirectoryInternal appName + +{- | 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 'getXdgDirectory' or +'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:\/Users\//\/\/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 :: IO OsPath +getUserDocumentsDirectory = do + (`ioeAddLocation` "getUserDocumentsDirectory") `modifyIOError` do + getUserDocumentsDirectoryInternal + +{- | 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 :: IO OsPath +getTemporaryDirectory = getTemporaryDirectoryInternal + +-- | Get the contents of the @PATH@ environment variable. +getExecSearchPath :: IO [OsPath] +getExecSearchPath = getPath diff --git a/cbits/directory.c b/cbits/directory.c deleted file mode 100644 --- a/cbits/directory.c +++ /dev/null @@ -1,11 +0,0 @@ -#if defined(__GLASGOW_HASKELL__) || defined(__HUGS__) -/* - * (c) The University of Glasgow 2002 - * - */ - -#define INLINE -#include "HsDirectory.h" - -#endif /* !__NHC__ */ - diff --git a/changelog.md b/changelog.md new file mode 100644 --- /dev/null +++ b/changelog.md @@ -0,0 +1,445 @@ +Changelog for the [`directory`][1] package +========================================== + +## 1.3.11.0 (May 2026) + + * Cabal flag `os-string` was removed in favor of `impl(ghc >= 9.2)`. + ([#176](https://github.com/haskell/directory/issues/176)) + * Enable close-on-exec flag when copying files and relax `file-io` version + bounds to support 0.2.0. Note that close-on-exec when copying is only + enabled on `file-io` 0.2.0 or later. + ([#203](https://github.com/haskell/directory/issues/203)) + * Relax `time` version bounds to support 1.16. + +## 1.3.10.1 (Jan 2026) + + * Make `findExecutable` return `Nothing` on absolute paths that aren't + executable. + ([#187](https://github.com/haskell/directory/issues/187)) + * Ensure `removePathForcibly` removes write-protected files on all + platforms. + ([#194](https://github.com/haskell/directory/issues/194)) + +## 1.3.10.0 (Dec 2025) + + * Add `getExecSearchPath` as replacement for + `System.FilePath.getSearchPath`. + ([#198](https://github.com/haskell/directory/pull/198)) + * The [extended-length prefix][extended-length prefix] (`\\?\`) is no longer + implicitly prepended to Windows UNC paths to avoid triggering a Win32 + implementation bug. Clients using long UNC paths should find alternatives + to [enable long paths][enable long paths]. + ([#206](https://github.com/haskell/directory/issues/206)) + +[extended-length prefix]: https://learn.microsoft.com/en-us/windows/win32/fileio/maximum-file-path-limitation#:~:text=%5C%5C%3F%5C +[enable long paths]: https://learn.microsoft.com/en-us/windows/win32/fileio/maximum-file-path-limitation#enable-long-paths-in-windows-10-version-1607-and-later + +## 1.3.9.0 (Oct 2024) + + * Rely on `file-io` for file I/O. + * Drop support for `base` older than 4.12.0. + * Resolve TOCTOU issue with `removeDirectoryRecursive` and + `removePathForcibly` on POSIX systems. + (part of [#97](https://github.com/haskell/directory/issues/97)) + * `findExecutable ""` now returns `Nothing`, matching non-Windows systems + ([#180](https://github.com/haskell/directory/issues/180)) + +## 1.3.8.5 (May 2024) + + * Fix regression that causes copying of nonexistent files to create empty + files. + ([#177](https://github.com/haskell/directory/issues/177)) + +## 1.3.8.4 (Apr 2024) + + * Relax `time` version bounds to support 1.14. + ([#171](https://github.com/haskell/directory/issues/171)) + * Relax `base` version bounds to support 4.20. + ([#173](https://github.com/haskell/directory/issues/173)) + * Relax `filepath` version bounds to support 1.4.300 when `os-string` is + unavailable. + ([#175](https://github.com/haskell/directory/issues/175)) + +## 1.3.8.3 (Jan 2024) + + * Relax `Win32` version bounds to support 2.14.0.0. + ([#166](https://github.com/haskell/directory/issues/166)) + * Fix regression in `canonicalizePath` on Windows UNC paths. + ([#170](https://github.com/haskell/directory/issues/170)) + +## 1.3.8.2 (Dec 2023) + + * Relax `base` version bounds to support 4.19. + ([#157](https://github.com/haskell/directory/pull/157)) + * Support filepath >= 1.5.0.0 and os-string. + ([#164](https://github.com/haskell/directory/issues/164)) + +## 1.3.8.1 (Feb 2023) + + * Use CApiFFI for utimensat. + ([#145](https://github.com/haskell/directory/pull/145)) + * Relax `base` version bounds to support 4.18. + ([#151](https://github.com/haskell/directory/pull/151)) + +## 1.3.8.0 (Sep 2022) + + * Drop support for `base` older than 4.11.0. + * Drop support for `filepath` older than 1.4.100. + * Drop support for `time` older than 1.8.0. + * Drop support for `unix` older than 2.8.0. + * Drop support for `Win32` older than 2.13.3. + * Modules in `directory` are no longer considered + [Safe](https://downloads.haskell.org/ghc/latest/docs/users_guide/exts/safe_haskell.html) + because the `System.OsPath` dependency is no longer Safe. + * A new module, `System.Directory.OsPath`, has been introduced to support + AFPP (`OsPath` and `OsString`) with an analogous API. The old module, + `System.Directory`, shall be in maintenance mode as new features will no + longer be accepted there. + ([#136](https://github.com/haskell/directory/pull/136)) + * `removePathForcibly` no longer changes permissions of files on non-Windows + systems. ([#135](https://github.com/haskell/directory/issues/135)) + +## 1.3.7.1 (Jul 2022) + + * Relax `time` version bounds to support 1.12. + * Relax `Win32` version bounds to support 2.13. + * Relax `base` version bounds to support 4.17. + +## 1.3.7.0 (Sep 2021) + + * `getXdgDirectory` now supports `XdgState` (`XDG_STATE_HOME`). + ([#121](https://github.com/haskell/directory/pull/121)) + +## 1.3.6.2 (May 2021) + + * Relax `Win32` version bounds to support 2.11. + * Relax `time` version bounds to support 1.11. + * Relax `base` version bounds to support 4.16. + +## 1.3.6.1 (March 2020) + + * Relax `time` version bounds to support 1.10. + +## 1.3.6.0 (January 2020) + + * On non-Windows platforms, `getHomeDirectory` will fall back to + `getpwuid_r` if `HOME` is not set. + ([#102](https://github.com/haskell/directory/issues/102)) + +## 1.3.5.0 (December 2019) + + * Revert change introduced in the version `1.3.3.2`: Non-absolute `XDG_*` + environment variables are ignored. This behavior is according to + [*XDG Base Directory Specification* version 0.7](https://specifications.freedesktop.org/basedir-spec/0.7/ar01s02.html) + ([#100](https://github.com/haskell/directory/issues/100)) + +## 1.3.4.0 (July 2019) + + * `getXdgDirectory` and `getXdgDirectoryList` on Windows will now respect + the XDG environment variables if present. + ([#95](https://github.com/haskell/directory/issues/95)) + +## 1.3.3.2 (January 2019) + + * `getXdgDirectory` will no longer reject environment variables containing + relative paths. + ([#87](https://github.com/haskell/directory/issues/87)) + +## 1.3.3.1 (August 2018) + + * `doesDirectoryExist` and `doesPathExist` reject empty paths once again, + reversing an undocumented change introduced in 1.3.1.1. + ([#84](https://github.com/haskell/directory/issues/84)) + +## 1.3.3.0 (June 2018) + + * Relax `unix` version bounds to support 2.8. + + * Relax `Win32` version bounds to support 2.8. + + * Use `SYMBOLIC_LINK_FLAG_ALLOW_UNPRIVILEGED_CREATE` when creating symbolic + links on Windows, if possible. + ([#83](https://github.com/haskell/directory/issues/83)) + +## 1.3.2.2 (April 2018) + + * Relax `base` version bounds to support 4.12. + +## 1.3.2.1 (March 2018) + + * Relax `Win32` version bounds to support 2.7. + +## 1.3.2.0 (January 2018) + + * Relax `time` version bounds to support 1.9. + + * Implement `getXdgDirectoryList` and `XdgDirectoryList`. + ([#78](https://github.com/haskell/directory/issues/78)) + +## 1.3.1.5 (October 2017) + + * Rename the internal header `windows.h` to avoid GHC#14312. + ([#77](https://github.com/haskell/directory/issues/77)) + +## 1.3.1.4 (September 2017) + + * Fix `Win32` version 2.6 compatibility. + ([#75](https://github.com/haskell/directory/pull/75)) + +## 1.3.1.3 (September 2017) + + * Relax `Win32` version bounds to support 2.6. + +## 1.3.1.2 (September 2017) + + * Relax `base` version bounds to support 4.11. + ([#74](https://github.com/haskell/directory/pull/74)) + +## 1.3.1.1 (March 2017) + + * Fix a bug where `createFileLink` and `createDirectoryLink` failed to + handle `..` in absolute paths. + + * Improve support (partially) for paths longer than 260 characters on + Windows. To achieve this, many functions will now automatically prepend + `\\?\` before calling the Windows API. As a side effect, the `\\?\` + prefix may show up in the error messages of the affected functions. + + * `makeAbsolute` can now handle drive-relative paths on Windows such as + `C:foobar` + +## 1.3.1.0 (March 2017) + + * `findFile` (and similar functions): when an absolute path is given, the + list of search directories is now completely ignored. Previously, if the + list was empty, `findFile` would always fail. + ([#72](https://github.com/haskell/directory/issues/72)) + + * For symbolic links on Windows, the following functions had previously + interpreted paths as referring to the links themselves rather than their + targets. This was inconsistent with other platforms and has been fixed. + * `getFileSize` + * `doesPathExist` + * `doesDirectoryExist` + * `doesFileExist` + + * Fix incorrect location info in errors from `pathIsSymbolicLink`. + + * Add functions for symbolic link manipulation: + * `createFileLink` + * `createDirectoryLink` + * `removeDirectoryLink` + * `getSymbolicLinkTarget` + + * `canonicalizePath` can now resolve broken symbolic links too. + ([#64](https://github.com/haskell/directory/issues/64)) + +## 1.3.0.2 (February 2017) + + * [optimization] Increase internal buffer size of `copyFile` + ([#69](https://github.com/haskell/directory/pull/69)) + + * Relax `time` version bounds to support 1.8. + +## 1.3.0.1 (January 2017) + + * Relax `Win32` version bounds to support 2.5. + ([#67](https://github.com/haskell/directory/pull/67)) + +## 1.3.0.0 (December 2016) + + * **[breaking]** Drop trailing slashes in `canonicalizePath` + ([#63](https://github.com/haskell/directory/issues/63)) + + * **[deprecation]** Rename `isSymbolicLink` to `pathIsSymbolicLink`. The + old name will remain available but may be removed in the next major + release. + ([#52](https://github.com/haskell/directory/issues/52)) + + * Changed `canonicalizePath` to dereference symbolic links even if it points + to a file and is not the last path segment + + * On Windows, `canonicalizePath` now canonicalizes the letter case too + + * On Windows, `canonicalizePath` now also dereferences symbolic links + + * When exceptions are thrown, the error location will now contain additional + information about the internal function(s) used. + +## 1.2.7.1 (November 2016) + + * Don't abort `removePathForcibly` if files or directories go missing. + In addition, keep going even if an exception occurs. + ([#60](https://github.com/haskell/directory/issues/60)) + +## 1.2.7.0 (August 2016) + + * Remove deprecated C bits. This means `HsDirectory.h` and its functions + are no longer available. + ([#50](https://github.com/haskell/directory/issues/50)) + + * Add `doesPathExist` and `getFileSize` + ([#57](https://github.com/haskell/directory/issues/57)) + + * Add `renamePath` + ([#58](https://github.com/haskell/directory/issues/58)) + + * Add `removePathForcibly` + ([#59](https://github.com/haskell/directory/issues/59)) + +## 1.2.6.3 (May 2016) + + * Add missing import of `(<*>)` on Windows for `base` earlier than 4.8.0.0 + ([#53](https://github.com/haskell/directory/issues/53)) + +## 1.2.6.2 (April 2016) + + * Bundled with GHC 8.0.1 + + * Fix typo in file time functions when `utimensat` is not available and + version of `unix` package is lower than 2.7.0.0 + +## 1.2.6.1 (April 2016) + + * Fix mistake in file time functions when `utimensat` is not available + ([#47](https://github.com/haskell/directory/pull/47)) + +## 1.2.6.0 (April 2016) + + * Make `findExecutable`, `findExecutables`, `findExecutablesInDirectories`, + `findFile`, and `findFilesWith` lazier + ([#43](https://github.com/haskell/directory/issues/43)) + + * Add `findFileWith` + + * Add `copyFileWithMetadata`, which copies additional metadata + ([#40](https://github.com/haskell/directory/issues/40)) + + * Improve error message of `removeDirectoryRecursive` when used on a + directory symbolic link on Windows. + + * Add `isSymbolicLink` + + * Drop support for Hugs. + +## 1.2.5.1 (February 2016) + + * Improve error message of `getCurrentDirectory` when the current working + directory no longer exists + ([#39](https://github.com/haskell/directory/issues/39)) + + * Fix the behavior of trailing path separators in `canonicalizePath` as well + as `makeAbsolute` when applied to the current directory; they should now + match the behavior of `canonicalizePath` prior to 1.2.3.0 (when the bug + was introduced) + ([#42](https://github.com/haskell/directory/issues/42)) + + * Set the location in IO errors from `makeAbsolute`. + +## 1.2.5.0 (December 2015) + + * Add `listDirectory`, which is similar to `getDirectoryContents` + but omits `.` and `..` + ([#36](https://github.com/haskell/directory/pull/36)) + + * Remove support for `--with-cc=` in `configure`; use the `CC=` flag instead + ([ghc:D1608](https://phabricator.haskell.org/D1608)) + +## 1.2.4.0 (September 2015) + + * Work around lack of `#const_str` when cross-compiling + ([haskell-cafe](F7D)) + + * Add `findExecutablesInDirectories` + ([#33](https://github.com/haskell/directory/pull/33)) + + * Add `exeExtension` + +[F7D]: https://mail.haskell.org/pipermail/haskell-cafe/2015-August/120892.html + +## 1.2.3.1 (August 2015) + + * Restore support for Safe Haskell with base < 4.8 + ([#30](https://github.com/haskell/directory/issues/30)) + +## 1.2.3.0 (July 2015) + + * Add support for XDG Base Directory Specification + ([#6](https://github.com/haskell/directory/issues/6)) + + * Implement `setModificationTime` counterpart to `getModificationTime` + ([#13](https://github.com/haskell/directory/issues/13)) + + * Implement `getAccessTime` and `setAccessTime` + + * Set the filename in IO errors from the file time functions + + * Fix `canonicalizePath` so that it always returns a reasonable result even + if the path is inaccessible and will not throw exceptions unless the + current directory cannot be obtained + ([#23](https://github.com/haskell/directory/issues/23)) + + * Corrected the trailing slash behavior of `makeAbsolute` + so that `makeAbsolute "" == makeAbsolute "."` + + * Deprecate use of `HsDirectory.h` and `HsDirectoryConfig.h` + + * Implement `withCurrentDirectory` + +## 1.2.2.1 (Apr 2015) + + * Fix dependency problem on NixOS when building with tests + ([#24](https://github.com/haskell/directory/issues/24)) + +## 1.2.2.0 (Mar 2015) + + * Bundled with GHC 7.10.1 + + * Make `getModificationTime` support sub-second resolution on Windows + + * Fix silent failure in `createDirectoryIfMissing` + + * Replace `throw` by better defined `throwIO`s + + * Avoid stack overflow in `getDirectoryContents` + ([#17](https://github.com/haskell/directory/pull/17)) + + * Expose `findExecutables` + ([#14](https://github.com/haskell/directory/issues/14)) + + * `removeDirectoryRecursive` no longer follows symlinks under any + circumstances + ([#15](https://github.com/haskell/directory/issues/15)) + + * Allow trailing path separators in `getPermissions` on Windows + ([#9](https://github.com/haskell/directory/issues/9)) + + * `renameFile` now always throws the correct error type + (`InappropriateType`) when the destination is a directory, as long as the + filesystem is not being modified concurrently + ([#8](https://github.com/haskell/directory/pull/8)) + + * Add `makeAbsolute`, which should be preferred over `canonicalizePath` + unless one requires symbolic links to be resolved + +## 1.2.1.0 (Mar 2014) + + * Bundled with GHC 7.8.1 + + * Add support for sub-second precision in `getModificationTime` when + linked against `unix>=2.6.0.0` + + * Fix `createDirectoryIfMissing _ "."` in `C:\` on Windows + + * Remove support for NHC98 compiler + + * Update package to `cabal-version >= 1.10` format + + * Enhance Haddock documentation for `doesDirectoryExist` and + `canonicalizePath` + + * Fix `findExecutable` to check that file permissions indicate executable + + * New convenience functions `findFiles` and `findFilesWith` + +[1]: https://hackage.haskell.org/package/directory diff --git a/config.guess b/config.guess deleted file mode 100644 --- a/config.guess +++ /dev/null @@ -1,1500 +0,0 @@ -#! /bin/sh -# Attempt to guess a canonical system name. -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, -# 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, -# Inc. - -timestamp='2006-07-02' - -# This file is free software; you can redistribute it and/or modify it -# under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA -# 02110-1301, USA. -# -# As a special exception to the GNU General Public License, if you -# distribute this file as part of a program that contains a -# configuration script generated by Autoconf, you may include it under -# the same distribution terms that you use for the rest of that program. - - -# Originally written by Per Bothner . -# Please send patches to . Submit a context -# diff and a properly formatted ChangeLog entry. -# -# This script attempts to guess a canonical system name similar to -# config.sub. If it succeeds, it prints the system name on stdout, and -# exits with 0. Otherwise, it exits with 1. -# -# The plan is that this can be called by configure scripts if you -# don't specify an explicit build system type. - -me=`echo "$0" | sed -e 's,.*/,,'` - -usage="\ -Usage: $0 [OPTION] - -Output the configuration name of the system \`$me' is run on. - -Operation modes: - -h, --help print this help, then exit - -t, --time-stamp print date of last modification, then exit - -v, --version print version number, then exit - -Report bugs and patches to ." - -version="\ -GNU config.guess ($timestamp) - -Originally written by Per Bothner. -Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 -Free Software Foundation, Inc. - -This is free software; see the source for copying conditions. There is NO -warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." - -help=" -Try \`$me --help' for more information." - -# Parse command line -while test $# -gt 0 ; do - case $1 in - --time-stamp | --time* | -t ) - echo "$timestamp" ; exit ;; - --version | -v ) - echo "$version" ; exit ;; - --help | --h* | -h ) - echo "$usage"; exit ;; - -- ) # Stop option processing - shift; break ;; - - ) # Use stdin as input. - break ;; - -* ) - echo "$me: invalid option $1$help" >&2 - exit 1 ;; - * ) - break ;; - esac -done - -if test $# != 0; then - echo "$me: too many arguments$help" >&2 - exit 1 -fi - -trap 'exit 1' 1 2 15 - -# CC_FOR_BUILD -- compiler used by this script. Note that the use of a -# compiler to aid in system detection is discouraged as it requires -# temporary files to be created and, as you can see below, it is a -# headache to deal with in a portable fashion. - -# Historically, `CC_FOR_BUILD' used to be named `HOST_CC'. We still -# use `HOST_CC' if defined, but it is deprecated. - -# Portable tmp directory creation inspired by the Autoconf team. - -set_cc_for_build=' -trap "exitcode=\$?; (rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null) && exit \$exitcode" 0 ; -trap "rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null; exit 1" 1 2 13 15 ; -: ${TMPDIR=/tmp} ; - { tmp=`(umask 077 && mktemp -d "$TMPDIR/cgXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" ; } || - { test -n "$RANDOM" && tmp=$TMPDIR/cg$$-$RANDOM && (umask 077 && mkdir $tmp) ; } || - { tmp=$TMPDIR/cg-$$ && (umask 077 && mkdir $tmp) && echo "Warning: creating insecure temp directory" >&2 ; } || - { echo "$me: cannot create a temporary directory in $TMPDIR" >&2 ; exit 1 ; } ; -dummy=$tmp/dummy ; -tmpfiles="$dummy.c $dummy.o $dummy.rel $dummy" ; -case $CC_FOR_BUILD,$HOST_CC,$CC in - ,,) echo "int x;" > $dummy.c ; - for c in cc gcc c89 c99 ; do - if ($c -c -o $dummy.o $dummy.c) >/dev/null 2>&1 ; then - CC_FOR_BUILD="$c"; break ; - fi ; - done ; - if test x"$CC_FOR_BUILD" = x ; then - CC_FOR_BUILD=no_compiler_found ; - fi - ;; - ,,*) CC_FOR_BUILD=$CC ;; - ,*,*) CC_FOR_BUILD=$HOST_CC ;; -esac ; set_cc_for_build= ;' - -# This is needed to find uname on a Pyramid OSx when run in the BSD universe. -# (ghazi@noc.rutgers.edu 1994-08-24) -if (test -f /.attbin/uname) >/dev/null 2>&1 ; then - PATH=$PATH:/.attbin ; export PATH -fi - -UNAME_MACHINE=`(uname -m) 2>/dev/null` || UNAME_MACHINE=unknown -UNAME_RELEASE=`(uname -r) 2>/dev/null` || UNAME_RELEASE=unknown -UNAME_SYSTEM=`(uname -s) 2>/dev/null` || UNAME_SYSTEM=unknown -UNAME_VERSION=`(uname -v) 2>/dev/null` || UNAME_VERSION=unknown - -# Note: order is significant - the case branches are not exclusive. - -case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in - *:NetBSD:*:*) - # NetBSD (nbsd) targets should (where applicable) match one or - # more of the tupples: *-*-netbsdelf*, *-*-netbsdaout*, - # *-*-netbsdecoff* and *-*-netbsd*. For targets that recently - # switched to ELF, *-*-netbsd* would select the old - # object file format. This provides both forward - # compatibility and a consistent mechanism for selecting the - # object file format. - # - # Note: NetBSD doesn't particularly care about the vendor - # portion of the name. We always set it to "unknown". - sysctl="sysctl -n hw.machine_arch" - UNAME_MACHINE_ARCH=`(/sbin/$sysctl 2>/dev/null || \ - /usr/sbin/$sysctl 2>/dev/null || echo unknown)` - case "${UNAME_MACHINE_ARCH}" in - armeb) machine=armeb-unknown ;; - arm*) machine=arm-unknown ;; - sh3el) machine=shl-unknown ;; - sh3eb) machine=sh-unknown ;; - *) machine=${UNAME_MACHINE_ARCH}-unknown ;; - esac - # The Operating System including object format, if it has switched - # to ELF recently, or will in the future. - case "${UNAME_MACHINE_ARCH}" in - arm*|i386|m68k|ns32k|sh3*|sparc|vax) - eval $set_cc_for_build - if echo __ELF__ | $CC_FOR_BUILD -E - 2>/dev/null \ - | grep __ELF__ >/dev/null - then - # Once all utilities can be ECOFF (netbsdecoff) or a.out (netbsdaout). - # Return netbsd for either. FIX? - os=netbsd - else - os=netbsdelf - fi - ;; - *) - os=netbsd - ;; - esac - # The OS release - # Debian GNU/NetBSD machines have a different userland, and - # thus, need a distinct triplet. However, they do not need - # kernel version information, so it can be replaced with a - # suitable tag, in the style of linux-gnu. - case "${UNAME_VERSION}" in - Debian*) - release='-gnu' - ;; - *) - release=`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'` - ;; - esac - # Since CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM: - # contains redundant information, the shorter form: - # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM is used. - echo "${machine}-${os}${release}" - exit ;; - *:OpenBSD:*:*) - UNAME_MACHINE_ARCH=`arch | sed 's/OpenBSD.//'` - echo ${UNAME_MACHINE_ARCH}-unknown-openbsd${UNAME_RELEASE} - exit ;; - *:ekkoBSD:*:*) - echo ${UNAME_MACHINE}-unknown-ekkobsd${UNAME_RELEASE} - exit ;; - *:SolidBSD:*:*) - echo ${UNAME_MACHINE}-unknown-solidbsd${UNAME_RELEASE} - exit ;; - macppc:MirBSD:*:*) - echo powerpc-unknown-mirbsd${UNAME_RELEASE} - exit ;; - *:MirBSD:*:*) - echo ${UNAME_MACHINE}-unknown-mirbsd${UNAME_RELEASE} - exit ;; - alpha:OSF1:*:*) - case $UNAME_RELEASE in - *4.0) - UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $3}'` - ;; - *5.*) - UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $4}'` - ;; - esac - # According to Compaq, /usr/sbin/psrinfo has been available on - # OSF/1 and Tru64 systems produced since 1995. I hope that - # covers most systems running today. This code pipes the CPU - # types through head -n 1, so we only detect the type of CPU 0. - ALPHA_CPU_TYPE=`/usr/sbin/psrinfo -v | sed -n -e 's/^ The alpha \(.*\) processor.*$/\1/p' | head -n 1` - case "$ALPHA_CPU_TYPE" in - "EV4 (21064)") - UNAME_MACHINE="alpha" ;; - "EV4.5 (21064)") - UNAME_MACHINE="alpha" ;; - "LCA4 (21066/21068)") - UNAME_MACHINE="alpha" ;; - "EV5 (21164)") - UNAME_MACHINE="alphaev5" ;; - "EV5.6 (21164A)") - UNAME_MACHINE="alphaev56" ;; - "EV5.6 (21164PC)") - UNAME_MACHINE="alphapca56" ;; - "EV5.7 (21164PC)") - UNAME_MACHINE="alphapca57" ;; - "EV6 (21264)") - UNAME_MACHINE="alphaev6" ;; - "EV6.7 (21264A)") - UNAME_MACHINE="alphaev67" ;; - "EV6.8CB (21264C)") - UNAME_MACHINE="alphaev68" ;; - "EV6.8AL (21264B)") - UNAME_MACHINE="alphaev68" ;; - "EV6.8CX (21264D)") - UNAME_MACHINE="alphaev68" ;; - "EV6.9A (21264/EV69A)") - UNAME_MACHINE="alphaev69" ;; - "EV7 (21364)") - UNAME_MACHINE="alphaev7" ;; - "EV7.9 (21364A)") - UNAME_MACHINE="alphaev79" ;; - esac - # A Pn.n version is a patched version. - # A Vn.n version is a released version. - # A Tn.n version is a released field test version. - # A Xn.n version is an unreleased experimental baselevel. - # 1.2 uses "1.2" for uname -r. - echo ${UNAME_MACHINE}-dec-osf`echo ${UNAME_RELEASE} | sed -e 's/^[PVTX]//' | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'` - exit ;; - Alpha\ *:Windows_NT*:*) - # How do we know it's Interix rather than the generic POSIX subsystem? - # Should we change UNAME_MACHINE based on the output of uname instead - # of the specific Alpha model? - echo alpha-pc-interix - exit ;; - 21064:Windows_NT:50:3) - echo alpha-dec-winnt3.5 - exit ;; - Amiga*:UNIX_System_V:4.0:*) - echo m68k-unknown-sysv4 - exit ;; - *:[Aa]miga[Oo][Ss]:*:*) - echo ${UNAME_MACHINE}-unknown-amigaos - exit ;; - *:[Mm]orph[Oo][Ss]:*:*) - echo ${UNAME_MACHINE}-unknown-morphos - exit ;; - *:OS/390:*:*) - echo i370-ibm-openedition - exit ;; - *:z/VM:*:*) - echo s390-ibm-zvmoe - exit ;; - *:OS400:*:*) - echo powerpc-ibm-os400 - exit ;; - arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*) - echo arm-acorn-riscix${UNAME_RELEASE} - exit ;; - arm:riscos:*:*|arm:RISCOS:*:*) - echo arm-unknown-riscos - exit ;; - SR2?01:HI-UX/MPP:*:* | SR8000:HI-UX/MPP:*:*) - echo hppa1.1-hitachi-hiuxmpp - exit ;; - Pyramid*:OSx*:*:* | MIS*:OSx*:*:* | MIS*:SMP_DC-OSx*:*:*) - # akee@wpdis03.wpafb.af.mil (Earle F. Ake) contributed MIS and NILE. - if test "`(/bin/universe) 2>/dev/null`" = att ; then - echo pyramid-pyramid-sysv3 - else - echo pyramid-pyramid-bsd - fi - exit ;; - NILE*:*:*:dcosx) - echo pyramid-pyramid-svr4 - exit ;; - DRS?6000:unix:4.0:6*) - echo sparc-icl-nx6 - exit ;; - DRS?6000:UNIX_SV:4.2*:7* | DRS?6000:isis:4.2*:7*) - case `/usr/bin/uname -p` in - sparc) echo sparc-icl-nx7; exit ;; - esac ;; - sun4H:SunOS:5.*:*) - echo sparc-hal-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` - exit ;; - sun4*:SunOS:5.*:* | tadpole*:SunOS:5.*:*) - echo sparc-sun-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` - exit ;; - i86pc:SunOS:5.*:*) - echo i386-pc-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` - exit ;; - sun4*:SunOS:6*:*) - # According to config.sub, this is the proper way to canonicalize - # SunOS6. Hard to guess exactly what SunOS6 will be like, but - # it's likely to be more like Solaris than SunOS4. - echo sparc-sun-solaris3`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` - exit ;; - sun4*:SunOS:*:*) - case "`/usr/bin/arch -k`" in - Series*|S4*) - UNAME_RELEASE=`uname -v` - ;; - esac - # Japanese Language versions have a version number like `4.1.3-JL'. - echo sparc-sun-sunos`echo ${UNAME_RELEASE}|sed -e 's/-/_/'` - exit ;; - sun3*:SunOS:*:*) - echo m68k-sun-sunos${UNAME_RELEASE} - exit ;; - sun*:*:4.2BSD:*) - UNAME_RELEASE=`(sed 1q /etc/motd | awk '{print substr($5,1,3)}') 2>/dev/null` - test "x${UNAME_RELEASE}" = "x" && UNAME_RELEASE=3 - case "`/bin/arch`" in - sun3) - echo m68k-sun-sunos${UNAME_RELEASE} - ;; - sun4) - echo sparc-sun-sunos${UNAME_RELEASE} - ;; - esac - exit ;; - aushp:SunOS:*:*) - echo sparc-auspex-sunos${UNAME_RELEASE} - exit ;; - # The situation for MiNT is a little confusing. The machine name - # can be virtually everything (everything which is not - # "atarist" or "atariste" at least should have a processor - # > m68000). The system name ranges from "MiNT" over "FreeMiNT" - # to the lowercase version "mint" (or "freemint"). Finally - # the system name "TOS" denotes a system which is actually not - # MiNT. But MiNT is downward compatible to TOS, so this should - # be no problem. - atarist[e]:*MiNT:*:* | atarist[e]:*mint:*:* | atarist[e]:*TOS:*:*) - echo m68k-atari-mint${UNAME_RELEASE} - exit ;; - atari*:*MiNT:*:* | atari*:*mint:*:* | atarist[e]:*TOS:*:*) - echo m68k-atari-mint${UNAME_RELEASE} - exit ;; - *falcon*:*MiNT:*:* | *falcon*:*mint:*:* | *falcon*:*TOS:*:*) - echo m68k-atari-mint${UNAME_RELEASE} - exit ;; - milan*:*MiNT:*:* | milan*:*mint:*:* | *milan*:*TOS:*:*) - echo m68k-milan-mint${UNAME_RELEASE} - exit ;; - hades*:*MiNT:*:* | hades*:*mint:*:* | *hades*:*TOS:*:*) - echo m68k-hades-mint${UNAME_RELEASE} - exit ;; - *:*MiNT:*:* | *:*mint:*:* | *:*TOS:*:*) - echo m68k-unknown-mint${UNAME_RELEASE} - exit ;; - m68k:machten:*:*) - echo m68k-apple-machten${UNAME_RELEASE} - exit ;; - powerpc:machten:*:*) - echo powerpc-apple-machten${UNAME_RELEASE} - exit ;; - RISC*:Mach:*:*) - echo mips-dec-mach_bsd4.3 - exit ;; - RISC*:ULTRIX:*:*) - echo mips-dec-ultrix${UNAME_RELEASE} - exit ;; - VAX*:ULTRIX*:*:*) - echo vax-dec-ultrix${UNAME_RELEASE} - exit ;; - 2020:CLIX:*:* | 2430:CLIX:*:*) - echo clipper-intergraph-clix${UNAME_RELEASE} - exit ;; - mips:*:*:UMIPS | mips:*:*:RISCos) - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c -#ifdef __cplusplus -#include /* for printf() prototype */ - int main (int argc, char *argv[]) { -#else - int main (argc, argv) int argc; char *argv[]; { -#endif - #if defined (host_mips) && defined (MIPSEB) - #if defined (SYSTYPE_SYSV) - printf ("mips-mips-riscos%ssysv\n", argv[1]); exit (0); - #endif - #if defined (SYSTYPE_SVR4) - printf ("mips-mips-riscos%ssvr4\n", argv[1]); exit (0); - #endif - #if defined (SYSTYPE_BSD43) || defined(SYSTYPE_BSD) - printf ("mips-mips-riscos%sbsd\n", argv[1]); exit (0); - #endif - #endif - exit (-1); - } -EOF - $CC_FOR_BUILD -o $dummy $dummy.c && - dummyarg=`echo "${UNAME_RELEASE}" | sed -n 's/\([0-9]*\).*/\1/p'` && - SYSTEM_NAME=`$dummy $dummyarg` && - { echo "$SYSTEM_NAME"; exit; } - echo mips-mips-riscos${UNAME_RELEASE} - exit ;; - Motorola:PowerMAX_OS:*:*) - echo powerpc-motorola-powermax - exit ;; - Motorola:*:4.3:PL8-*) - echo powerpc-harris-powermax - exit ;; - Night_Hawk:*:*:PowerMAX_OS | Synergy:PowerMAX_OS:*:*) - echo powerpc-harris-powermax - exit ;; - Night_Hawk:Power_UNIX:*:*) - echo powerpc-harris-powerunix - exit ;; - m88k:CX/UX:7*:*) - echo m88k-harris-cxux7 - exit ;; - m88k:*:4*:R4*) - echo m88k-motorola-sysv4 - exit ;; - m88k:*:3*:R3*) - echo m88k-motorola-sysv3 - exit ;; - AViiON:dgux:*:*) - # DG/UX returns AViiON for all architectures - UNAME_PROCESSOR=`/usr/bin/uname -p` - if [ $UNAME_PROCESSOR = mc88100 ] || [ $UNAME_PROCESSOR = mc88110 ] - then - if [ ${TARGET_BINARY_INTERFACE}x = m88kdguxelfx ] || \ - [ ${TARGET_BINARY_INTERFACE}x = x ] - then - echo m88k-dg-dgux${UNAME_RELEASE} - else - echo m88k-dg-dguxbcs${UNAME_RELEASE} - fi - else - echo i586-dg-dgux${UNAME_RELEASE} - fi - exit ;; - M88*:DolphinOS:*:*) # DolphinOS (SVR3) - echo m88k-dolphin-sysv3 - exit ;; - M88*:*:R3*:*) - # Delta 88k system running SVR3 - echo m88k-motorola-sysv3 - exit ;; - XD88*:*:*:*) # Tektronix XD88 system running UTekV (SVR3) - echo m88k-tektronix-sysv3 - exit ;; - Tek43[0-9][0-9]:UTek:*:*) # Tektronix 4300 system running UTek (BSD) - echo m68k-tektronix-bsd - exit ;; - *:IRIX*:*:*) - echo mips-sgi-irix`echo ${UNAME_RELEASE}|sed -e 's/-/_/g'` - exit ;; - ????????:AIX?:[12].1:2) # AIX 2.2.1 or AIX 2.1.1 is RT/PC AIX. - echo romp-ibm-aix # uname -m gives an 8 hex-code CPU id - exit ;; # Note that: echo "'`uname -s`'" gives 'AIX ' - i*86:AIX:*:*) - echo i386-ibm-aix - exit ;; - ia64:AIX:*:*) - if [ -x /usr/bin/oslevel ] ; then - IBM_REV=`/usr/bin/oslevel` - else - IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE} - fi - echo ${UNAME_MACHINE}-ibm-aix${IBM_REV} - exit ;; - *:AIX:2:3) - if grep bos325 /usr/include/stdio.h >/dev/null 2>&1; then - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c - #include - - main() - { - if (!__power_pc()) - exit(1); - puts("powerpc-ibm-aix3.2.5"); - exit(0); - } -EOF - if $CC_FOR_BUILD -o $dummy $dummy.c && SYSTEM_NAME=`$dummy` - then - echo "$SYSTEM_NAME" - else - echo rs6000-ibm-aix3.2.5 - fi - elif grep bos324 /usr/include/stdio.h >/dev/null 2>&1; then - echo rs6000-ibm-aix3.2.4 - else - echo rs6000-ibm-aix3.2 - fi - exit ;; - *:AIX:*:[45]) - IBM_CPU_ID=`/usr/sbin/lsdev -C -c processor -S available | sed 1q | awk '{ print $1 }'` - if /usr/sbin/lsattr -El ${IBM_CPU_ID} | grep ' POWER' >/dev/null 2>&1; then - IBM_ARCH=rs6000 - else - IBM_ARCH=powerpc - fi - if [ -x /usr/bin/oslevel ] ; then - IBM_REV=`/usr/bin/oslevel` - else - IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE} - fi - echo ${IBM_ARCH}-ibm-aix${IBM_REV} - exit ;; - *:AIX:*:*) - echo rs6000-ibm-aix - exit ;; - ibmrt:4.4BSD:*|romp-ibm:BSD:*) - echo romp-ibm-bsd4.4 - exit ;; - ibmrt:*BSD:*|romp-ibm:BSD:*) # covers RT/PC BSD and - echo romp-ibm-bsd${UNAME_RELEASE} # 4.3 with uname added to - exit ;; # report: romp-ibm BSD 4.3 - *:BOSX:*:*) - echo rs6000-bull-bosx - exit ;; - DPX/2?00:B.O.S.:*:*) - echo m68k-bull-sysv3 - exit ;; - 9000/[34]??:4.3bsd:1.*:*) - echo m68k-hp-bsd - exit ;; - hp300:4.4BSD:*:* | 9000/[34]??:4.3bsd:2.*:*) - echo m68k-hp-bsd4.4 - exit ;; - 9000/[34678]??:HP-UX:*:*) - HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` - case "${UNAME_MACHINE}" in - 9000/31? ) HP_ARCH=m68000 ;; - 9000/[34]?? ) HP_ARCH=m68k ;; - 9000/[678][0-9][0-9]) - if [ -x /usr/bin/getconf ]; then - sc_cpu_version=`/usr/bin/getconf SC_CPU_VERSION 2>/dev/null` - sc_kernel_bits=`/usr/bin/getconf SC_KERNEL_BITS 2>/dev/null` - case "${sc_cpu_version}" in - 523) HP_ARCH="hppa1.0" ;; # CPU_PA_RISC1_0 - 528) HP_ARCH="hppa1.1" ;; # CPU_PA_RISC1_1 - 532) # CPU_PA_RISC2_0 - case "${sc_kernel_bits}" in - 32) HP_ARCH="hppa2.0n" ;; - 64) HP_ARCH="hppa2.0w" ;; - '') HP_ARCH="hppa2.0" ;; # HP-UX 10.20 - esac ;; - esac - fi - if [ "${HP_ARCH}" = "" ]; then - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c - - #define _HPUX_SOURCE - #include - #include - - int main () - { - #if defined(_SC_KERNEL_BITS) - long bits = sysconf(_SC_KERNEL_BITS); - #endif - long cpu = sysconf (_SC_CPU_VERSION); - - switch (cpu) - { - case CPU_PA_RISC1_0: puts ("hppa1.0"); break; - case CPU_PA_RISC1_1: puts ("hppa1.1"); break; - case CPU_PA_RISC2_0: - #if defined(_SC_KERNEL_BITS) - switch (bits) - { - case 64: puts ("hppa2.0w"); break; - case 32: puts ("hppa2.0n"); break; - default: puts ("hppa2.0"); break; - } break; - #else /* !defined(_SC_KERNEL_BITS) */ - puts ("hppa2.0"); break; - #endif - default: puts ("hppa1.0"); break; - } - exit (0); - } -EOF - (CCOPTS= $CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null) && HP_ARCH=`$dummy` - test -z "$HP_ARCH" && HP_ARCH=hppa - fi ;; - esac - if [ ${HP_ARCH} = "hppa2.0w" ] - then - eval $set_cc_for_build - - # hppa2.0w-hp-hpux* has a 64-bit kernel and a compiler generating - # 32-bit code. hppa64-hp-hpux* has the same kernel and a compiler - # generating 64-bit code. GNU and HP use different nomenclature: - # - # $ CC_FOR_BUILD=cc ./config.guess - # => hppa2.0w-hp-hpux11.23 - # $ CC_FOR_BUILD="cc +DA2.0w" ./config.guess - # => hppa64-hp-hpux11.23 - - if echo __LP64__ | (CCOPTS= $CC_FOR_BUILD -E - 2>/dev/null) | - grep __LP64__ >/dev/null - then - HP_ARCH="hppa2.0w" - else - HP_ARCH="hppa64" - fi - fi - echo ${HP_ARCH}-hp-hpux${HPUX_REV} - exit ;; - ia64:HP-UX:*:*) - HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` - echo ia64-hp-hpux${HPUX_REV} - exit ;; - 3050*:HI-UX:*:*) - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c - #include - int - main () - { - long cpu = sysconf (_SC_CPU_VERSION); - /* The order matters, because CPU_IS_HP_MC68K erroneously returns - true for CPU_PA_RISC1_0. CPU_IS_PA_RISC returns correct - results, however. */ - if (CPU_IS_PA_RISC (cpu)) - { - switch (cpu) - { - case CPU_PA_RISC1_0: puts ("hppa1.0-hitachi-hiuxwe2"); break; - case CPU_PA_RISC1_1: puts ("hppa1.1-hitachi-hiuxwe2"); break; - case CPU_PA_RISC2_0: puts ("hppa2.0-hitachi-hiuxwe2"); break; - default: puts ("hppa-hitachi-hiuxwe2"); break; - } - } - else if (CPU_IS_HP_MC68K (cpu)) - puts ("m68k-hitachi-hiuxwe2"); - else puts ("unknown-hitachi-hiuxwe2"); - exit (0); - } -EOF - $CC_FOR_BUILD -o $dummy $dummy.c && SYSTEM_NAME=`$dummy` && - { echo "$SYSTEM_NAME"; exit; } - echo unknown-hitachi-hiuxwe2 - exit ;; - 9000/7??:4.3bsd:*:* | 9000/8?[79]:4.3bsd:*:* ) - echo hppa1.1-hp-bsd - exit ;; - 9000/8??:4.3bsd:*:*) - echo hppa1.0-hp-bsd - exit ;; - *9??*:MPE/iX:*:* | *3000*:MPE/iX:*:*) - echo hppa1.0-hp-mpeix - exit ;; - hp7??:OSF1:*:* | hp8?[79]:OSF1:*:* ) - echo hppa1.1-hp-osf - exit ;; - hp8??:OSF1:*:*) - echo hppa1.0-hp-osf - exit ;; - i*86:OSF1:*:*) - if [ -x /usr/sbin/sysversion ] ; then - echo ${UNAME_MACHINE}-unknown-osf1mk - else - echo ${UNAME_MACHINE}-unknown-osf1 - fi - exit ;; - parisc*:Lites*:*:*) - echo hppa1.1-hp-lites - exit ;; - C1*:ConvexOS:*:* | convex:ConvexOS:C1*:*) - echo c1-convex-bsd - exit ;; - C2*:ConvexOS:*:* | convex:ConvexOS:C2*:*) - if getsysinfo -f scalar_acc - then echo c32-convex-bsd - else echo c2-convex-bsd - fi - exit ;; - C34*:ConvexOS:*:* | convex:ConvexOS:C34*:*) - echo c34-convex-bsd - exit ;; - C38*:ConvexOS:*:* | convex:ConvexOS:C38*:*) - echo c38-convex-bsd - exit ;; - C4*:ConvexOS:*:* | convex:ConvexOS:C4*:*) - echo c4-convex-bsd - exit ;; - CRAY*Y-MP:*:*:*) - echo ymp-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' - exit ;; - CRAY*[A-Z]90:*:*:*) - echo ${UNAME_MACHINE}-cray-unicos${UNAME_RELEASE} \ - | sed -e 's/CRAY.*\([A-Z]90\)/\1/' \ - -e y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/ \ - -e 's/\.[^.]*$/.X/' - exit ;; - CRAY*TS:*:*:*) - echo t90-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' - exit ;; - CRAY*T3E:*:*:*) - echo alphaev5-cray-unicosmk${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' - exit ;; - CRAY*SV1:*:*:*) - echo sv1-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' - exit ;; - *:UNICOS/mp:*:*) - echo craynv-cray-unicosmp${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' - exit ;; - F30[01]:UNIX_System_V:*:* | F700:UNIX_System_V:*:*) - FUJITSU_PROC=`uname -m | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'` - FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'` - FUJITSU_REL=`echo ${UNAME_RELEASE} | sed -e 's/ /_/'` - echo "${FUJITSU_PROC}-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" - exit ;; - 5000:UNIX_System_V:4.*:*) - FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'` - FUJITSU_REL=`echo ${UNAME_RELEASE} | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/ /_/'` - echo "sparc-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" - exit ;; - i*86:BSD/386:*:* | i*86:BSD/OS:*:* | *:Ascend\ Embedded/OS:*:*) - echo ${UNAME_MACHINE}-pc-bsdi${UNAME_RELEASE} - exit ;; - sparc*:BSD/OS:*:*) - echo sparc-unknown-bsdi${UNAME_RELEASE} - exit ;; - *:BSD/OS:*:*) - echo ${UNAME_MACHINE}-unknown-bsdi${UNAME_RELEASE} - exit ;; - *:FreeBSD:*:*) - case ${UNAME_MACHINE} in - pc98) - echo i386-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;; - amd64) - echo x86_64-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;; - *) - echo ${UNAME_MACHINE}-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;; - esac - exit ;; - i*:CYGWIN*:*) - echo ${UNAME_MACHINE}-pc-cygwin - exit ;; - i*:MINGW*:*) - echo ${UNAME_MACHINE}-pc-mingw32 - exit ;; - i*:windows32*:*) - # uname -m includes "-pc" on this system. - echo ${UNAME_MACHINE}-mingw32 - exit ;; - i*:PW*:*) - echo ${UNAME_MACHINE}-pc-pw32 - exit ;; - x86:Interix*:[3456]*) - echo i586-pc-interix${UNAME_RELEASE} - exit ;; - EM64T:Interix*:[3456]*) - echo x86_64-unknown-interix${UNAME_RELEASE} - exit ;; - [345]86:Windows_95:* | [345]86:Windows_98:* | [345]86:Windows_NT:*) - echo i${UNAME_MACHINE}-pc-mks - exit ;; - i*:Windows_NT*:* | Pentium*:Windows_NT*:*) - # How do we know it's Interix rather than the generic POSIX subsystem? - # It also conflicts with pre-2.0 versions of AT&T UWIN. Should we - # UNAME_MACHINE based on the output of uname instead of i386? - echo i586-pc-interix - exit ;; - i*:UWIN*:*) - echo ${UNAME_MACHINE}-pc-uwin - exit ;; - amd64:CYGWIN*:*:* | x86_64:CYGWIN*:*:*) - echo x86_64-unknown-cygwin - exit ;; - p*:CYGWIN*:*) - echo powerpcle-unknown-cygwin - exit ;; - prep*:SunOS:5.*:*) - echo powerpcle-unknown-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` - exit ;; - *:GNU:*:*) - # the GNU system - echo `echo ${UNAME_MACHINE}|sed -e 's,[-/].*$,,'`-unknown-gnu`echo ${UNAME_RELEASE}|sed -e 's,/.*$,,'` - exit ;; - *:GNU/*:*:*) - # other systems with GNU libc and userland - echo ${UNAME_MACHINE}-unknown-`echo ${UNAME_SYSTEM} | sed 's,^[^/]*/,,' | tr '[A-Z]' '[a-z]'``echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`-gnu - exit ;; - i*86:Minix:*:*) - echo ${UNAME_MACHINE}-pc-minix - exit ;; - arm*:Linux:*:*) - echo ${UNAME_MACHINE}-unknown-linux-gnu - exit ;; - avr32*:Linux:*:*) - echo ${UNAME_MACHINE}-unknown-linux-gnu - exit ;; - cris:Linux:*:*) - echo cris-axis-linux-gnu - exit ;; - crisv32:Linux:*:*) - echo crisv32-axis-linux-gnu - exit ;; - frv:Linux:*:*) - echo frv-unknown-linux-gnu - exit ;; - ia64:Linux:*:*) - echo ${UNAME_MACHINE}-unknown-linux-gnu - exit ;; - m32r*:Linux:*:*) - echo ${UNAME_MACHINE}-unknown-linux-gnu - exit ;; - m68*:Linux:*:*) - echo ${UNAME_MACHINE}-unknown-linux-gnu - exit ;; - mips:Linux:*:*) - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c - #undef CPU - #undef mips - #undef mipsel - #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL) - CPU=mipsel - #else - #if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB) - CPU=mips - #else - CPU= - #endif - #endif -EOF - eval "`$CC_FOR_BUILD -E $dummy.c 2>/dev/null | sed -n ' - /^CPU/{ - s: ::g - p - }'`" - test x"${CPU}" != x && { echo "${CPU}-unknown-linux-gnu"; exit; } - ;; - mips64:Linux:*:*) - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c - #undef CPU - #undef mips64 - #undef mips64el - #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL) - CPU=mips64el - #else - #if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB) - CPU=mips64 - #else - CPU= - #endif - #endif -EOF - eval "`$CC_FOR_BUILD -E $dummy.c 2>/dev/null | sed -n ' - /^CPU/{ - s: ::g - p - }'`" - test x"${CPU}" != x && { echo "${CPU}-unknown-linux-gnu"; exit; } - ;; - or32:Linux:*:*) - echo or32-unknown-linux-gnu - exit ;; - ppc:Linux:*:*) - echo powerpc-unknown-linux-gnu - exit ;; - ppc64:Linux:*:*) - echo powerpc64-unknown-linux-gnu - exit ;; - alpha:Linux:*:*) - case `sed -n '/^cpu model/s/^.*: \(.*\)/\1/p' < /proc/cpuinfo` in - EV5) UNAME_MACHINE=alphaev5 ;; - EV56) UNAME_MACHINE=alphaev56 ;; - PCA56) UNAME_MACHINE=alphapca56 ;; - PCA57) UNAME_MACHINE=alphapca56 ;; - EV6) UNAME_MACHINE=alphaev6 ;; - EV67) UNAME_MACHINE=alphaev67 ;; - EV68*) UNAME_MACHINE=alphaev68 ;; - esac - objdump --private-headers /bin/sh | grep ld.so.1 >/dev/null - if test "$?" = 0 ; then LIBC="libc1" ; else LIBC="" ; fi - echo ${UNAME_MACHINE}-unknown-linux-gnu${LIBC} - exit ;; - parisc:Linux:*:* | hppa:Linux:*:*) - # Look for CPU level - case `grep '^cpu[^a-z]*:' /proc/cpuinfo 2>/dev/null | cut -d' ' -f2` in - PA7*) echo hppa1.1-unknown-linux-gnu ;; - PA8*) echo hppa2.0-unknown-linux-gnu ;; - *) echo hppa-unknown-linux-gnu ;; - esac - exit ;; - parisc64:Linux:*:* | hppa64:Linux:*:*) - echo hppa64-unknown-linux-gnu - exit ;; - s390:Linux:*:* | s390x:Linux:*:*) - echo ${UNAME_MACHINE}-ibm-linux - exit ;; - sh64*:Linux:*:*) - echo ${UNAME_MACHINE}-unknown-linux-gnu - exit ;; - sh*:Linux:*:*) - echo ${UNAME_MACHINE}-unknown-linux-gnu - exit ;; - sparc:Linux:*:* | sparc64:Linux:*:*) - echo ${UNAME_MACHINE}-unknown-linux-gnu - exit ;; - vax:Linux:*:*) - echo ${UNAME_MACHINE}-dec-linux-gnu - exit ;; - x86_64:Linux:*:*) - echo x86_64-unknown-linux-gnu - exit ;; - i*86:Linux:*:*) - # The BFD linker knows what the default object file format is, so - # first see if it will tell us. cd to the root directory to prevent - # problems with other programs or directories called `ld' in the path. - # Set LC_ALL=C to ensure ld outputs messages in English. - ld_supported_targets=`cd /; LC_ALL=C ld --help 2>&1 \ - | sed -ne '/supported targets:/!d - s/[ ][ ]*/ /g - s/.*supported targets: *// - s/ .*// - p'` - case "$ld_supported_targets" in - elf32-i386) - TENTATIVE="${UNAME_MACHINE}-pc-linux-gnu" - ;; - a.out-i386-linux) - echo "${UNAME_MACHINE}-pc-linux-gnuaout" - exit ;; - coff-i386) - echo "${UNAME_MACHINE}-pc-linux-gnucoff" - exit ;; - "") - # Either a pre-BFD a.out linker (linux-gnuoldld) or - # one that does not give us useful --help. - echo "${UNAME_MACHINE}-pc-linux-gnuoldld" - exit ;; - esac - # Determine whether the default compiler is a.out or elf - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c - #include - #ifdef __ELF__ - # ifdef __GLIBC__ - # if __GLIBC__ >= 2 - LIBC=gnu - # else - LIBC=gnulibc1 - # endif - # else - LIBC=gnulibc1 - # endif - #else - #if defined(__INTEL_COMPILER) || defined(__PGI) || defined(__SUNPRO_C) || defined(__SUNPRO_CC) - LIBC=gnu - #else - LIBC=gnuaout - #endif - #endif - #ifdef __dietlibc__ - LIBC=dietlibc - #endif -EOF - eval "`$CC_FOR_BUILD -E $dummy.c 2>/dev/null | sed -n ' - /^LIBC/{ - s: ::g - p - }'`" - test x"${LIBC}" != x && { - echo "${UNAME_MACHINE}-pc-linux-${LIBC}" - exit - } - test x"${TENTATIVE}" != x && { echo "${TENTATIVE}"; exit; } - ;; - i*86:DYNIX/ptx:4*:*) - # ptx 4.0 does uname -s correctly, with DYNIX/ptx in there. - # earlier versions are messed up and put the nodename in both - # sysname and nodename. - echo i386-sequent-sysv4 - exit ;; - i*86:UNIX_SV:4.2MP:2.*) - # Unixware is an offshoot of SVR4, but it has its own version - # number series starting with 2... - # I am not positive that other SVR4 systems won't match this, - # I just have to hope. -- rms. - # Use sysv4.2uw... so that sysv4* matches it. - echo ${UNAME_MACHINE}-pc-sysv4.2uw${UNAME_VERSION} - exit ;; - i*86:OS/2:*:*) - # If we were able to find `uname', then EMX Unix compatibility - # is probably installed. - echo ${UNAME_MACHINE}-pc-os2-emx - exit ;; - i*86:XTS-300:*:STOP) - echo ${UNAME_MACHINE}-unknown-stop - exit ;; - i*86:atheos:*:*) - echo ${UNAME_MACHINE}-unknown-atheos - exit ;; - i*86:syllable:*:*) - echo ${UNAME_MACHINE}-pc-syllable - exit ;; - i*86:LynxOS:2.*:* | i*86:LynxOS:3.[01]*:* | i*86:LynxOS:4.0*:*) - echo i386-unknown-lynxos${UNAME_RELEASE} - exit ;; - i*86:*DOS:*:*) - echo ${UNAME_MACHINE}-pc-msdosdjgpp - exit ;; - i*86:*:4.*:* | i*86:SYSTEM_V:4.*:*) - UNAME_REL=`echo ${UNAME_RELEASE} | sed 's/\/MP$//'` - if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then - echo ${UNAME_MACHINE}-univel-sysv${UNAME_REL} - else - echo ${UNAME_MACHINE}-pc-sysv${UNAME_REL} - fi - exit ;; - i*86:*:5:[678]*) - # UnixWare 7.x, OpenUNIX and OpenServer 6. - case `/bin/uname -X | grep "^Machine"` in - *486*) UNAME_MACHINE=i486 ;; - *Pentium) UNAME_MACHINE=i586 ;; - *Pent*|*Celeron) UNAME_MACHINE=i686 ;; - esac - echo ${UNAME_MACHINE}-unknown-sysv${UNAME_RELEASE}${UNAME_SYSTEM}${UNAME_VERSION} - exit ;; - i*86:*:3.2:*) - if test -f /usr/options/cb.name; then - UNAME_REL=`sed -n 's/.*Version //p' /dev/null >/dev/null ; then - UNAME_REL=`(/bin/uname -X|grep Release|sed -e 's/.*= //')` - (/bin/uname -X|grep i80486 >/dev/null) && UNAME_MACHINE=i486 - (/bin/uname -X|grep '^Machine.*Pentium' >/dev/null) \ - && UNAME_MACHINE=i586 - (/bin/uname -X|grep '^Machine.*Pent *II' >/dev/null) \ - && UNAME_MACHINE=i686 - (/bin/uname -X|grep '^Machine.*Pentium Pro' >/dev/null) \ - && UNAME_MACHINE=i686 - echo ${UNAME_MACHINE}-pc-sco$UNAME_REL - else - echo ${UNAME_MACHINE}-pc-sysv32 - fi - exit ;; - pc:*:*:*) - # Left here for compatibility: - # uname -m prints for DJGPP always 'pc', but it prints nothing about - # the processor, so we play safe by assuming i386. - echo i386-pc-msdosdjgpp - exit ;; - Intel:Mach:3*:*) - echo i386-pc-mach3 - exit ;; - paragon:*:*:*) - echo i860-intel-osf1 - exit ;; - i860:*:4.*:*) # i860-SVR4 - if grep Stardent /usr/include/sys/uadmin.h >/dev/null 2>&1 ; then - echo i860-stardent-sysv${UNAME_RELEASE} # Stardent Vistra i860-SVR4 - else # Add other i860-SVR4 vendors below as they are discovered. - echo i860-unknown-sysv${UNAME_RELEASE} # Unknown i860-SVR4 - fi - exit ;; - mini*:CTIX:SYS*5:*) - # "miniframe" - echo m68010-convergent-sysv - exit ;; - mc68k:UNIX:SYSTEM5:3.51m) - echo m68k-convergent-sysv - exit ;; - M680?0:D-NIX:5.3:*) - echo m68k-diab-dnix - exit ;; - M68*:*:R3V[5678]*:*) - test -r /sysV68 && { echo 'm68k-motorola-sysv'; exit; } ;; - 3[345]??:*:4.0:3.0 | 3[34]??A:*:4.0:3.0 | 3[34]??,*:*:4.0:3.0 | 3[34]??/*:*:4.0:3.0 | 4400:*:4.0:3.0 | 4850:*:4.0:3.0 | SKA40:*:4.0:3.0 | SDS2:*:4.0:3.0 | SHG2:*:4.0:3.0 | S7501*:*:4.0:3.0) - OS_REL='' - test -r /etc/.relid \ - && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid` - /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ - && { echo i486-ncr-sysv4.3${OS_REL}; exit; } - /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \ - && { echo i586-ncr-sysv4.3${OS_REL}; exit; } ;; - 3[34]??:*:4.0:* | 3[34]??,*:*:4.0:*) - /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ - && { echo i486-ncr-sysv4; exit; } ;; - m68*:LynxOS:2.*:* | m68*:LynxOS:3.0*:*) - echo m68k-unknown-lynxos${UNAME_RELEASE} - exit ;; - mc68030:UNIX_System_V:4.*:*) - echo m68k-atari-sysv4 - exit ;; - TSUNAMI:LynxOS:2.*:*) - echo sparc-unknown-lynxos${UNAME_RELEASE} - exit ;; - rs6000:LynxOS:2.*:*) - echo rs6000-unknown-lynxos${UNAME_RELEASE} - exit ;; - PowerPC:LynxOS:2.*:* | PowerPC:LynxOS:3.[01]*:* | PowerPC:LynxOS:4.0*:*) - echo powerpc-unknown-lynxos${UNAME_RELEASE} - exit ;; - SM[BE]S:UNIX_SV:*:*) - echo mips-dde-sysv${UNAME_RELEASE} - exit ;; - RM*:ReliantUNIX-*:*:*) - echo mips-sni-sysv4 - exit ;; - RM*:SINIX-*:*:*) - echo mips-sni-sysv4 - exit ;; - *:SINIX-*:*:*) - if uname -p 2>/dev/null >/dev/null ; then - UNAME_MACHINE=`(uname -p) 2>/dev/null` - echo ${UNAME_MACHINE}-sni-sysv4 - else - echo ns32k-sni-sysv - fi - exit ;; - PENTIUM:*:4.0*:*) # Unisys `ClearPath HMP IX 4000' SVR4/MP effort - # says - echo i586-unisys-sysv4 - exit ;; - *:UNIX_System_V:4*:FTX*) - # From Gerald Hewes . - # How about differentiating between stratus architectures? -djm - echo hppa1.1-stratus-sysv4 - exit ;; - *:*:*:FTX*) - # From seanf@swdc.stratus.com. - echo i860-stratus-sysv4 - exit ;; - i*86:VOS:*:*) - # From Paul.Green@stratus.com. - echo ${UNAME_MACHINE}-stratus-vos - exit ;; - *:VOS:*:*) - # From Paul.Green@stratus.com. - echo hppa1.1-stratus-vos - exit ;; - mc68*:A/UX:*:*) - echo m68k-apple-aux${UNAME_RELEASE} - exit ;; - news*:NEWS-OS:6*:*) - echo mips-sony-newsos6 - exit ;; - R[34]000:*System_V*:*:* | R4000:UNIX_SYSV:*:* | R*000:UNIX_SV:*:*) - if [ -d /usr/nec ]; then - echo mips-nec-sysv${UNAME_RELEASE} - else - echo mips-unknown-sysv${UNAME_RELEASE} - fi - exit ;; - BeBox:BeOS:*:*) # BeOS running on hardware made by Be, PPC only. - echo powerpc-be-beos - exit ;; - BeMac:BeOS:*:*) # BeOS running on Mac or Mac clone, PPC only. - echo powerpc-apple-beos - exit ;; - BePC:BeOS:*:*) # BeOS running on Intel PC compatible. - echo i586-pc-beos - exit ;; - SX-4:SUPER-UX:*:*) - echo sx4-nec-superux${UNAME_RELEASE} - exit ;; - SX-5:SUPER-UX:*:*) - echo sx5-nec-superux${UNAME_RELEASE} - exit ;; - SX-6:SUPER-UX:*:*) - echo sx6-nec-superux${UNAME_RELEASE} - exit ;; - Power*:Rhapsody:*:*) - echo powerpc-apple-rhapsody${UNAME_RELEASE} - exit ;; - *:Rhapsody:*:*) - echo ${UNAME_MACHINE}-apple-rhapsody${UNAME_RELEASE} - exit ;; - *:Darwin:*:*) - UNAME_PROCESSOR=`uname -p` || UNAME_PROCESSOR=unknown - case $UNAME_PROCESSOR in - unknown) UNAME_PROCESSOR=powerpc ;; - esac - echo ${UNAME_PROCESSOR}-apple-darwin${UNAME_RELEASE} - exit ;; - *:procnto*:*:* | *:QNX:[0123456789]*:*) - UNAME_PROCESSOR=`uname -p` - if test "$UNAME_PROCESSOR" = "x86"; then - UNAME_PROCESSOR=i386 - UNAME_MACHINE=pc - fi - echo ${UNAME_PROCESSOR}-${UNAME_MACHINE}-nto-qnx${UNAME_RELEASE} - exit ;; - *:QNX:*:4*) - echo i386-pc-qnx - exit ;; - NSE-?:NONSTOP_KERNEL:*:*) - echo nse-tandem-nsk${UNAME_RELEASE} - exit ;; - NSR-?:NONSTOP_KERNEL:*:*) - echo nsr-tandem-nsk${UNAME_RELEASE} - exit ;; - *:NonStop-UX:*:*) - echo mips-compaq-nonstopux - exit ;; - BS2000:POSIX*:*:*) - echo bs2000-siemens-sysv - exit ;; - DS/*:UNIX_System_V:*:*) - echo ${UNAME_MACHINE}-${UNAME_SYSTEM}-${UNAME_RELEASE} - exit ;; - *:Plan9:*:*) - # "uname -m" is not consistent, so use $cputype instead. 386 - # is converted to i386 for consistency with other x86 - # operating systems. - if test "$cputype" = "386"; then - UNAME_MACHINE=i386 - else - UNAME_MACHINE="$cputype" - fi - echo ${UNAME_MACHINE}-unknown-plan9 - exit ;; - *:TOPS-10:*:*) - echo pdp10-unknown-tops10 - exit ;; - *:TENEX:*:*) - echo pdp10-unknown-tenex - exit ;; - KS10:TOPS-20:*:* | KL10:TOPS-20:*:* | TYPE4:TOPS-20:*:*) - echo pdp10-dec-tops20 - exit ;; - XKL-1:TOPS-20:*:* | TYPE5:TOPS-20:*:*) - echo pdp10-xkl-tops20 - exit ;; - *:TOPS-20:*:*) - echo pdp10-unknown-tops20 - exit ;; - *:ITS:*:*) - echo pdp10-unknown-its - exit ;; - SEI:*:*:SEIUX) - echo mips-sei-seiux${UNAME_RELEASE} - exit ;; - *:DragonFly:*:*) - echo ${UNAME_MACHINE}-unknown-dragonfly`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` - exit ;; - *:*VMS:*:*) - UNAME_MACHINE=`(uname -p) 2>/dev/null` - case "${UNAME_MACHINE}" in - A*) echo alpha-dec-vms ; exit ;; - I*) echo ia64-dec-vms ; exit ;; - V*) echo vax-dec-vms ; exit ;; - esac ;; - *:XENIX:*:SysV) - echo i386-pc-xenix - exit ;; - i*86:skyos:*:*) - echo ${UNAME_MACHINE}-pc-skyos`echo ${UNAME_RELEASE}` | sed -e 's/ .*$//' - exit ;; - i*86:rdos:*:*) - echo ${UNAME_MACHINE}-pc-rdos - exit ;; -esac - -#echo '(No uname command or uname output not recognized.)' 1>&2 -#echo "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" 1>&2 - -eval $set_cc_for_build -cat >$dummy.c < -# include -#endif -main () -{ -#if defined (sony) -#if defined (MIPSEB) - /* BFD wants "bsd" instead of "newsos". Perhaps BFD should be changed, - I don't know.... */ - printf ("mips-sony-bsd\n"); exit (0); -#else -#include - printf ("m68k-sony-newsos%s\n", -#ifdef NEWSOS4 - "4" -#else - "" -#endif - ); exit (0); -#endif -#endif - -#if defined (__arm) && defined (__acorn) && defined (__unix) - printf ("arm-acorn-riscix\n"); exit (0); -#endif - -#if defined (hp300) && !defined (hpux) - printf ("m68k-hp-bsd\n"); exit (0); -#endif - -#if defined (NeXT) -#if !defined (__ARCHITECTURE__) -#define __ARCHITECTURE__ "m68k" -#endif - int version; - version=`(hostinfo | sed -n 's/.*NeXT Mach \([0-9]*\).*/\1/p') 2>/dev/null`; - if (version < 4) - printf ("%s-next-nextstep%d\n", __ARCHITECTURE__, version); - else - printf ("%s-next-openstep%d\n", __ARCHITECTURE__, version); - exit (0); -#endif - -#if defined (MULTIMAX) || defined (n16) -#if defined (UMAXV) - printf ("ns32k-encore-sysv\n"); exit (0); -#else -#if defined (CMU) - printf ("ns32k-encore-mach\n"); exit (0); -#else - printf ("ns32k-encore-bsd\n"); exit (0); -#endif -#endif -#endif - -#if defined (__386BSD__) - printf ("i386-pc-bsd\n"); exit (0); -#endif - -#if defined (sequent) -#if defined (i386) - printf ("i386-sequent-dynix\n"); exit (0); -#endif -#if defined (ns32000) - printf ("ns32k-sequent-dynix\n"); exit (0); -#endif -#endif - -#if defined (_SEQUENT_) - struct utsname un; - - uname(&un); - - if (strncmp(un.version, "V2", 2) == 0) { - printf ("i386-sequent-ptx2\n"); exit (0); - } - if (strncmp(un.version, "V1", 2) == 0) { /* XXX is V1 correct? */ - printf ("i386-sequent-ptx1\n"); exit (0); - } - printf ("i386-sequent-ptx\n"); exit (0); - -#endif - -#if defined (vax) -# if !defined (ultrix) -# include -# if defined (BSD) -# if BSD == 43 - printf ("vax-dec-bsd4.3\n"); exit (0); -# else -# if BSD == 199006 - printf ("vax-dec-bsd4.3reno\n"); exit (0); -# else - printf ("vax-dec-bsd\n"); exit (0); -# endif -# endif -# else - printf ("vax-dec-bsd\n"); exit (0); -# endif -# else - printf ("vax-dec-ultrix\n"); exit (0); -# endif -#endif - -#if defined (alliant) && defined (i860) - printf ("i860-alliant-bsd\n"); exit (0); -#endif - - exit (1); -} -EOF - -$CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null && SYSTEM_NAME=`$dummy` && - { echo "$SYSTEM_NAME"; exit; } - -# Apollos put the system type in the environment. - -test -d /usr/apollo && { echo ${ISP}-apollo-${SYSTYPE}; exit; } - -# Convex versions that predate uname can use getsysinfo(1) - -if [ -x /usr/convex/getsysinfo ] -then - case `getsysinfo -f cpu_type` in - c1*) - echo c1-convex-bsd - exit ;; - c2*) - if getsysinfo -f scalar_acc - then echo c32-convex-bsd - else echo c2-convex-bsd - fi - exit ;; - c34*) - echo c34-convex-bsd - exit ;; - c38*) - echo c38-convex-bsd - exit ;; - c4*) - echo c4-convex-bsd - exit ;; - esac -fi - -cat >&2 < in order to provide the needed -information to handle your system. - -config.guess timestamp = $timestamp - -uname -m = `(uname -m) 2>/dev/null || echo unknown` -uname -r = `(uname -r) 2>/dev/null || echo unknown` -uname -s = `(uname -s) 2>/dev/null || echo unknown` -uname -v = `(uname -v) 2>/dev/null || echo unknown` - -/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null` -/bin/uname -X = `(/bin/uname -X) 2>/dev/null` - -hostinfo = `(hostinfo) 2>/dev/null` -/bin/universe = `(/bin/universe) 2>/dev/null` -/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null` -/bin/arch = `(/bin/arch) 2>/dev/null` -/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null` -/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null` - -UNAME_MACHINE = ${UNAME_MACHINE} -UNAME_RELEASE = ${UNAME_RELEASE} -UNAME_SYSTEM = ${UNAME_SYSTEM} -UNAME_VERSION = ${UNAME_VERSION} -EOF - -exit 1 - -# Local variables: -# eval: (add-hook 'write-file-hooks 'time-stamp) -# time-stamp-start: "timestamp='" -# time-stamp-format: "%:y-%02m-%02d" -# time-stamp-end: "'" -# End: diff --git a/config.sub b/config.sub deleted file mode 100644 --- a/config.sub +++ /dev/null @@ -1,1608 +0,0 @@ -#! /bin/sh -# Configuration validation subroutine script. -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, -# 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, -# Inc. - -timestamp='2006-07-02' - -# This file is (in principle) common to ALL GNU software. -# The presence of a machine in this file suggests that SOME GNU software -# can handle that machine. It does not imply ALL GNU software can. -# -# This file is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA -# 02110-1301, USA. -# -# As a special exception to the GNU General Public License, if you -# distribute this file as part of a program that contains a -# configuration script generated by Autoconf, you may include it under -# the same distribution terms that you use for the rest of that program. - - -# Please send patches to . Submit a context -# diff and a properly formatted ChangeLog entry. -# -# Configuration subroutine to validate and canonicalize a configuration type. -# Supply the specified configuration type as an argument. -# If it is invalid, we print an error message on stderr and exit with code 1. -# Otherwise, we print the canonical config type on stdout and succeed. - -# This file is supposed to be the same for all GNU packages -# and recognize all the CPU types, system types and aliases -# that are meaningful with *any* GNU software. -# Each package is responsible for reporting which valid configurations -# it does not support. The user should be able to distinguish -# a failure to support a valid configuration from a meaningless -# configuration. - -# The goal of this file is to map all the various variations of a given -# machine specification into a single specification in the form: -# CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM -# or in some cases, the newer four-part form: -# CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM -# It is wrong to echo any other type of specification. - -me=`echo "$0" | sed -e 's,.*/,,'` - -usage="\ -Usage: $0 [OPTION] CPU-MFR-OPSYS - $0 [OPTION] ALIAS - -Canonicalize a configuration name. - -Operation modes: - -h, --help print this help, then exit - -t, --time-stamp print date of last modification, then exit - -v, --version print version number, then exit - -Report bugs and patches to ." - -version="\ -GNU config.sub ($timestamp) - -Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 -Free Software Foundation, Inc. - -This is free software; see the source for copying conditions. There is NO -warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." - -help=" -Try \`$me --help' for more information." - -# Parse command line -while test $# -gt 0 ; do - case $1 in - --time-stamp | --time* | -t ) - echo "$timestamp" ; exit ;; - --version | -v ) - echo "$version" ; exit ;; - --help | --h* | -h ) - echo "$usage"; exit ;; - -- ) # Stop option processing - shift; break ;; - - ) # Use stdin as input. - break ;; - -* ) - echo "$me: invalid option $1$help" - exit 1 ;; - - *local*) - # First pass through any local machine types. - echo $1 - exit ;; - - * ) - break ;; - esac -done - -case $# in - 0) echo "$me: missing argument$help" >&2 - exit 1;; - 1) ;; - *) echo "$me: too many arguments$help" >&2 - exit 1;; -esac - -# Separate what the user gave into CPU-COMPANY and OS or KERNEL-OS (if any). -# Here we must recognize all the valid KERNEL-OS combinations. -maybe_os=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\2/'` -case $maybe_os in - nto-qnx* | linux-gnu* | linux-dietlibc | linux-newlib* | linux-uclibc* | \ - uclinux-uclibc* | uclinux-gnu* | kfreebsd*-gnu* | knetbsd*-gnu* | netbsd*-gnu* | \ - storm-chaos* | os2-emx* | rtmk-nova*) - os=-$maybe_os - basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'` - ;; - *) - basic_machine=`echo $1 | sed 's/-[^-]*$//'` - if [ $basic_machine != $1 ] - then os=`echo $1 | sed 's/.*-/-/'` - else os=; fi - ;; -esac - -### Let's recognize common machines as not being operating systems so -### that things like config.sub decstation-3100 work. We also -### recognize some manufacturers as not being operating systems, so we -### can provide default operating systems below. -case $os in - -sun*os*) - # Prevent following clause from handling this invalid input. - ;; - -dec* | -mips* | -sequent* | -encore* | -pc532* | -sgi* | -sony* | \ - -att* | -7300* | -3300* | -delta* | -motorola* | -sun[234]* | \ - -unicom* | -ibm* | -next | -hp | -isi* | -apollo | -altos* | \ - -convergent* | -ncr* | -news | -32* | -3600* | -3100* | -hitachi* |\ - -c[123]* | -convex* | -sun | -crds | -omron* | -dg | -ultra | -tti* | \ - -harris | -dolphin | -highlevel | -gould | -cbm | -ns | -masscomp | \ - -apple | -axis | -knuth | -cray) - os= - basic_machine=$1 - ;; - -sim | -cisco | -oki | -wec | -winbond) - os= - basic_machine=$1 - ;; - -scout) - ;; - -wrs) - os=-vxworks - basic_machine=$1 - ;; - -chorusos*) - os=-chorusos - basic_machine=$1 - ;; - -chorusrdb) - os=-chorusrdb - basic_machine=$1 - ;; - -hiux*) - os=-hiuxwe2 - ;; - -sco6) - os=-sco5v6 - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -sco5) - os=-sco3.2v5 - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -sco4) - os=-sco3.2v4 - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -sco3.2.[4-9]*) - os=`echo $os | sed -e 's/sco3.2./sco3.2v/'` - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -sco3.2v[4-9]*) - # Don't forget version if it is 3.2v4 or newer. - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -sco5v6*) - # Don't forget version if it is 3.2v4 or newer. - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -sco*) - os=-sco3.2v2 - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -udk*) - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -isc) - os=-isc2.2 - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -clix*) - basic_machine=clipper-intergraph - ;; - -isc*) - basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` - ;; - -lynx*) - os=-lynxos - ;; - -ptx*) - basic_machine=`echo $1 | sed -e 's/86-.*/86-sequent/'` - ;; - -windowsnt*) - os=`echo $os | sed -e 's/windowsnt/winnt/'` - ;; - -psos*) - os=-psos - ;; - -mint | -mint[0-9]*) - basic_machine=m68k-atari - os=-mint - ;; -esac - -# Decode aliases for certain CPU-COMPANY combinations. -case $basic_machine in - # Recognize the basic CPU types without company name. - # Some are omitted here because they have special meanings below. - 1750a | 580 \ - | a29k \ - | alpha | alphaev[4-8] | alphaev56 | alphaev6[78] | alphapca5[67] \ - | alpha64 | alpha64ev[4-8] | alpha64ev56 | alpha64ev6[78] | alpha64pca5[67] \ - | am33_2.0 \ - | arc | arm | arm[bl]e | arme[lb] | armv[2345] | armv[345][lb] | avr | avr32 \ - | bfin \ - | c4x | clipper \ - | d10v | d30v | dlx | dsp16xx \ - | fr30 | frv \ - | h8300 | h8500 | hppa | hppa1.[01] | hppa2.0 | hppa2.0[nw] | hppa64 \ - | i370 | i860 | i960 | ia64 \ - | ip2k | iq2000 \ - | m32c | m32r | m32rle | m68000 | m68k | m88k \ - | maxq | mb | microblaze | mcore \ - | mips | mipsbe | mipseb | mipsel | mipsle \ - | mips16 \ - | mips64 | mips64el \ - | mips64vr | mips64vrel \ - | mips64orion | mips64orionel \ - | mips64vr4100 | mips64vr4100el \ - | mips64vr4300 | mips64vr4300el \ - | mips64vr5000 | mips64vr5000el \ - | mips64vr5900 | mips64vr5900el \ - | mipsisa32 | mipsisa32el \ - | mipsisa32r2 | mipsisa32r2el \ - | mipsisa64 | mipsisa64el \ - | mipsisa64r2 | mipsisa64r2el \ - | mipsisa64sb1 | mipsisa64sb1el \ - | mipsisa64sr71k | mipsisa64sr71kel \ - | mipstx39 | mipstx39el \ - | mn10200 | mn10300 \ - | mt \ - | msp430 \ - | nios | nios2 \ - | ns16k | ns32k \ - | or32 \ - | pdp10 | pdp11 | pj | pjl \ - | powerpc | powerpc64 | powerpc64le | powerpcle | ppcbe \ - | pyramid \ - | sh | sh[1234] | sh[24]a | sh[23]e | sh[34]eb | sheb | shbe | shle | sh[1234]le | sh3ele \ - | sh64 | sh64le \ - | sparc | sparc64 | sparc64b | sparc64v | sparc86x | sparclet | sparclite \ - | sparcv8 | sparcv9 | sparcv9b | sparcv9v \ - | spu | strongarm \ - | tahoe | thumb | tic4x | tic80 | tron \ - | v850 | v850e \ - | we32k \ - | x86 | xscale | xscalee[bl] | xstormy16 | xtensa \ - | z8k) - basic_machine=$basic_machine-unknown - ;; - m6811 | m68hc11 | m6812 | m68hc12) - # Motorola 68HC11/12. - basic_machine=$basic_machine-unknown - os=-none - ;; - m88110 | m680[12346]0 | m683?2 | m68360 | m5200 | v70 | w65 | z8k) - ;; - ms1) - basic_machine=mt-unknown - ;; - - # We use `pc' rather than `unknown' - # because (1) that's what they normally are, and - # (2) the word "unknown" tends to confuse beginning users. - i*86 | x86_64) - basic_machine=$basic_machine-pc - ;; - # Object if more than one company name word. - *-*-*) - echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 - exit 1 - ;; - # Recognize the basic CPU types with company name. - 580-* \ - | a29k-* \ - | alpha-* | alphaev[4-8]-* | alphaev56-* | alphaev6[78]-* \ - | alpha64-* | alpha64ev[4-8]-* | alpha64ev56-* | alpha64ev6[78]-* \ - | alphapca5[67]-* | alpha64pca5[67]-* | arc-* \ - | arm-* | armbe-* | armle-* | armeb-* | armv*-* \ - | avr-* | avr32-* \ - | bfin-* | bs2000-* \ - | c[123]* | c30-* | [cjt]90-* | c4x-* | c54x-* | c55x-* | c6x-* \ - | clipper-* | craynv-* | cydra-* \ - | d10v-* | d30v-* | dlx-* \ - | elxsi-* \ - | f30[01]-* | f700-* | fr30-* | frv-* | fx80-* \ - | h8300-* | h8500-* \ - | hppa-* | hppa1.[01]-* | hppa2.0-* | hppa2.0[nw]-* | hppa64-* \ - | i*86-* | i860-* | i960-* | ia64-* \ - | ip2k-* | iq2000-* \ - | m32c-* | m32r-* | m32rle-* \ - | m68000-* | m680[012346]0-* | m68360-* | m683?2-* | m68k-* \ - | m88110-* | m88k-* | maxq-* | mcore-* \ - | mips-* | mipsbe-* | mipseb-* | mipsel-* | mipsle-* \ - | mips16-* \ - | mips64-* | mips64el-* \ - | mips64vr-* | mips64vrel-* \ - | mips64orion-* | mips64orionel-* \ - | mips64vr4100-* | mips64vr4100el-* \ - | mips64vr4300-* | mips64vr4300el-* \ - | mips64vr5000-* | mips64vr5000el-* \ - | mips64vr5900-* | mips64vr5900el-* \ - | mipsisa32-* | mipsisa32el-* \ - | mipsisa32r2-* | mipsisa32r2el-* \ - | mipsisa64-* | mipsisa64el-* \ - | mipsisa64r2-* | mipsisa64r2el-* \ - | mipsisa64sb1-* | mipsisa64sb1el-* \ - | mipsisa64sr71k-* | mipsisa64sr71kel-* \ - | mipstx39-* | mipstx39el-* \ - | mmix-* \ - | mt-* \ - | msp430-* \ - | nios-* | nios2-* \ - | none-* | np1-* | ns16k-* | ns32k-* \ - | orion-* \ - | pdp10-* | pdp11-* | pj-* | pjl-* | pn-* | power-* \ - | powerpc-* | powerpc64-* | powerpc64le-* | powerpcle-* | ppcbe-* \ - | pyramid-* \ - | romp-* | rs6000-* \ - | sh-* | sh[1234]-* | sh[24]a-* | sh[23]e-* | sh[34]eb-* | sheb-* | shbe-* \ - | shle-* | sh[1234]le-* | sh3ele-* | sh64-* | sh64le-* \ - | sparc-* | sparc64-* | sparc64b-* | sparc64v-* | sparc86x-* | sparclet-* \ - | sparclite-* \ - | sparcv8-* | sparcv9-* | sparcv9b-* | sparcv9v-* | strongarm-* | sv1-* | sx?-* \ - | tahoe-* | thumb-* \ - | tic30-* | tic4x-* | tic54x-* | tic55x-* | tic6x-* | tic80-* \ - | tron-* \ - | v850-* | v850e-* | vax-* \ - | we32k-* \ - | x86-* | x86_64-* | xps100-* | xscale-* | xscalee[bl]-* \ - | xstormy16-* | xtensa-* \ - | ymp-* \ - | z8k-*) - ;; - # Recognize the various machine names and aliases which stand - # for a CPU type and a company and sometimes even an OS. - 386bsd) - basic_machine=i386-unknown - os=-bsd - ;; - 3b1 | 7300 | 7300-att | att-7300 | pc7300 | safari | unixpc) - basic_machine=m68000-att - ;; - 3b*) - basic_machine=we32k-att - ;; - a29khif) - basic_machine=a29k-amd - os=-udi - ;; - abacus) - basic_machine=abacus-unknown - ;; - adobe68k) - basic_machine=m68010-adobe - os=-scout - ;; - alliant | fx80) - basic_machine=fx80-alliant - ;; - altos | altos3068) - basic_machine=m68k-altos - ;; - am29k) - basic_machine=a29k-none - os=-bsd - ;; - amd64) - basic_machine=x86_64-pc - ;; - amd64-*) - basic_machine=x86_64-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - amdahl) - basic_machine=580-amdahl - os=-sysv - ;; - amiga | amiga-*) - basic_machine=m68k-unknown - ;; - amigaos | amigados) - basic_machine=m68k-unknown - os=-amigaos - ;; - amigaunix | amix) - basic_machine=m68k-unknown - os=-sysv4 - ;; - apollo68) - basic_machine=m68k-apollo - os=-sysv - ;; - apollo68bsd) - basic_machine=m68k-apollo - os=-bsd - ;; - aux) - basic_machine=m68k-apple - os=-aux - ;; - balance) - basic_machine=ns32k-sequent - os=-dynix - ;; - c90) - basic_machine=c90-cray - os=-unicos - ;; - convex-c1) - basic_machine=c1-convex - os=-bsd - ;; - convex-c2) - basic_machine=c2-convex - os=-bsd - ;; - convex-c32) - basic_machine=c32-convex - os=-bsd - ;; - convex-c34) - basic_machine=c34-convex - os=-bsd - ;; - convex-c38) - basic_machine=c38-convex - os=-bsd - ;; - cray | j90) - basic_machine=j90-cray - os=-unicos - ;; - craynv) - basic_machine=craynv-cray - os=-unicosmp - ;; - cr16c) - basic_machine=cr16c-unknown - os=-elf - ;; - crds | unos) - basic_machine=m68k-crds - ;; - crisv32 | crisv32-* | etraxfs*) - basic_machine=crisv32-axis - ;; - cris | cris-* | etrax*) - basic_machine=cris-axis - ;; - crx) - basic_machine=crx-unknown - os=-elf - ;; - da30 | da30-*) - basic_machine=m68k-da30 - ;; - decstation | decstation-3100 | pmax | pmax-* | pmin | dec3100 | decstatn) - basic_machine=mips-dec - ;; - decsystem10* | dec10*) - basic_machine=pdp10-dec - os=-tops10 - ;; - decsystem20* | dec20*) - basic_machine=pdp10-dec - os=-tops20 - ;; - delta | 3300 | motorola-3300 | motorola-delta \ - | 3300-motorola | delta-motorola) - basic_machine=m68k-motorola - ;; - delta88) - basic_machine=m88k-motorola - os=-sysv3 - ;; - djgpp) - basic_machine=i586-pc - os=-msdosdjgpp - ;; - dpx20 | dpx20-*) - basic_machine=rs6000-bull - os=-bosx - ;; - dpx2* | dpx2*-bull) - basic_machine=m68k-bull - os=-sysv3 - ;; - ebmon29k) - basic_machine=a29k-amd - os=-ebmon - ;; - elxsi) - basic_machine=elxsi-elxsi - os=-bsd - ;; - encore | umax | mmax) - basic_machine=ns32k-encore - ;; - es1800 | OSE68k | ose68k | ose | OSE) - basic_machine=m68k-ericsson - os=-ose - ;; - fx2800) - basic_machine=i860-alliant - ;; - genix) - basic_machine=ns32k-ns - ;; - gmicro) - basic_machine=tron-gmicro - os=-sysv - ;; - go32) - basic_machine=i386-pc - os=-go32 - ;; - h3050r* | hiux*) - basic_machine=hppa1.1-hitachi - os=-hiuxwe2 - ;; - h8300hms) - basic_machine=h8300-hitachi - os=-hms - ;; - h8300xray) - basic_machine=h8300-hitachi - os=-xray - ;; - h8500hms) - basic_machine=h8500-hitachi - os=-hms - ;; - harris) - basic_machine=m88k-harris - os=-sysv3 - ;; - hp300-*) - basic_machine=m68k-hp - ;; - hp300bsd) - basic_machine=m68k-hp - os=-bsd - ;; - hp300hpux) - basic_machine=m68k-hp - os=-hpux - ;; - hp3k9[0-9][0-9] | hp9[0-9][0-9]) - basic_machine=hppa1.0-hp - ;; - hp9k2[0-9][0-9] | hp9k31[0-9]) - basic_machine=m68000-hp - ;; - hp9k3[2-9][0-9]) - basic_machine=m68k-hp - ;; - hp9k6[0-9][0-9] | hp6[0-9][0-9]) - basic_machine=hppa1.0-hp - ;; - hp9k7[0-79][0-9] | hp7[0-79][0-9]) - basic_machine=hppa1.1-hp - ;; - hp9k78[0-9] | hp78[0-9]) - # FIXME: really hppa2.0-hp - basic_machine=hppa1.1-hp - ;; - hp9k8[67]1 | hp8[67]1 | hp9k80[24] | hp80[24] | hp9k8[78]9 | hp8[78]9 | hp9k893 | hp893) - # FIXME: really hppa2.0-hp - basic_machine=hppa1.1-hp - ;; - hp9k8[0-9][13679] | hp8[0-9][13679]) - basic_machine=hppa1.1-hp - ;; - hp9k8[0-9][0-9] | hp8[0-9][0-9]) - basic_machine=hppa1.0-hp - ;; - hppa-next) - os=-nextstep3 - ;; - hppaosf) - basic_machine=hppa1.1-hp - os=-osf - ;; - hppro) - basic_machine=hppa1.1-hp - os=-proelf - ;; - i370-ibm* | ibm*) - basic_machine=i370-ibm - ;; -# I'm not sure what "Sysv32" means. Should this be sysv3.2? - i*86v32) - basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` - os=-sysv32 - ;; - i*86v4*) - basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` - os=-sysv4 - ;; - i*86v) - basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` - os=-sysv - ;; - i*86sol2) - basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` - os=-solaris2 - ;; - i386mach) - basic_machine=i386-mach - os=-mach - ;; - i386-vsta | vsta) - basic_machine=i386-unknown - os=-vsta - ;; - iris | iris4d) - basic_machine=mips-sgi - case $os in - -irix*) - ;; - *) - os=-irix4 - ;; - esac - ;; - isi68 | isi) - basic_machine=m68k-isi - os=-sysv - ;; - m88k-omron*) - basic_machine=m88k-omron - ;; - magnum | m3230) - basic_machine=mips-mips - os=-sysv - ;; - merlin) - basic_machine=ns32k-utek - os=-sysv - ;; - mingw32) - basic_machine=i386-pc - os=-mingw32 - ;; - miniframe) - basic_machine=m68000-convergent - ;; - *mint | -mint[0-9]* | *MiNT | *MiNT[0-9]*) - basic_machine=m68k-atari - os=-mint - ;; - mips3*-*) - basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'` - ;; - mips3*) - basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'`-unknown - ;; - monitor) - basic_machine=m68k-rom68k - os=-coff - ;; - morphos) - basic_machine=powerpc-unknown - os=-morphos - ;; - msdos) - basic_machine=i386-pc - os=-msdos - ;; - ms1-*) - basic_machine=`echo $basic_machine | sed -e 's/ms1-/mt-/'` - ;; - mvs) - basic_machine=i370-ibm - os=-mvs - ;; - ncr3000) - basic_machine=i486-ncr - os=-sysv4 - ;; - netbsd386) - basic_machine=i386-unknown - os=-netbsd - ;; - netwinder) - basic_machine=armv4l-rebel - os=-linux - ;; - news | news700 | news800 | news900) - basic_machine=m68k-sony - os=-newsos - ;; - news1000) - basic_machine=m68030-sony - os=-newsos - ;; - news-3600 | risc-news) - basic_machine=mips-sony - os=-newsos - ;; - necv70) - basic_machine=v70-nec - os=-sysv - ;; - next | m*-next ) - basic_machine=m68k-next - case $os in - -nextstep* ) - ;; - -ns2*) - os=-nextstep2 - ;; - *) - os=-nextstep3 - ;; - esac - ;; - nh3000) - basic_machine=m68k-harris - os=-cxux - ;; - nh[45]000) - basic_machine=m88k-harris - os=-cxux - ;; - nindy960) - basic_machine=i960-intel - os=-nindy - ;; - mon960) - basic_machine=i960-intel - os=-mon960 - ;; - nonstopux) - basic_machine=mips-compaq - os=-nonstopux - ;; - np1) - basic_machine=np1-gould - ;; - nsr-tandem) - basic_machine=nsr-tandem - ;; - op50n-* | op60c-*) - basic_machine=hppa1.1-oki - os=-proelf - ;; - openrisc | openrisc-*) - basic_machine=or32-unknown - ;; - os400) - basic_machine=powerpc-ibm - os=-os400 - ;; - OSE68000 | ose68000) - basic_machine=m68000-ericsson - os=-ose - ;; - os68k) - basic_machine=m68k-none - os=-os68k - ;; - pa-hitachi) - basic_machine=hppa1.1-hitachi - os=-hiuxwe2 - ;; - paragon) - basic_machine=i860-intel - os=-osf - ;; - pbd) - basic_machine=sparc-tti - ;; - pbb) - basic_machine=m68k-tti - ;; - pc532 | pc532-*) - basic_machine=ns32k-pc532 - ;; - pc98) - basic_machine=i386-pc - ;; - pc98-*) - basic_machine=i386-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - pentium | p5 | k5 | k6 | nexgen | viac3) - basic_machine=i586-pc - ;; - pentiumpro | p6 | 6x86 | athlon | athlon_*) - basic_machine=i686-pc - ;; - pentiumii | pentium2 | pentiumiii | pentium3) - basic_machine=i686-pc - ;; - pentium4) - basic_machine=i786-pc - ;; - pentium-* | p5-* | k5-* | k6-* | nexgen-* | viac3-*) - basic_machine=i586-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - pentiumpro-* | p6-* | 6x86-* | athlon-*) - basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - pentiumii-* | pentium2-* | pentiumiii-* | pentium3-*) - basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - pentium4-*) - basic_machine=i786-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - pn) - basic_machine=pn-gould - ;; - power) basic_machine=power-ibm - ;; - ppc) basic_machine=powerpc-unknown - ;; - ppc-*) basic_machine=powerpc-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - ppcle | powerpclittle | ppc-le | powerpc-little) - basic_machine=powerpcle-unknown - ;; - ppcle-* | powerpclittle-*) - basic_machine=powerpcle-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - ppc64) basic_machine=powerpc64-unknown - ;; - ppc64-*) basic_machine=powerpc64-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - ppc64le | powerpc64little | ppc64-le | powerpc64-little) - basic_machine=powerpc64le-unknown - ;; - ppc64le-* | powerpc64little-*) - basic_machine=powerpc64le-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - ps2) - basic_machine=i386-ibm - ;; - pw32) - basic_machine=i586-unknown - os=-pw32 - ;; - rdos) - basic_machine=i386-pc - os=-rdos - ;; - rom68k) - basic_machine=m68k-rom68k - os=-coff - ;; - rm[46]00) - basic_machine=mips-siemens - ;; - rtpc | rtpc-*) - basic_machine=romp-ibm - ;; - s390 | s390-*) - basic_machine=s390-ibm - ;; - s390x | s390x-*) - basic_machine=s390x-ibm - ;; - sa29200) - basic_machine=a29k-amd - os=-udi - ;; - sb1) - basic_machine=mipsisa64sb1-unknown - ;; - sb1el) - basic_machine=mipsisa64sb1el-unknown - ;; - sei) - basic_machine=mips-sei - os=-seiux - ;; - sequent) - basic_machine=i386-sequent - ;; - sh) - basic_machine=sh-hitachi - os=-hms - ;; - sh64) - basic_machine=sh64-unknown - ;; - sparclite-wrs | simso-wrs) - basic_machine=sparclite-wrs - os=-vxworks - ;; - sps7) - basic_machine=m68k-bull - os=-sysv2 - ;; - spur) - basic_machine=spur-unknown - ;; - st2000) - basic_machine=m68k-tandem - ;; - stratus) - basic_machine=i860-stratus - os=-sysv4 - ;; - sun2) - basic_machine=m68000-sun - ;; - sun2os3) - basic_machine=m68000-sun - os=-sunos3 - ;; - sun2os4) - basic_machine=m68000-sun - os=-sunos4 - ;; - sun3os3) - basic_machine=m68k-sun - os=-sunos3 - ;; - sun3os4) - basic_machine=m68k-sun - os=-sunos4 - ;; - sun4os3) - basic_machine=sparc-sun - os=-sunos3 - ;; - sun4os4) - basic_machine=sparc-sun - os=-sunos4 - ;; - sun4sol2) - basic_machine=sparc-sun - os=-solaris2 - ;; - sun3 | sun3-*) - basic_machine=m68k-sun - ;; - sun4) - basic_machine=sparc-sun - ;; - sun386 | sun386i | roadrunner) - basic_machine=i386-sun - ;; - sv1) - basic_machine=sv1-cray - os=-unicos - ;; - symmetry) - basic_machine=i386-sequent - os=-dynix - ;; - t3e) - basic_machine=alphaev5-cray - os=-unicos - ;; - t90) - basic_machine=t90-cray - os=-unicos - ;; - tic54x | c54x*) - basic_machine=tic54x-unknown - os=-coff - ;; - tic55x | c55x*) - basic_machine=tic55x-unknown - os=-coff - ;; - tic6x | c6x*) - basic_machine=tic6x-unknown - os=-coff - ;; - tx39) - basic_machine=mipstx39-unknown - ;; - tx39el) - basic_machine=mipstx39el-unknown - ;; - toad1) - basic_machine=pdp10-xkl - os=-tops20 - ;; - tower | tower-32) - basic_machine=m68k-ncr - ;; - tpf) - basic_machine=s390x-ibm - os=-tpf - ;; - udi29k) - basic_machine=a29k-amd - os=-udi - ;; - ultra3) - basic_machine=a29k-nyu - os=-sym1 - ;; - v810 | necv810) - basic_machine=v810-nec - os=-none - ;; - vaxv) - basic_machine=vax-dec - os=-sysv - ;; - vms) - basic_machine=vax-dec - os=-vms - ;; - vpp*|vx|vx-*) - basic_machine=f301-fujitsu - ;; - vxworks960) - basic_machine=i960-wrs - os=-vxworks - ;; - vxworks68) - basic_machine=m68k-wrs - os=-vxworks - ;; - vxworks29k) - basic_machine=a29k-wrs - os=-vxworks - ;; - w65*) - basic_machine=w65-wdc - os=-none - ;; - w89k-*) - basic_machine=hppa1.1-winbond - os=-proelf - ;; - xbox) - basic_machine=i686-pc - os=-mingw32 - ;; - xps | xps100) - basic_machine=xps100-honeywell - ;; - ymp) - basic_machine=ymp-cray - os=-unicos - ;; - z8k-*-coff) - basic_machine=z8k-unknown - os=-sim - ;; - none) - basic_machine=none-none - os=-none - ;; - -# Here we handle the default manufacturer of certain CPU types. It is in -# some cases the only manufacturer, in others, it is the most popular. - w89k) - basic_machine=hppa1.1-winbond - ;; - op50n) - basic_machine=hppa1.1-oki - ;; - op60c) - basic_machine=hppa1.1-oki - ;; - romp) - basic_machine=romp-ibm - ;; - mmix) - basic_machine=mmix-knuth - ;; - rs6000) - basic_machine=rs6000-ibm - ;; - vax) - basic_machine=vax-dec - ;; - pdp10) - # there are many clones, so DEC is not a safe bet - basic_machine=pdp10-unknown - ;; - pdp11) - basic_machine=pdp11-dec - ;; - we32k) - basic_machine=we32k-att - ;; - sh[1234] | sh[24]a | sh[34]eb | sh[1234]le | sh[23]ele) - basic_machine=sh-unknown - ;; - sparc | sparcv8 | sparcv9 | sparcv9b | sparcv9v) - basic_machine=sparc-sun - ;; - cydra) - basic_machine=cydra-cydrome - ;; - orion) - basic_machine=orion-highlevel - ;; - orion105) - basic_machine=clipper-highlevel - ;; - mac | mpw | mac-mpw) - basic_machine=m68k-apple - ;; - pmac | pmac-mpw) - basic_machine=powerpc-apple - ;; - *-unknown) - # Make sure to match an already-canonicalized machine name. - ;; - *) - echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 - exit 1 - ;; -esac - -# Here we canonicalize certain aliases for manufacturers. -case $basic_machine in - *-digital*) - basic_machine=`echo $basic_machine | sed 's/digital.*/dec/'` - ;; - *-commodore*) - basic_machine=`echo $basic_machine | sed 's/commodore.*/cbm/'` - ;; - *) - ;; -esac - -# Decode manufacturer-specific aliases for certain operating systems. - -if [ x"$os" != x"" ] -then -case $os in - # First match some system type aliases - # that might get confused with valid system types. - # -solaris* is a basic system type, with this one exception. - -solaris1 | -solaris1.*) - os=`echo $os | sed -e 's|solaris1|sunos4|'` - ;; - -solaris) - os=-solaris2 - ;; - -svr4*) - os=-sysv4 - ;; - -unixware*) - os=-sysv4.2uw - ;; - -gnu/linux*) - os=`echo $os | sed -e 's|gnu/linux|linux-gnu|'` - ;; - # First accept the basic system types. - # The portable systems comes first. - # Each alternative MUST END IN A *, to match a version number. - # -sysv* is not here because it comes later, after sysvr4. - -gnu* | -bsd* | -mach* | -minix* | -genix* | -ultrix* | -irix* \ - | -*vms* | -sco* | -esix* | -isc* | -aix* | -sunos | -sunos[34]*\ - | -hpux* | -unos* | -osf* | -luna* | -dgux* | -solaris* | -sym* \ - | -amigaos* | -amigados* | -msdos* | -newsos* | -unicos* | -aof* \ - | -aos* \ - | -nindy* | -vxsim* | -vxworks* | -ebmon* | -hms* | -mvs* \ - | -clix* | -riscos* | -uniplus* | -iris* | -rtu* | -xenix* \ - | -hiux* | -386bsd* | -knetbsd* | -mirbsd* | -netbsd* \ - | -openbsd* | -solidbsd* \ - | -ekkobsd* | -kfreebsd* | -freebsd* | -riscix* | -lynxos* \ - | -bosx* | -nextstep* | -cxux* | -aout* | -elf* | -oabi* \ - | -ptx* | -coff* | -ecoff* | -winnt* | -domain* | -vsta* \ - | -udi* | -eabi* | -lites* | -ieee* | -go32* | -aux* \ - | -chorusos* | -chorusrdb* \ - | -cygwin* | -pe* | -psos* | -moss* | -proelf* | -rtems* \ - | -mingw32* | -linux-gnu* | -linux-newlib* | -linux-uclibc* \ - | -uxpv* | -beos* | -mpeix* | -udk* \ - | -interix* | -uwin* | -mks* | -rhapsody* | -darwin* | -opened* \ - | -openstep* | -oskit* | -conix* | -pw32* | -nonstopux* \ - | -storm-chaos* | -tops10* | -tenex* | -tops20* | -its* \ - | -os2* | -vos* | -palmos* | -uclinux* | -nucleus* \ - | -morphos* | -superux* | -rtmk* | -rtmk-nova* | -windiss* \ - | -powermax* | -dnix* | -nx6 | -nx7 | -sei* | -dragonfly* \ - | -skyos* | -haiku* | -rdos* | -toppers*) - # Remember, each alternative MUST END IN *, to match a version number. - ;; - -qnx*) - case $basic_machine in - x86-* | i*86-*) - ;; - *) - os=-nto$os - ;; - esac - ;; - -nto-qnx*) - ;; - -nto*) - os=`echo $os | sed -e 's|nto|nto-qnx|'` - ;; - -sim | -es1800* | -hms* | -xray | -os68k* | -none* | -v88r* \ - | -windows* | -osx | -abug | -netware* | -os9* | -beos* | -haiku* \ - | -macos* | -mpw* | -magic* | -mmixware* | -mon960* | -lnews*) - ;; - -mac*) - os=`echo $os | sed -e 's|mac|macos|'` - ;; - -linux-dietlibc) - os=-linux-dietlibc - ;; - -linux*) - os=`echo $os | sed -e 's|linux|linux-gnu|'` - ;; - -sunos5*) - os=`echo $os | sed -e 's|sunos5|solaris2|'` - ;; - -sunos6*) - os=`echo $os | sed -e 's|sunos6|solaris3|'` - ;; - -opened*) - os=-openedition - ;; - -os400*) - os=-os400 - ;; - -wince*) - os=-wince - ;; - -osfrose*) - os=-osfrose - ;; - -osf*) - os=-osf - ;; - -utek*) - os=-bsd - ;; - -dynix*) - os=-bsd - ;; - -acis*) - os=-aos - ;; - -atheos*) - os=-atheos - ;; - -syllable*) - os=-syllable - ;; - -386bsd) - os=-bsd - ;; - -ctix* | -uts*) - os=-sysv - ;; - -nova*) - os=-rtmk-nova - ;; - -ns2 ) - os=-nextstep2 - ;; - -nsk*) - os=-nsk - ;; - # Preserve the version number of sinix5. - -sinix5.*) - os=`echo $os | sed -e 's|sinix|sysv|'` - ;; - -sinix*) - os=-sysv4 - ;; - -tpf*) - os=-tpf - ;; - -triton*) - os=-sysv3 - ;; - -oss*) - os=-sysv3 - ;; - -svr4) - os=-sysv4 - ;; - -svr3) - os=-sysv3 - ;; - -sysvr4) - os=-sysv4 - ;; - # This must come after -sysvr4. - -sysv*) - ;; - -ose*) - os=-ose - ;; - -es1800*) - os=-ose - ;; - -xenix) - os=-xenix - ;; - -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*) - os=-mint - ;; - -aros*) - os=-aros - ;; - -kaos*) - os=-kaos - ;; - -zvmoe) - os=-zvmoe - ;; - -none) - ;; - *) - # Get rid of the `-' at the beginning of $os. - os=`echo $os | sed 's/[^-]*-//'` - echo Invalid configuration \`$1\': system \`$os\' not recognized 1>&2 - exit 1 - ;; -esac -else - -# Here we handle the default operating systems that come with various machines. -# The value should be what the vendor currently ships out the door with their -# machine or put another way, the most popular os provided with the machine. - -# Note that if you're going to try to match "-MANUFACTURER" here (say, -# "-sun"), then you have to tell the case statement up towards the top -# that MANUFACTURER isn't an operating system. Otherwise, code above -# will signal an error saying that MANUFACTURER isn't an operating -# system, and we'll never get to this point. - -case $basic_machine in - spu-*) - os=-elf - ;; - *-acorn) - os=-riscix1.2 - ;; - arm*-rebel) - os=-linux - ;; - arm*-semi) - os=-aout - ;; - c4x-* | tic4x-*) - os=-coff - ;; - # This must come before the *-dec entry. - pdp10-*) - os=-tops20 - ;; - pdp11-*) - os=-none - ;; - *-dec | vax-*) - os=-ultrix4.2 - ;; - m68*-apollo) - os=-domain - ;; - i386-sun) - os=-sunos4.0.2 - ;; - m68000-sun) - os=-sunos3 - # This also exists in the configure program, but was not the - # default. - # os=-sunos4 - ;; - m68*-cisco) - os=-aout - ;; - mips*-cisco) - os=-elf - ;; - mips*-*) - os=-elf - ;; - or32-*) - os=-coff - ;; - *-tti) # must be before sparc entry or we get the wrong os. - os=-sysv3 - ;; - sparc-* | *-sun) - os=-sunos4.1.1 - ;; - *-be) - os=-beos - ;; - *-haiku) - os=-haiku - ;; - *-ibm) - os=-aix - ;; - *-knuth) - os=-mmixware - ;; - *-wec) - os=-proelf - ;; - *-winbond) - os=-proelf - ;; - *-oki) - os=-proelf - ;; - *-hp) - os=-hpux - ;; - *-hitachi) - os=-hiux - ;; - i860-* | *-att | *-ncr | *-altos | *-motorola | *-convergent) - os=-sysv - ;; - *-cbm) - os=-amigaos - ;; - *-dg) - os=-dgux - ;; - *-dolphin) - os=-sysv3 - ;; - m68k-ccur) - os=-rtu - ;; - m88k-omron*) - os=-luna - ;; - *-next ) - os=-nextstep - ;; - *-sequent) - os=-ptx - ;; - *-crds) - os=-unos - ;; - *-ns) - os=-genix - ;; - i370-*) - os=-mvs - ;; - *-next) - os=-nextstep3 - ;; - *-gould) - os=-sysv - ;; - *-highlevel) - os=-bsd - ;; - *-encore) - os=-bsd - ;; - *-sgi) - os=-irix - ;; - *-siemens) - os=-sysv4 - ;; - *-masscomp) - os=-rtu - ;; - f30[01]-fujitsu | f700-fujitsu) - os=-uxpv - ;; - *-rom68k) - os=-coff - ;; - *-*bug) - os=-coff - ;; - *-apple) - os=-macos - ;; - *-atari*) - os=-mint - ;; - *) - os=-none - ;; -esac -fi - -# Here we handle the case where we know the os, and the CPU type, but not the -# manufacturer. We pick the logical manufacturer. -vendor=unknown -case $basic_machine in - *-unknown) - case $os in - -riscix*) - vendor=acorn - ;; - -sunos*) - vendor=sun - ;; - -aix*) - vendor=ibm - ;; - -beos*) - vendor=be - ;; - -hpux*) - vendor=hp - ;; - -mpeix*) - vendor=hp - ;; - -hiux*) - vendor=hitachi - ;; - -unos*) - vendor=crds - ;; - -dgux*) - vendor=dg - ;; - -luna*) - vendor=omron - ;; - -genix*) - vendor=ns - ;; - -mvs* | -opened*) - vendor=ibm - ;; - -os400*) - vendor=ibm - ;; - -ptx*) - vendor=sequent - ;; - -tpf*) - vendor=ibm - ;; - -vxsim* | -vxworks* | -windiss*) - vendor=wrs - ;; - -aux*) - vendor=apple - ;; - -hms*) - vendor=hitachi - ;; - -mpw* | -macos*) - vendor=apple - ;; - -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*) - vendor=atari - ;; - -vos*) - vendor=stratus - ;; - esac - basic_machine=`echo $basic_machine | sed "s/unknown/$vendor/"` - ;; -esac - -echo $basic_machine$os -exit - -# Local variables: -# eval: (add-hook 'write-file-hooks 'time-stamp) -# time-stamp-start: "timestamp='" -# time-stamp-format: "%:y-%02m-%02d" -# time-stamp-end: "'" -# End: diff --git a/configure b/configure --- a/configure +++ b/configure @@ -1,4291 +1,4426 @@ #! /bin/sh # Guess values for system-dependent variables and create Makefiles. -# Generated by GNU Autoconf 2.61 for Haskell directory package 1.0. -# -# Report bugs to . -# -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, -# 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. -# This configure script is free software; the Free Software Foundation -# gives unlimited permission to copy, distribute and modify it. -## --------------------- ## -## M4sh Initialization. ## -## --------------------- ## - -# Be more Bourne compatible -DUALCASE=1; export DUALCASE # for MKS sh -if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then - emulate sh - NULLCMD=: - # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which - # is contrary to our usage. Disable this feature. - alias -g '${1+"$@"}'='"$@"' - setopt NO_GLOB_SUBST -else - case `(set -o) 2>/dev/null` in - *posix*) set -o posix ;; -esac - -fi - - - - -# PATH needs CR -# Avoid depending upon Character Ranges. -as_cr_letters='abcdefghijklmnopqrstuvwxyz' -as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' -as_cr_Letters=$as_cr_letters$as_cr_LETTERS -as_cr_digits='0123456789' -as_cr_alnum=$as_cr_Letters$as_cr_digits - -# The user is always right. -if test "${PATH_SEPARATOR+set}" != set; then - echo "#! /bin/sh" >conf$$.sh - echo "exit 0" >>conf$$.sh - chmod +x conf$$.sh - if (PATH="/nonexistent;."; conf$$.sh) >/dev/null 2>&1; then - PATH_SEPARATOR=';' - else - PATH_SEPARATOR=: - fi - rm -f conf$$.sh -fi - -# Support unset when possible. -if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then - as_unset=unset -else - as_unset=false -fi - - -# IFS -# We need space, tab and new line, in precisely that order. Quoting is -# there to prevent editors from complaining about space-tab. -# (If _AS_PATH_WALK were called with IFS unset, it would disable word -# splitting by setting IFS to empty value.) -as_nl=' -' -IFS=" "" $as_nl" - -# Find who we are. Look in the path if we contain no directory separator. -case $0 in - *[\\/]* ) as_myself=$0 ;; - *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break -done -IFS=$as_save_IFS - - ;; -esac -# We did not find ourselves, most probably we were run as `sh COMMAND' -# in which case we are not to be found in the path. -if test "x$as_myself" = x; then - as_myself=$0 -fi -if test ! -f "$as_myself"; then - echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 - { (exit 1); exit 1; } -fi - -# Work around bugs in pre-3.0 UWIN ksh. -for as_var in ENV MAIL MAILPATH -do ($as_unset $as_var) >/dev/null 2>&1 && $as_unset $as_var -done -PS1='$ ' -PS2='> ' -PS4='+ ' - -# NLS nuisances. -for as_var in \ - LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \ - LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \ - LC_TELEPHONE LC_TIME -do - if (set +x; test -z "`(eval $as_var=C; export $as_var) 2>&1`"); then - eval $as_var=C; export $as_var - else - ($as_unset $as_var) >/dev/null 2>&1 && $as_unset $as_var - fi -done - -# Required to use basename. -if expr a : '\(a\)' >/dev/null 2>&1 && - test "X`expr 00001 : '.*\(...\)'`" = X001; then - as_expr=expr -else - as_expr=false -fi - -if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then - as_basename=basename -else - as_basename=false -fi - - -# Name of the executable. -as_me=`$as_basename -- "$0" || -$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ - X"$0" : 'X\(//\)$' \| \ - X"$0" : 'X\(/\)' \| . 2>/dev/null || -echo X/"$0" | - sed '/^.*\/\([^/][^/]*\)\/*$/{ - s//\1/ - q - } - /^X\/\(\/\/\)$/{ - s//\1/ - q - } - /^X\/\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - -# CDPATH. -$as_unset CDPATH - - -if test "x$CONFIG_SHELL" = x; then - if (eval ":") 2>/dev/null; then - as_have_required=yes -else - as_have_required=no -fi - - if test $as_have_required = yes && (eval ": -(as_func_return () { - (exit \$1) -} -as_func_success () { - as_func_return 0 -} -as_func_failure () { - as_func_return 1 -} -as_func_ret_success () { - return 0 -} -as_func_ret_failure () { - return 1 -} - -exitcode=0 -if as_func_success; then - : -else - exitcode=1 - echo as_func_success failed. -fi - -if as_func_failure; then - exitcode=1 - echo as_func_failure succeeded. -fi - -if as_func_ret_success; then - : -else - exitcode=1 - echo as_func_ret_success failed. -fi - -if as_func_ret_failure; then - exitcode=1 - echo as_func_ret_failure succeeded. -fi - -if ( set x; as_func_ret_success y && test x = \"\$1\" ); then - : -else - exitcode=1 - echo positional parameters were not saved. -fi - -test \$exitcode = 0) || { (exit 1); exit 1; } - -( - as_lineno_1=\$LINENO - as_lineno_2=\$LINENO - test \"x\$as_lineno_1\" != \"x\$as_lineno_2\" && - test \"x\`expr \$as_lineno_1 + 1\`\" = \"x\$as_lineno_2\") || { (exit 1); exit 1; } -") 2> /dev/null; then - : -else - as_candidate_shells= - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - case $as_dir in - /*) - for as_base in sh bash ksh sh5; do - as_candidate_shells="$as_candidate_shells $as_dir/$as_base" - done;; - esac -done -IFS=$as_save_IFS - - - for as_shell in $as_candidate_shells $SHELL; do - # Try only shells that exist, to save several forks. - if { test -f "$as_shell" || test -f "$as_shell.exe"; } && - { ("$as_shell") 2> /dev/null <<\_ASEOF -if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then - emulate sh - NULLCMD=: - # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which - # is contrary to our usage. Disable this feature. - alias -g '${1+"$@"}'='"$@"' - setopt NO_GLOB_SUBST -else - case `(set -o) 2>/dev/null` in - *posix*) set -o posix ;; -esac - -fi - - -: -_ASEOF -}; then - CONFIG_SHELL=$as_shell - as_have_required=yes - if { "$as_shell" 2> /dev/null <<\_ASEOF -if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then - emulate sh - NULLCMD=: - # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which - # is contrary to our usage. Disable this feature. - alias -g '${1+"$@"}'='"$@"' - setopt NO_GLOB_SUBST -else - case `(set -o) 2>/dev/null` in - *posix*) set -o posix ;; -esac - -fi - - -: -(as_func_return () { - (exit $1) -} -as_func_success () { - as_func_return 0 -} -as_func_failure () { - as_func_return 1 -} -as_func_ret_success () { - return 0 -} -as_func_ret_failure () { - return 1 -} - -exitcode=0 -if as_func_success; then - : -else - exitcode=1 - echo as_func_success failed. -fi - -if as_func_failure; then - exitcode=1 - echo as_func_failure succeeded. -fi - -if as_func_ret_success; then - : -else - exitcode=1 - echo as_func_ret_success failed. -fi - -if as_func_ret_failure; then - exitcode=1 - echo as_func_ret_failure succeeded. -fi - -if ( set x; as_func_ret_success y && test x = "$1" ); then - : -else - exitcode=1 - echo positional parameters were not saved. -fi - -test $exitcode = 0) || { (exit 1); exit 1; } - -( - as_lineno_1=$LINENO - as_lineno_2=$LINENO - test "x$as_lineno_1" != "x$as_lineno_2" && - test "x`expr $as_lineno_1 + 1`" = "x$as_lineno_2") || { (exit 1); exit 1; } - -_ASEOF -}; then - break -fi - -fi - - done - - if test "x$CONFIG_SHELL" != x; then - for as_var in BASH_ENV ENV - do ($as_unset $as_var) >/dev/null 2>&1 && $as_unset $as_var - done - export CONFIG_SHELL - exec "$CONFIG_SHELL" "$as_myself" ${1+"$@"} -fi - - - if test $as_have_required = no; then - echo This script requires a shell more modern than all the - echo shells that I found on your system. Please install a - echo modern shell, or manually run the script under such a - echo shell if you do have one. - { (exit 1); exit 1; } -fi - - -fi - -fi - - - -(eval "as_func_return () { - (exit \$1) -} -as_func_success () { - as_func_return 0 -} -as_func_failure () { - as_func_return 1 -} -as_func_ret_success () { - return 0 -} -as_func_ret_failure () { - return 1 -} - -exitcode=0 -if as_func_success; then - : -else - exitcode=1 - echo as_func_success failed. -fi - -if as_func_failure; then - exitcode=1 - echo as_func_failure succeeded. -fi - -if as_func_ret_success; then - : -else - exitcode=1 - echo as_func_ret_success failed. -fi - -if as_func_ret_failure; then - exitcode=1 - echo as_func_ret_failure succeeded. -fi - -if ( set x; as_func_ret_success y && test x = \"\$1\" ); then - : -else - exitcode=1 - echo positional parameters were not saved. -fi - -test \$exitcode = 0") || { - echo No shell found that supports shell functions. - echo Please tell autoconf@gnu.org about your system, - echo including any error possibly output before this - echo message -} - - - - as_lineno_1=$LINENO - as_lineno_2=$LINENO - test "x$as_lineno_1" != "x$as_lineno_2" && - test "x`expr $as_lineno_1 + 1`" = "x$as_lineno_2" || { - - # Create $as_me.lineno as a copy of $as_myself, but with $LINENO - # uniformly replaced by the line number. The first 'sed' inserts a - # line-number line after each line using $LINENO; the second 'sed' - # does the real work. The second script uses 'N' to pair each - # line-number line with the line containing $LINENO, and appends - # trailing '-' during substitution so that $LINENO is not a special - # case at line end. - # (Raja R Harinath suggested sed '=', and Paul Eggert wrote the - # scripts with optimization help from Paolo Bonzini. Blame Lee - # E. McMahon (1931-1989) for sed's syntax. :-) - sed -n ' - p - /[$]LINENO/= - ' <$as_myself | - sed ' - s/[$]LINENO.*/&-/ - t lineno - b - :lineno - N - :loop - s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ - t loop - s/-\n.*// - ' >$as_me.lineno && - chmod +x "$as_me.lineno" || - { echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2 - { (exit 1); exit 1; }; } - - # Don't try to exec as it changes $[0], causing all sort of problems - # (the dirname of $[0] is not the place where we might find the - # original and so on. Autoconf is especially sensitive to this). - . "./$as_me.lineno" - # Exit status is that of the last command. - exit -} - - -if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then - as_dirname=dirname -else - as_dirname=false -fi - -ECHO_C= ECHO_N= ECHO_T= -case `echo -n x` in --n*) - case `echo 'x\c'` in - *c*) ECHO_T=' ';; # ECHO_T is single tab character. - *) ECHO_C='\c';; - esac;; -*) - ECHO_N='-n';; -esac - -if expr a : '\(a\)' >/dev/null 2>&1 && - test "X`expr 00001 : '.*\(...\)'`" = X001; then - as_expr=expr -else - as_expr=false -fi - -rm -f conf$$ conf$$.exe conf$$.file -if test -d conf$$.dir; then - rm -f conf$$.dir/conf$$.file -else - rm -f conf$$.dir - mkdir conf$$.dir -fi -echo >conf$$.file -if ln -s conf$$.file conf$$ 2>/dev/null; then - as_ln_s='ln -s' - # ... but there are two gotchas: - # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. - # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. - # In both cases, we have to default to `cp -p'. - ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || - as_ln_s='cp -p' -elif ln conf$$.file conf$$ 2>/dev/null; then - as_ln_s=ln -else - as_ln_s='cp -p' -fi -rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file -rmdir conf$$.dir 2>/dev/null - -if mkdir -p . 2>/dev/null; then - as_mkdir_p=: -else - test -d ./-p && rmdir ./-p - as_mkdir_p=false -fi - -if test -x / >/dev/null 2>&1; then - as_test_x='test -x' -else - if ls -dL / >/dev/null 2>&1; then - as_ls_L_option=L - else - as_ls_L_option= - fi - as_test_x=' - eval sh -c '\'' - if test -d "$1"; then - test -d "$1/."; - else - case $1 in - -*)set "./$1";; - esac; - case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in - ???[sx]*):;;*)false;;esac;fi - '\'' sh - ' -fi -as_executable_p=$as_test_x - -# Sed expression to map a string onto a valid CPP name. -as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" - -# Sed expression to map a string onto a valid variable name. -as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" - - - -exec 7<&0 &1 - -# Name of the host. -# hostname on some systems (SVR3.2, Linux) returns a bogus exit status, -# so uname gets run too. -ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q` - -# -# Initializations. -# -ac_default_prefix=/usr/local -ac_clean_files= -ac_config_libobj_dir=. -LIBOBJS= -cross_compiling=no -subdirs= -MFLAGS= -MAKEFLAGS= -SHELL=${CONFIG_SHELL-/bin/sh} - -# Identity of this package. -PACKAGE_NAME='Haskell directory package' -PACKAGE_TARNAME='directory' -PACKAGE_VERSION='1.0' -PACKAGE_STRING='Haskell directory package 1.0' -PACKAGE_BUGREPORT='libraries@haskell.org' - -ac_unique_file="include/HsDirectory.h" -# Factoring default headers for most tests. -ac_includes_default="\ -#include -#ifdef HAVE_SYS_TYPES_H -# include -#endif -#ifdef HAVE_SYS_STAT_H -# include -#endif -#ifdef STDC_HEADERS -# include -# include -#else -# ifdef HAVE_STDLIB_H -# include -# endif -#endif -#ifdef HAVE_STRING_H -# if !defined STDC_HEADERS && defined HAVE_MEMORY_H -# include -# endif -# include -#endif -#ifdef HAVE_STRINGS_H -# include -#endif -#ifdef HAVE_INTTYPES_H -# include -#endif -#ifdef HAVE_STDINT_H -# include -#endif -#ifdef HAVE_UNISTD_H -# include -#endif" - -ac_subst_vars='SHELL -PATH_SEPARATOR -PACKAGE_NAME -PACKAGE_TARNAME -PACKAGE_VERSION -PACKAGE_STRING -PACKAGE_BUGREPORT -exec_prefix -prefix -program_transform_name -bindir -sbindir -libexecdir -datarootdir -datadir -sysconfdir -sharedstatedir -localstatedir -includedir -oldincludedir -docdir -infodir -htmldir -dvidir -pdfdir -psdir -libdir -localedir -mandir -DEFS -ECHO_C -ECHO_N -ECHO_T -LIBS -build_alias -host_alias -target_alias -CC -CFLAGS -LDFLAGS -CPPFLAGS -ac_ct_CC -EXEEXT -OBJEXT -CPP -GREP -EGREP -LIBOBJS -LTLIBOBJS' -ac_subst_files='' - ac_precious_vars='build_alias -host_alias -target_alias -CC -CFLAGS -LDFLAGS -LIBS -CPPFLAGS -CPP' - - -# Initialize some variables set by options. -ac_init_help= -ac_init_version=false -# The variables have the same names as the options, with -# dashes changed to underlines. -cache_file=/dev/null -exec_prefix=NONE -no_create= -no_recursion= -prefix=NONE -program_prefix=NONE -program_suffix=NONE -program_transform_name=s,x,x, -silent= -site= -srcdir= -verbose= -x_includes=NONE -x_libraries=NONE - -# Installation directory options. -# These are left unexpanded so users can "make install exec_prefix=/foo" -# and all the variables that are supposed to be based on exec_prefix -# by default will actually change. -# Use braces instead of parens because sh, perl, etc. also accept them. -# (The list follows the same order as the GNU Coding Standards.) -bindir='${exec_prefix}/bin' -sbindir='${exec_prefix}/sbin' -libexecdir='${exec_prefix}/libexec' -datarootdir='${prefix}/share' -datadir='${datarootdir}' -sysconfdir='${prefix}/etc' -sharedstatedir='${prefix}/com' -localstatedir='${prefix}/var' -includedir='${prefix}/include' -oldincludedir='/usr/include' -docdir='${datarootdir}/doc/${PACKAGE_TARNAME}' -infodir='${datarootdir}/info' -htmldir='${docdir}' -dvidir='${docdir}' -pdfdir='${docdir}' -psdir='${docdir}' -libdir='${exec_prefix}/lib' -localedir='${datarootdir}/locale' -mandir='${datarootdir}/man' - -ac_prev= -ac_dashdash= -for ac_option -do - # If the previous option needs an argument, assign it. - if test -n "$ac_prev"; then - eval $ac_prev=\$ac_option - ac_prev= - continue - fi - - case $ac_option in - *=*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;; - *) ac_optarg=yes ;; - esac - - # Accept the important Cygnus configure options, so we can diagnose typos. - - case $ac_dashdash$ac_option in - --) - ac_dashdash=yes ;; - - -bindir | --bindir | --bindi | --bind | --bin | --bi) - ac_prev=bindir ;; - -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) - bindir=$ac_optarg ;; - - -build | --build | --buil | --bui | --bu) - ac_prev=build_alias ;; - -build=* | --build=* | --buil=* | --bui=* | --bu=*) - build_alias=$ac_optarg ;; - - -cache-file | --cache-file | --cache-fil | --cache-fi \ - | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) - ac_prev=cache_file ;; - -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ - | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) - cache_file=$ac_optarg ;; - - --config-cache | -C) - cache_file=config.cache ;; - - -datadir | --datadir | --datadi | --datad) - ac_prev=datadir ;; - -datadir=* | --datadir=* | --datadi=* | --datad=*) - datadir=$ac_optarg ;; - - -datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \ - | --dataroo | --dataro | --datar) - ac_prev=datarootdir ;; - -datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \ - | --dataroot=* | --dataroo=* | --dataro=* | --datar=*) - datarootdir=$ac_optarg ;; - - -disable-* | --disable-*) - ac_feature=`expr "x$ac_option" : 'x-*disable-\(.*\)'` - # Reject names that are not valid shell variable names. - expr "x$ac_feature" : ".*[^-._$as_cr_alnum]" >/dev/null && - { echo "$as_me: error: invalid feature name: $ac_feature" >&2 - { (exit 1); exit 1; }; } - ac_feature=`echo $ac_feature | sed 's/[-.]/_/g'` - eval enable_$ac_feature=no ;; - - -docdir | --docdir | --docdi | --doc | --do) - ac_prev=docdir ;; - -docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*) - docdir=$ac_optarg ;; - - -dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv) - ac_prev=dvidir ;; - -dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*) - dvidir=$ac_optarg ;; - - -enable-* | --enable-*) - ac_feature=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` - # Reject names that are not valid shell variable names. - expr "x$ac_feature" : ".*[^-._$as_cr_alnum]" >/dev/null && - { echo "$as_me: error: invalid feature name: $ac_feature" >&2 - { (exit 1); exit 1; }; } - ac_feature=`echo $ac_feature | sed 's/[-.]/_/g'` - eval enable_$ac_feature=\$ac_optarg ;; - - -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ - | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ - | --exec | --exe | --ex) - ac_prev=exec_prefix ;; - -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ - | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ - | --exec=* | --exe=* | --ex=*) - exec_prefix=$ac_optarg ;; - - -gas | --gas | --ga | --g) - # Obsolete; use --with-gas. - with_gas=yes ;; - - -help | --help | --hel | --he | -h) - ac_init_help=long ;; - -help=r* | --help=r* | --hel=r* | --he=r* | -hr*) - ac_init_help=recursive ;; - -help=s* | --help=s* | --hel=s* | --he=s* | -hs*) - ac_init_help=short ;; - - -host | --host | --hos | --ho) - ac_prev=host_alias ;; - -host=* | --host=* | --hos=* | --ho=*) - host_alias=$ac_optarg ;; - - -htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht) - ac_prev=htmldir ;; - -htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \ - | --ht=*) - htmldir=$ac_optarg ;; - - -includedir | --includedir | --includedi | --included | --include \ - | --includ | --inclu | --incl | --inc) - ac_prev=includedir ;; - -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ - | --includ=* | --inclu=* | --incl=* | --inc=*) - includedir=$ac_optarg ;; - - -infodir | --infodir | --infodi | --infod | --info | --inf) - ac_prev=infodir ;; - -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) - infodir=$ac_optarg ;; - - -libdir | --libdir | --libdi | --libd) - ac_prev=libdir ;; - -libdir=* | --libdir=* | --libdi=* | --libd=*) - libdir=$ac_optarg ;; - - -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ - | --libexe | --libex | --libe) - ac_prev=libexecdir ;; - -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ - | --libexe=* | --libex=* | --libe=*) - libexecdir=$ac_optarg ;; - - -localedir | --localedir | --localedi | --localed | --locale) - ac_prev=localedir ;; - -localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*) - localedir=$ac_optarg ;; - - -localstatedir | --localstatedir | --localstatedi | --localstated \ - | --localstate | --localstat | --localsta | --localst | --locals) - ac_prev=localstatedir ;; - -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ - | --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*) - localstatedir=$ac_optarg ;; - - -mandir | --mandir | --mandi | --mand | --man | --ma | --m) - ac_prev=mandir ;; - -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) - mandir=$ac_optarg ;; - - -nfp | --nfp | --nf) - # Obsolete; use --without-fp. - with_fp=no ;; - - -no-create | --no-create | --no-creat | --no-crea | --no-cre \ - | --no-cr | --no-c | -n) - no_create=yes ;; - - -no-recursion | --no-recursion | --no-recursio | --no-recursi \ - | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) - no_recursion=yes ;; - - -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ - | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ - | --oldin | --oldi | --old | --ol | --o) - ac_prev=oldincludedir ;; - -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ - | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ - | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) - oldincludedir=$ac_optarg ;; - - -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) - ac_prev=prefix ;; - -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) - prefix=$ac_optarg ;; - - -program-prefix | --program-prefix | --program-prefi | --program-pref \ - | --program-pre | --program-pr | --program-p) - ac_prev=program_prefix ;; - -program-prefix=* | --program-prefix=* | --program-prefi=* \ - | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) - program_prefix=$ac_optarg ;; - - -program-suffix | --program-suffix | --program-suffi | --program-suff \ - | --program-suf | --program-su | --program-s) - ac_prev=program_suffix ;; - -program-suffix=* | --program-suffix=* | --program-suffi=* \ - | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) - program_suffix=$ac_optarg ;; - - -program-transform-name | --program-transform-name \ - | --program-transform-nam | --program-transform-na \ - | --program-transform-n | --program-transform- \ - | --program-transform | --program-transfor \ - | --program-transfo | --program-transf \ - | --program-trans | --program-tran \ - | --progr-tra | --program-tr | --program-t) - ac_prev=program_transform_name ;; - -program-transform-name=* | --program-transform-name=* \ - | --program-transform-nam=* | --program-transform-na=* \ - | --program-transform-n=* | --program-transform-=* \ - | --program-transform=* | --program-transfor=* \ - | --program-transfo=* | --program-transf=* \ - | --program-trans=* | --program-tran=* \ - | --progr-tra=* | --program-tr=* | --program-t=*) - program_transform_name=$ac_optarg ;; - - -pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd) - ac_prev=pdfdir ;; - -pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*) - pdfdir=$ac_optarg ;; - - -psdir | --psdir | --psdi | --psd | --ps) - ac_prev=psdir ;; - -psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*) - psdir=$ac_optarg ;; - - -q | -quiet | --quiet | --quie | --qui | --qu | --q \ - | -silent | --silent | --silen | --sile | --sil) - silent=yes ;; - - -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) - ac_prev=sbindir ;; - -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ - | --sbi=* | --sb=*) - sbindir=$ac_optarg ;; - - -sharedstatedir | --sharedstatedir | --sharedstatedi \ - | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ - | --sharedst | --shareds | --shared | --share | --shar \ - | --sha | --sh) - ac_prev=sharedstatedir ;; - -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ - | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ - | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ - | --sha=* | --sh=*) - sharedstatedir=$ac_optarg ;; - - -site | --site | --sit) - ac_prev=site ;; - -site=* | --site=* | --sit=*) - site=$ac_optarg ;; - - -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) - ac_prev=srcdir ;; - -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) - srcdir=$ac_optarg ;; - - -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ - | --syscon | --sysco | --sysc | --sys | --sy) - ac_prev=sysconfdir ;; - -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ - | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) - sysconfdir=$ac_optarg ;; - - -target | --target | --targe | --targ | --tar | --ta | --t) - ac_prev=target_alias ;; - -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) - target_alias=$ac_optarg ;; - - -v | -verbose | --verbose | --verbos | --verbo | --verb) - verbose=yes ;; - - -version | --version | --versio | --versi | --vers | -V) - ac_init_version=: ;; - - -with-* | --with-*) - ac_package=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` - # Reject names that are not valid shell variable names. - expr "x$ac_package" : ".*[^-._$as_cr_alnum]" >/dev/null && - { echo "$as_me: error: invalid package name: $ac_package" >&2 - { (exit 1); exit 1; }; } - ac_package=`echo $ac_package | sed 's/[-.]/_/g'` - eval with_$ac_package=\$ac_optarg ;; - - -without-* | --without-*) - ac_package=`expr "x$ac_option" : 'x-*without-\(.*\)'` - # Reject names that are not valid shell variable names. - expr "x$ac_package" : ".*[^-._$as_cr_alnum]" >/dev/null && - { echo "$as_me: error: invalid package name: $ac_package" >&2 - { (exit 1); exit 1; }; } - ac_package=`echo $ac_package | sed 's/[-.]/_/g'` - eval with_$ac_package=no ;; - - --x) - # Obsolete; use --with-x. - with_x=yes ;; - - -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ - | --x-incl | --x-inc | --x-in | --x-i) - ac_prev=x_includes ;; - -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ - | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) - x_includes=$ac_optarg ;; - - -x-libraries | --x-libraries | --x-librarie | --x-librari \ - | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) - ac_prev=x_libraries ;; - -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ - | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) - x_libraries=$ac_optarg ;; - - -*) { echo "$as_me: error: unrecognized option: $ac_option -Try \`$0 --help' for more information." >&2 - { (exit 1); exit 1; }; } - ;; - - *=*) - ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='` - # Reject names that are not valid shell variable names. - expr "x$ac_envvar" : ".*[^_$as_cr_alnum]" >/dev/null && - { echo "$as_me: error: invalid variable name: $ac_envvar" >&2 - { (exit 1); exit 1; }; } - eval $ac_envvar=\$ac_optarg - export $ac_envvar ;; - - *) - # FIXME: should be removed in autoconf 3.0. - echo "$as_me: WARNING: you should use --build, --host, --target" >&2 - expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null && - echo "$as_me: WARNING: invalid host type: $ac_option" >&2 - : ${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option} - ;; - - esac -done - -if test -n "$ac_prev"; then - ac_option=--`echo $ac_prev | sed 's/_/-/g'` - { echo "$as_me: error: missing argument to $ac_option" >&2 - { (exit 1); exit 1; }; } -fi - -# Be sure to have absolute directory names. -for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \ - datadir sysconfdir sharedstatedir localstatedir includedir \ - oldincludedir docdir infodir htmldir dvidir pdfdir psdir \ - libdir localedir mandir -do - eval ac_val=\$$ac_var - case $ac_val in - [\\/$]* | ?:[\\/]* ) continue;; - NONE | '' ) case $ac_var in *prefix ) continue;; esac;; - esac - { echo "$as_me: error: expected an absolute directory name for --$ac_var: $ac_val" >&2 - { (exit 1); exit 1; }; } -done - -# There might be people who depend on the old broken behavior: `$host' -# used to hold the argument of --host etc. -# FIXME: To remove some day. -build=$build_alias -host=$host_alias -target=$target_alias - -# FIXME: To remove some day. -if test "x$host_alias" != x; then - if test "x$build_alias" = x; then - cross_compiling=maybe - echo "$as_me: WARNING: If you wanted to set the --build type, don't use --host. - If a cross compiler is detected then cross compile mode will be used." >&2 - elif test "x$build_alias" != "x$host_alias"; then - cross_compiling=yes - fi -fi - -ac_tool_prefix= -test -n "$host_alias" && ac_tool_prefix=$host_alias- - -test "$silent" = yes && exec 6>/dev/null - - -ac_pwd=`pwd` && test -n "$ac_pwd" && -ac_ls_di=`ls -di .` && -ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` || - { echo "$as_me: error: Working directory cannot be determined" >&2 - { (exit 1); exit 1; }; } -test "X$ac_ls_di" = "X$ac_pwd_ls_di" || - { echo "$as_me: error: pwd does not report name of working directory" >&2 - { (exit 1); exit 1; }; } - - -# Find the source files, if location was not specified. -if test -z "$srcdir"; then - ac_srcdir_defaulted=yes - # Try the directory containing this script, then the parent directory. - ac_confdir=`$as_dirname -- "$0" || -$as_expr X"$0" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$0" : 'X\(//\)[^/]' \| \ - X"$0" : 'X\(//\)$' \| \ - X"$0" : 'X\(/\)' \| . 2>/dev/null || -echo X"$0" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ - s//\1/ - q - } - /^X\(\/\/\)[^/].*/{ - s//\1/ - q - } - /^X\(\/\/\)$/{ - s//\1/ - q - } - /^X\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - srcdir=$ac_confdir - if test ! -r "$srcdir/$ac_unique_file"; then - srcdir=.. - fi -else - ac_srcdir_defaulted=no -fi -if test ! -r "$srcdir/$ac_unique_file"; then - test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .." - { echo "$as_me: error: cannot find sources ($ac_unique_file) in $srcdir" >&2 - { (exit 1); exit 1; }; } -fi -ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work" -ac_abs_confdir=`( - cd "$srcdir" && test -r "./$ac_unique_file" || { echo "$as_me: error: $ac_msg" >&2 - { (exit 1); exit 1; }; } - pwd)` -# When building in place, set srcdir=. -if test "$ac_abs_confdir" = "$ac_pwd"; then - srcdir=. -fi -# Remove unnecessary trailing slashes from srcdir. -# Double slashes in file names in object file debugging info -# mess up M-x gdb in Emacs. -case $srcdir in -*/) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;; -esac -for ac_var in $ac_precious_vars; do - eval ac_env_${ac_var}_set=\${${ac_var}+set} - eval ac_env_${ac_var}_value=\$${ac_var} - eval ac_cv_env_${ac_var}_set=\${${ac_var}+set} - eval ac_cv_env_${ac_var}_value=\$${ac_var} -done - -# -# Report the --help message. -# -if test "$ac_init_help" = "long"; then - # Omit some internal or obsolete options to make the list less imposing. - # This message is too long to be a string in the A/UX 3.1 sh. - cat <<_ACEOF -\`configure' configures Haskell directory package 1.0 to adapt to many kinds of systems. - -Usage: $0 [OPTION]... [VAR=VALUE]... - -To assign environment variables (e.g., CC, CFLAGS...), specify them as -VAR=VALUE. See below for descriptions of some of the useful variables. - -Defaults for the options are specified in brackets. - -Configuration: - -h, --help display this help and exit - --help=short display options specific to this package - --help=recursive display the short help of all the included packages - -V, --version display version information and exit - -q, --quiet, --silent do not print \`checking...' messages - --cache-file=FILE cache test results in FILE [disabled] - -C, --config-cache alias for \`--cache-file=config.cache' - -n, --no-create do not create output files - --srcdir=DIR find the sources in DIR [configure dir or \`..'] - -Installation directories: - --prefix=PREFIX install architecture-independent files in PREFIX - [$ac_default_prefix] - --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX - [PREFIX] - -By default, \`make install' will install all the files in -\`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify -an installation prefix other than \`$ac_default_prefix' using \`--prefix', -for instance \`--prefix=\$HOME'. - -For better control, use the options below. - -Fine tuning of the installation directories: - --bindir=DIR user executables [EPREFIX/bin] - --sbindir=DIR system admin executables [EPREFIX/sbin] - --libexecdir=DIR program executables [EPREFIX/libexec] - --sysconfdir=DIR read-only single-machine data [PREFIX/etc] - --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com] - --localstatedir=DIR modifiable single-machine data [PREFIX/var] - --libdir=DIR object code libraries [EPREFIX/lib] - --includedir=DIR C header files [PREFIX/include] - --oldincludedir=DIR C header files for non-gcc [/usr/include] - --datarootdir=DIR read-only arch.-independent data root [PREFIX/share] - --datadir=DIR read-only architecture-independent data [DATAROOTDIR] - --infodir=DIR info documentation [DATAROOTDIR/info] - --localedir=DIR locale-dependent data [DATAROOTDIR/locale] - --mandir=DIR man documentation [DATAROOTDIR/man] - --docdir=DIR documentation root [DATAROOTDIR/doc/directory] - --htmldir=DIR html documentation [DOCDIR] - --dvidir=DIR dvi documentation [DOCDIR] - --pdfdir=DIR pdf documentation [DOCDIR] - --psdir=DIR ps documentation [DOCDIR] -_ACEOF - - cat <<\_ACEOF -_ACEOF -fi - -if test -n "$ac_init_help"; then - case $ac_init_help in - short | recursive ) echo "Configuration of Haskell directory package 1.0:";; - esac - cat <<\_ACEOF - -Optional Packages: - --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] - --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) -C compiler - -Some influential environment variables: - CC C compiler command - CFLAGS C compiler flags - LDFLAGS linker flags, e.g. -L if you have libraries in a - nonstandard directory - LIBS libraries to pass to the linker, e.g. -l - CPPFLAGS C/C++/Objective C preprocessor flags, e.g. -I if - you have headers in a nonstandard directory - CPP C preprocessor - -Use these variables to override the choices made by `configure' or to help -it to find libraries and programs with nonstandard names/locations. - -Report bugs to . -_ACEOF -ac_status=$? -fi - -if test "$ac_init_help" = "recursive"; then - # If there are subdirs, report their specific --help. - for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue - test -d "$ac_dir" || continue - ac_builddir=. - -case "$ac_dir" in -.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; -*) - ac_dir_suffix=/`echo "$ac_dir" | sed 's,^\.[\\/],,'` - # A ".." for each directory in $ac_dir_suffix. - ac_top_builddir_sub=`echo "$ac_dir_suffix" | sed 's,/[^\\/]*,/..,g;s,/,,'` - case $ac_top_builddir_sub in - "") ac_top_builddir_sub=. ac_top_build_prefix= ;; - *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; - esac ;; -esac -ac_abs_top_builddir=$ac_pwd -ac_abs_builddir=$ac_pwd$ac_dir_suffix -# for backward compatibility: -ac_top_builddir=$ac_top_build_prefix - -case $srcdir in - .) # We are building in place. - ac_srcdir=. - ac_top_srcdir=$ac_top_builddir_sub - ac_abs_top_srcdir=$ac_pwd ;; - [\\/]* | ?:[\\/]* ) # Absolute name. - ac_srcdir=$srcdir$ac_dir_suffix; - ac_top_srcdir=$srcdir - ac_abs_top_srcdir=$srcdir ;; - *) # Relative name. - ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix - ac_top_srcdir=$ac_top_build_prefix$srcdir - ac_abs_top_srcdir=$ac_pwd/$srcdir ;; -esac -ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix - - cd "$ac_dir" || { ac_status=$?; continue; } - # Check for guested configure. - if test -f "$ac_srcdir/configure.gnu"; then - echo && - $SHELL "$ac_srcdir/configure.gnu" --help=recursive - elif test -f "$ac_srcdir/configure"; then - echo && - $SHELL "$ac_srcdir/configure" --help=recursive - else - echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2 - fi || ac_status=$? - cd "$ac_pwd" || { ac_status=$?; break; } - done -fi - -test -n "$ac_init_help" && exit $ac_status -if $ac_init_version; then - cat <<\_ACEOF -Haskell directory package configure 1.0 -generated by GNU Autoconf 2.61 - -Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, -2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. -This configure script is free software; the Free Software Foundation -gives unlimited permission to copy, distribute and modify it. -_ACEOF - exit -fi -cat >config.log <<_ACEOF -This file contains any messages produced by compilers while -running configure, to aid debugging if configure makes a mistake. - -It was created by Haskell directory package $as_me 1.0, which was -generated by GNU Autoconf 2.61. Invocation command line was - - $ $0 $@ - -_ACEOF -exec 5>>config.log -{ -cat <<_ASUNAME -## --------- ## -## Platform. ## -## --------- ## - -hostname = `(hostname || uname -n) 2>/dev/null | sed 1q` -uname -m = `(uname -m) 2>/dev/null || echo unknown` -uname -r = `(uname -r) 2>/dev/null || echo unknown` -uname -s = `(uname -s) 2>/dev/null || echo unknown` -uname -v = `(uname -v) 2>/dev/null || echo unknown` - -/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown` -/bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown` - -/bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` -/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` -/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` -/usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown` -/bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` -/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` -/bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` - -_ASUNAME - -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - echo "PATH: $as_dir" -done -IFS=$as_save_IFS - -} >&5 - -cat >&5 <<_ACEOF - - -## ----------- ## -## Core tests. ## -## ----------- ## - -_ACEOF - - -# Keep a trace of the command line. -# Strip out --no-create and --no-recursion so they do not pile up. -# Strip out --silent because we don't want to record it for future runs. -# Also quote any args containing shell meta-characters. -# Make two passes to allow for proper duplicate-argument suppression. -ac_configure_args= -ac_configure_args0= -ac_configure_args1= -ac_must_keep_next=false -for ac_pass in 1 2 -do - for ac_arg - do - case $ac_arg in - -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;; - -q | -quiet | --quiet | --quie | --qui | --qu | --q \ - | -silent | --silent | --silen | --sile | --sil) - continue ;; - *\'*) - ac_arg=`echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; - esac - case $ac_pass in - 1) ac_configure_args0="$ac_configure_args0 '$ac_arg'" ;; - 2) - ac_configure_args1="$ac_configure_args1 '$ac_arg'" - if test $ac_must_keep_next = true; then - ac_must_keep_next=false # Got value, back to normal. - else - case $ac_arg in - *=* | --config-cache | -C | -disable-* | --disable-* \ - | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \ - | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \ - | -with-* | --with-* | -without-* | --without-* | --x) - case "$ac_configure_args0 " in - "$ac_configure_args1"*" '$ac_arg' "* ) continue ;; - esac - ;; - -* ) ac_must_keep_next=true ;; - esac - fi - ac_configure_args="$ac_configure_args '$ac_arg'" - ;; - esac - done -done -$as_unset ac_configure_args0 || test "${ac_configure_args0+set}" != set || { ac_configure_args0=; export ac_configure_args0; } -$as_unset ac_configure_args1 || test "${ac_configure_args1+set}" != set || { ac_configure_args1=; export ac_configure_args1; } - -# When interrupted or exit'd, cleanup temporary files, and complete -# config.log. We remove comments because anyway the quotes in there -# would cause problems or look ugly. -# WARNING: Use '\'' to represent an apostrophe within the trap. -# WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug. -trap 'exit_status=$? - # Save into config.log some information that might help in debugging. - { - echo - - cat <<\_ASBOX -## ---------------- ## -## Cache variables. ## -## ---------------- ## -_ASBOX - echo - # The following way of writing the cache mishandles newlines in values, -( - for ac_var in `(set) 2>&1 | sed -n '\''s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'\''`; do - eval ac_val=\$$ac_var - case $ac_val in #( - *${as_nl}*) - case $ac_var in #( - *_cv_*) { echo "$as_me:$LINENO: WARNING: Cache variable $ac_var contains a newline." >&5 -echo "$as_me: WARNING: Cache variable $ac_var contains a newline." >&2;} ;; - esac - case $ac_var in #( - _ | IFS | as_nl) ;; #( - *) $as_unset $ac_var ;; - esac ;; - esac - done - (set) 2>&1 | - case $as_nl`(ac_space='\'' '\''; set) 2>&1` in #( - *${as_nl}ac_space=\ *) - sed -n \ - "s/'\''/'\''\\\\'\'''\''/g; - s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\''\\2'\''/p" - ;; #( - *) - sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" - ;; - esac | - sort -) - echo - - cat <<\_ASBOX -## ----------------- ## -## Output variables. ## -## ----------------- ## -_ASBOX - echo - for ac_var in $ac_subst_vars - do - eval ac_val=\$$ac_var - case $ac_val in - *\'\''*) ac_val=`echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; - esac - echo "$ac_var='\''$ac_val'\''" - done | sort - echo - - if test -n "$ac_subst_files"; then - cat <<\_ASBOX -## ------------------- ## -## File substitutions. ## -## ------------------- ## -_ASBOX - echo - for ac_var in $ac_subst_files - do - eval ac_val=\$$ac_var - case $ac_val in - *\'\''*) ac_val=`echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; - esac - echo "$ac_var='\''$ac_val'\''" - done | sort - echo - fi - - if test -s confdefs.h; then - cat <<\_ASBOX -## ----------- ## -## confdefs.h. ## -## ----------- ## -_ASBOX - echo - cat confdefs.h - echo - fi - test "$ac_signal" != 0 && - echo "$as_me: caught signal $ac_signal" - echo "$as_me: exit $exit_status" - } >&5 - rm -f core *.core core.conftest.* && - rm -f -r conftest* confdefs* conf$$* $ac_clean_files && - exit $exit_status -' 0 -for ac_signal in 1 2 13 15; do - trap 'ac_signal='$ac_signal'; { (exit 1); exit 1; }' $ac_signal -done -ac_signal=0 - -# confdefs.h avoids OS command line length limits that DEFS can exceed. -rm -f -r conftest* confdefs.h - -# Predefined preprocessor variables. - -cat >>confdefs.h <<_ACEOF -#define PACKAGE_NAME "$PACKAGE_NAME" -_ACEOF - - -cat >>confdefs.h <<_ACEOF -#define PACKAGE_TARNAME "$PACKAGE_TARNAME" -_ACEOF - - -cat >>confdefs.h <<_ACEOF -#define PACKAGE_VERSION "$PACKAGE_VERSION" -_ACEOF - - -cat >>confdefs.h <<_ACEOF -#define PACKAGE_STRING "$PACKAGE_STRING" -_ACEOF - - -cat >>confdefs.h <<_ACEOF -#define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT" -_ACEOF - - -# Let the site file select an alternate cache file if it wants to. -# Prefer explicitly selected file to automatically selected ones. -if test -n "$CONFIG_SITE"; then - set x "$CONFIG_SITE" -elif test "x$prefix" != xNONE; then - set x "$prefix/share/config.site" "$prefix/etc/config.site" -else - set x "$ac_default_prefix/share/config.site" \ - "$ac_default_prefix/etc/config.site" -fi -shift -for ac_site_file -do - if test -r "$ac_site_file"; then - { echo "$as_me:$LINENO: loading site script $ac_site_file" >&5 -echo "$as_me: loading site script $ac_site_file" >&6;} - sed 's/^/| /' "$ac_site_file" >&5 - . "$ac_site_file" - fi -done - -if test -r "$cache_file"; then - # Some versions of bash will fail to source /dev/null (special - # files actually), so we avoid doing that. - if test -f "$cache_file"; then - { echo "$as_me:$LINENO: loading cache $cache_file" >&5 -echo "$as_me: loading cache $cache_file" >&6;} - case $cache_file in - [\\/]* | ?:[\\/]* ) . "$cache_file";; - *) . "./$cache_file";; - esac - fi -else - { echo "$as_me:$LINENO: creating cache $cache_file" >&5 -echo "$as_me: creating cache $cache_file" >&6;} - >$cache_file -fi - -# Check that the precious variables saved in the cache have kept the same -# value. -ac_cache_corrupted=false -for ac_var in $ac_precious_vars; do - eval ac_old_set=\$ac_cv_env_${ac_var}_set - eval ac_new_set=\$ac_env_${ac_var}_set - eval ac_old_val=\$ac_cv_env_${ac_var}_value - eval ac_new_val=\$ac_env_${ac_var}_value - case $ac_old_set,$ac_new_set in - set,) - { echo "$as_me:$LINENO: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 -echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} - ac_cache_corrupted=: ;; - ,set) - { echo "$as_me:$LINENO: error: \`$ac_var' was not set in the previous run" >&5 -echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;} - ac_cache_corrupted=: ;; - ,);; - *) - if test "x$ac_old_val" != "x$ac_new_val"; then - { echo "$as_me:$LINENO: error: \`$ac_var' has changed since the previous run:" >&5 -echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} - { echo "$as_me:$LINENO: former value: $ac_old_val" >&5 -echo "$as_me: former value: $ac_old_val" >&2;} - { echo "$as_me:$LINENO: current value: $ac_new_val" >&5 -echo "$as_me: current value: $ac_new_val" >&2;} - ac_cache_corrupted=: - fi;; - esac - # Pass precious variables to config.status. - if test "$ac_new_set" = set; then - case $ac_new_val in - *\'*) ac_arg=$ac_var=`echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; - *) ac_arg=$ac_var=$ac_new_val ;; - esac - case " $ac_configure_args " in - *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy. - *) ac_configure_args="$ac_configure_args '$ac_arg'" ;; - esac - fi -done -if $ac_cache_corrupted; then - { echo "$as_me:$LINENO: error: changes in the environment can compromise the build" >&5 -echo "$as_me: error: changes in the environment can compromise the build" >&2;} - { { echo "$as_me:$LINENO: error: run \`make distclean' and/or \`rm $cache_file' and start over" >&5 -echo "$as_me: error: run \`make distclean' and/or \`rm $cache_file' and start over" >&2;} - { (exit 1); exit 1; }; } -fi - - - - - - - - - - - - - - - - - - - - - - - - - -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu - - - -# Safety check: Ensure that we are in the correct source directory. - - -ac_config_headers="$ac_config_headers include/HsDirectoryConfig.h" - - - -# Check whether --with-cc was given. -if test "${with_cc+set}" = set; then - withval=$with_cc; CC=$withval -fi - -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu -if test -n "$ac_tool_prefix"; then - # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. -set dummy ${ac_tool_prefix}gcc; ac_word=$2 -{ echo "$as_me:$LINENO: checking for $ac_word" >&5 -echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } -if test "${ac_cv_prog_CC+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then - ac_cv_prog_CC="${ac_tool_prefix}gcc" - echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done -done -IFS=$as_save_IFS - -fi -fi -CC=$ac_cv_prog_CC -if test -n "$CC"; then - { echo "$as_me:$LINENO: result: $CC" >&5 -echo "${ECHO_T}$CC" >&6; } -else - { echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6; } -fi - - -fi -if test -z "$ac_cv_prog_CC"; then - ac_ct_CC=$CC - # Extract the first word of "gcc", so it can be a program name with args. -set dummy gcc; ac_word=$2 -{ echo "$as_me:$LINENO: checking for $ac_word" >&5 -echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } -if test "${ac_cv_prog_ac_ct_CC+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - if test -n "$ac_ct_CC"; then - ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then - ac_cv_prog_ac_ct_CC="gcc" - echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done -done -IFS=$as_save_IFS - -fi -fi -ac_ct_CC=$ac_cv_prog_ac_ct_CC -if test -n "$ac_ct_CC"; then - { echo "$as_me:$LINENO: result: $ac_ct_CC" >&5 -echo "${ECHO_T}$ac_ct_CC" >&6; } -else - { echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6; } -fi - - if test "x$ac_ct_CC" = x; then - CC="" - else - case $cross_compiling:$ac_tool_warned in -yes:) -{ echo "$as_me:$LINENO: WARNING: In the future, Autoconf will not detect cross-tools -whose name does not start with the host triplet. If you think this -configuration is useful to you, please write to autoconf@gnu.org." >&5 -echo "$as_me: WARNING: In the future, Autoconf will not detect cross-tools -whose name does not start with the host triplet. If you think this -configuration is useful to you, please write to autoconf@gnu.org." >&2;} -ac_tool_warned=yes ;; -esac - CC=$ac_ct_CC - fi -else - CC="$ac_cv_prog_CC" -fi - -if test -z "$CC"; then - if test -n "$ac_tool_prefix"; then - # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. -set dummy ${ac_tool_prefix}cc; ac_word=$2 -{ echo "$as_me:$LINENO: checking for $ac_word" >&5 -echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } -if test "${ac_cv_prog_CC+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then - ac_cv_prog_CC="${ac_tool_prefix}cc" - echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done -done -IFS=$as_save_IFS - -fi -fi -CC=$ac_cv_prog_CC -if test -n "$CC"; then - { echo "$as_me:$LINENO: result: $CC" >&5 -echo "${ECHO_T}$CC" >&6; } -else - { echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6; } -fi - - - fi -fi -if test -z "$CC"; then - # Extract the first word of "cc", so it can be a program name with args. -set dummy cc; ac_word=$2 -{ echo "$as_me:$LINENO: checking for $ac_word" >&5 -echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } -if test "${ac_cv_prog_CC+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else - ac_prog_rejected=no -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then - if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then - ac_prog_rejected=yes - continue - fi - ac_cv_prog_CC="cc" - echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done -done -IFS=$as_save_IFS - -if test $ac_prog_rejected = yes; then - # We found a bogon in the path, so make sure we never use it. - set dummy $ac_cv_prog_CC - shift - if test $# != 0; then - # We chose a different compiler from the bogus one. - # However, it has the same basename, so the bogon will be chosen - # first if we set CC to just the basename; use the full file name. - shift - ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@" - fi -fi -fi -fi -CC=$ac_cv_prog_CC -if test -n "$CC"; then - { echo "$as_me:$LINENO: result: $CC" >&5 -echo "${ECHO_T}$CC" >&6; } -else - { echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6; } -fi - - -fi -if test -z "$CC"; then - if test -n "$ac_tool_prefix"; then - for ac_prog in cl.exe - do - # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. -set dummy $ac_tool_prefix$ac_prog; ac_word=$2 -{ echo "$as_me:$LINENO: checking for $ac_word" >&5 -echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } -if test "${ac_cv_prog_CC+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - if test -n "$CC"; then - ac_cv_prog_CC="$CC" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then - ac_cv_prog_CC="$ac_tool_prefix$ac_prog" - echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done -done -IFS=$as_save_IFS - -fi -fi -CC=$ac_cv_prog_CC -if test -n "$CC"; then - { echo "$as_me:$LINENO: result: $CC" >&5 -echo "${ECHO_T}$CC" >&6; } -else - { echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6; } -fi - - - test -n "$CC" && break - done -fi -if test -z "$CC"; then - ac_ct_CC=$CC - for ac_prog in cl.exe -do - # Extract the first word of "$ac_prog", so it can be a program name with args. -set dummy $ac_prog; ac_word=$2 -{ echo "$as_me:$LINENO: checking for $ac_word" >&5 -echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } -if test "${ac_cv_prog_ac_ct_CC+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - if test -n "$ac_ct_CC"; then - ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. -else -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then - ac_cv_prog_ac_ct_CC="$ac_prog" - echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done -done -IFS=$as_save_IFS - -fi -fi -ac_ct_CC=$ac_cv_prog_ac_ct_CC -if test -n "$ac_ct_CC"; then - { echo "$as_me:$LINENO: result: $ac_ct_CC" >&5 -echo "${ECHO_T}$ac_ct_CC" >&6; } -else - { echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6; } -fi - - - test -n "$ac_ct_CC" && break -done - - if test "x$ac_ct_CC" = x; then - CC="" - else - case $cross_compiling:$ac_tool_warned in -yes:) -{ echo "$as_me:$LINENO: WARNING: In the future, Autoconf will not detect cross-tools -whose name does not start with the host triplet. If you think this -configuration is useful to you, please write to autoconf@gnu.org." >&5 -echo "$as_me: WARNING: In the future, Autoconf will not detect cross-tools -whose name does not start with the host triplet. If you think this -configuration is useful to you, please write to autoconf@gnu.org." >&2;} -ac_tool_warned=yes ;; -esac - CC=$ac_ct_CC - fi -fi - -fi - - -test -z "$CC" && { { echo "$as_me:$LINENO: error: no acceptable C compiler found in \$PATH -See \`config.log' for more details." >&5 -echo "$as_me: error: no acceptable C compiler found in \$PATH -See \`config.log' for more details." >&2;} - { (exit 1); exit 1; }; } - -# Provide some information about the compiler. -echo "$as_me:$LINENO: checking for C compiler version" >&5 -ac_compiler=`set X $ac_compile; echo $2` -{ (ac_try="$ac_compiler --version >&5" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_compiler --version >&5") 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } -{ (ac_try="$ac_compiler -v >&5" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_compiler -v >&5") 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } -{ (ac_try="$ac_compiler -V >&5" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_compiler -V >&5") 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } - -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -ac_clean_files_save=$ac_clean_files -ac_clean_files="$ac_clean_files a.out a.exe b.out" -# Try to create an executable without -o first, disregard a.out. -# It will help us diagnose broken compilers, and finding out an intuition -# of exeext. -{ echo "$as_me:$LINENO: checking for C compiler default output file name" >&5 -echo $ECHO_N "checking for C compiler default output file name... $ECHO_C" >&6; } -ac_link_default=`echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'` -# -# List of possible output files, starting from the most likely. -# The algorithm is not robust to junk in `.', hence go to wildcards (a.*) -# only as a last resort. b.out is created by i960 compilers. -ac_files='a_out.exe a.exe conftest.exe a.out conftest a.* conftest.* b.out' -# -# The IRIX 6 linker writes into existing files which may not be -# executable, retaining their permissions. Remove them first so a -# subsequent execution test works. -ac_rmfiles= -for ac_file in $ac_files -do - case $ac_file in - *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.o | *.obj ) ;; - * ) ac_rmfiles="$ac_rmfiles $ac_file";; - esac -done -rm -f $ac_rmfiles - -if { (ac_try="$ac_link_default" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_link_default") 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; then - # Autoconf-2.13 could set the ac_cv_exeext variable to `no'. -# So ignore a value of `no', otherwise this would lead to `EXEEXT = no' -# in a Makefile. We should not override ac_cv_exeext if it was cached, -# so that the user can short-circuit this test for compilers unknown to -# Autoconf. -for ac_file in $ac_files '' -do - test -f "$ac_file" || continue - case $ac_file in - *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.o | *.obj ) - ;; - [ab].out ) - # We found the default executable, but exeext='' is most - # certainly right. - break;; - *.* ) - if test "${ac_cv_exeext+set}" = set && test "$ac_cv_exeext" != no; - then :; else - ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` - fi - # We set ac_cv_exeext here because the later test for it is not - # safe: cross compilers may not add the suffix if given an `-o' - # argument, so we may need to know it at that point already. - # Even if this section looks crufty: it has the advantage of - # actually working. - break;; - * ) - break;; - esac -done -test "$ac_cv_exeext" = no && ac_cv_exeext= - -else - ac_file='' -fi - -{ echo "$as_me:$LINENO: result: $ac_file" >&5 -echo "${ECHO_T}$ac_file" >&6; } -if test -z "$ac_file"; then - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -{ { echo "$as_me:$LINENO: error: C compiler cannot create executables -See \`config.log' for more details." >&5 -echo "$as_me: error: C compiler cannot create executables -See \`config.log' for more details." >&2;} - { (exit 77); exit 77; }; } -fi - -ac_exeext=$ac_cv_exeext - -# Check that the compiler produces executables we can run. If not, either -# the compiler is broken, or we cross compile. -{ echo "$as_me:$LINENO: checking whether the C compiler works" >&5 -echo $ECHO_N "checking whether the C compiler works... $ECHO_C" >&6; } -# FIXME: These cross compiler hacks should be removed for Autoconf 3.0 -# If not cross compiling, check that we can run a simple program. -if test "$cross_compiling" != yes; then - if { ac_try='./$ac_file' - { (case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_try") 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - cross_compiling=no - else - if test "$cross_compiling" = maybe; then - cross_compiling=yes - else - { { echo "$as_me:$LINENO: error: cannot run C compiled programs. -If you meant to cross compile, use \`--host'. -See \`config.log' for more details." >&5 -echo "$as_me: error: cannot run C compiled programs. -If you meant to cross compile, use \`--host'. -See \`config.log' for more details." >&2;} - { (exit 1); exit 1; }; } - fi - fi -fi -{ echo "$as_me:$LINENO: result: yes" >&5 -echo "${ECHO_T}yes" >&6; } - -rm -f a.out a.exe conftest$ac_cv_exeext b.out -ac_clean_files=$ac_clean_files_save -# Check that the compiler produces executables we can run. If not, either -# the compiler is broken, or we cross compile. -{ echo "$as_me:$LINENO: checking whether we are cross compiling" >&5 -echo $ECHO_N "checking whether we are cross compiling... $ECHO_C" >&6; } -{ echo "$as_me:$LINENO: result: $cross_compiling" >&5 -echo "${ECHO_T}$cross_compiling" >&6; } - -{ echo "$as_me:$LINENO: checking for suffix of executables" >&5 -echo $ECHO_N "checking for suffix of executables... $ECHO_C" >&6; } -if { (ac_try="$ac_link" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_link") 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; then - # If both `conftest.exe' and `conftest' are `present' (well, observable) -# catch `conftest.exe'. For instance with Cygwin, `ls conftest' will -# work properly (i.e., refer to `conftest.exe'), while it won't with -# `rm'. -for ac_file in conftest.exe conftest conftest.*; do - test -f "$ac_file" || continue - case $ac_file in - *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.o | *.obj ) ;; - *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` - break;; - * ) break;; - esac -done -else - { { echo "$as_me:$LINENO: error: cannot compute suffix of executables: cannot compile and link -See \`config.log' for more details." >&5 -echo "$as_me: error: cannot compute suffix of executables: cannot compile and link -See \`config.log' for more details." >&2;} - { (exit 1); exit 1; }; } -fi - -rm -f conftest$ac_cv_exeext -{ echo "$as_me:$LINENO: result: $ac_cv_exeext" >&5 -echo "${ECHO_T}$ac_cv_exeext" >&6; } - -rm -f conftest.$ac_ext -EXEEXT=$ac_cv_exeext -ac_exeext=$EXEEXT -{ echo "$as_me:$LINENO: checking for suffix of object files" >&5 -echo $ECHO_N "checking for suffix of object files... $ECHO_C" >&6; } -if test "${ac_cv_objext+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -rm -f conftest.o conftest.obj -if { (ac_try="$ac_compile" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_compile") 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; then - for ac_file in conftest.o conftest.obj conftest.*; do - test -f "$ac_file" || continue; - case $ac_file in - *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf ) ;; - *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'` - break;; - esac -done -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -{ { echo "$as_me:$LINENO: error: cannot compute suffix of object files: cannot compile -See \`config.log' for more details." >&5 -echo "$as_me: error: cannot compute suffix of object files: cannot compile -See \`config.log' for more details." >&2;} - { (exit 1); exit 1; }; } -fi - -rm -f conftest.$ac_cv_objext conftest.$ac_ext -fi -{ echo "$as_me:$LINENO: result: $ac_cv_objext" >&5 -echo "${ECHO_T}$ac_cv_objext" >&6; } -OBJEXT=$ac_cv_objext -ac_objext=$OBJEXT -{ echo "$as_me:$LINENO: checking whether we are using the GNU C compiler" >&5 -echo $ECHO_N "checking whether we are using the GNU C compiler... $ECHO_C" >&6; } -if test "${ac_cv_c_compiler_gnu+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -int -main () -{ -#ifndef __GNUC__ - choke me -#endif - - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (ac_try="$ac_compile" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_compile") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { - test -z "$ac_c_werror_flag" || - test ! -s conftest.err - } && test -s conftest.$ac_objext; then - ac_compiler_gnu=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - ac_compiler_gnu=no -fi - -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -ac_cv_c_compiler_gnu=$ac_compiler_gnu - -fi -{ echo "$as_me:$LINENO: result: $ac_cv_c_compiler_gnu" >&5 -echo "${ECHO_T}$ac_cv_c_compiler_gnu" >&6; } -GCC=`test $ac_compiler_gnu = yes && echo yes` -ac_test_CFLAGS=${CFLAGS+set} -ac_save_CFLAGS=$CFLAGS -{ echo "$as_me:$LINENO: checking whether $CC accepts -g" >&5 -echo $ECHO_N "checking whether $CC accepts -g... $ECHO_C" >&6; } -if test "${ac_cv_prog_cc_g+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - ac_save_c_werror_flag=$ac_c_werror_flag - ac_c_werror_flag=yes - ac_cv_prog_cc_g=no - CFLAGS="-g" - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (ac_try="$ac_compile" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_compile") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { - test -z "$ac_c_werror_flag" || - test ! -s conftest.err - } && test -s conftest.$ac_objext; then - ac_cv_prog_cc_g=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - CFLAGS="" - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (ac_try="$ac_compile" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_compile") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { - test -z "$ac_c_werror_flag" || - test ! -s conftest.err - } && test -s conftest.$ac_objext; then - : -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - ac_c_werror_flag=$ac_save_c_werror_flag - CFLAGS="-g" - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (ac_try="$ac_compile" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_compile") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { - test -z "$ac_c_werror_flag" || - test ! -s conftest.err - } && test -s conftest.$ac_objext; then - ac_cv_prog_cc_g=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - -fi - -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -fi - -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -fi - -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext - ac_c_werror_flag=$ac_save_c_werror_flag -fi -{ echo "$as_me:$LINENO: result: $ac_cv_prog_cc_g" >&5 -echo "${ECHO_T}$ac_cv_prog_cc_g" >&6; } -if test "$ac_test_CFLAGS" = set; then - CFLAGS=$ac_save_CFLAGS -elif test $ac_cv_prog_cc_g = yes; then - if test "$GCC" = yes; then - CFLAGS="-g -O2" - else - CFLAGS="-g" - fi -else - if test "$GCC" = yes; then - CFLAGS="-O2" - else - CFLAGS= - fi -fi -{ echo "$as_me:$LINENO: checking for $CC option to accept ISO C89" >&5 -echo $ECHO_N "checking for $CC option to accept ISO C89... $ECHO_C" >&6; } -if test "${ac_cv_prog_cc_c89+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - ac_cv_prog_cc_c89=no -ac_save_CC=$CC -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include -#include -#include -#include -/* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ -struct buf { int x; }; -FILE * (*rcsopen) (struct buf *, struct stat *, int); -static char *e (p, i) - char **p; - int i; -{ - return p[i]; -} -static char *f (char * (*g) (char **, int), char **p, ...) -{ - char *s; - va_list v; - va_start (v,p); - s = g (p, va_arg (v,int)); - va_end (v); - return s; -} - -/* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has - function prototypes and stuff, but not '\xHH' hex character constants. - These don't provoke an error unfortunately, instead are silently treated - as 'x'. The following induces an error, until -std is added to get - proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an - array size at least. It's necessary to write '\x00'==0 to get something - that's true only with -std. */ -int osf4_cc_array ['\x00' == 0 ? 1 : -1]; - -/* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters - inside strings and character constants. */ -#define FOO(x) 'x' -int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1]; - -int test (int i, double x); -struct s1 {int (*f) (int a);}; -struct s2 {int (*f) (double a);}; -int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); -int argc; -char **argv; -int -main () -{ -return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; - ; - return 0; -} -_ACEOF -for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \ - -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" -do - CC="$ac_save_CC $ac_arg" - rm -f conftest.$ac_objext -if { (ac_try="$ac_compile" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_compile") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { - test -z "$ac_c_werror_flag" || - test ! -s conftest.err - } && test -s conftest.$ac_objext; then - ac_cv_prog_cc_c89=$ac_arg -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - -fi - -rm -f core conftest.err conftest.$ac_objext - test "x$ac_cv_prog_cc_c89" != "xno" && break -done -rm -f conftest.$ac_ext -CC=$ac_save_CC - -fi -# AC_CACHE_VAL -case "x$ac_cv_prog_cc_c89" in - x) - { echo "$as_me:$LINENO: result: none needed" >&5 -echo "${ECHO_T}none needed" >&6; } ;; - xno) - { echo "$as_me:$LINENO: result: unsupported" >&5 -echo "${ECHO_T}unsupported" >&6; } ;; - *) - CC="$CC $ac_cv_prog_cc_c89" - { echo "$as_me:$LINENO: result: $ac_cv_prog_cc_c89" >&5 -echo "${ECHO_T}$ac_cv_prog_cc_c89" >&6; } ;; -esac - - -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu - - -# check for specific header (.h) files that we are interested in - -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu -{ echo "$as_me:$LINENO: checking how to run the C preprocessor" >&5 -echo $ECHO_N "checking how to run the C preprocessor... $ECHO_C" >&6; } -# On Suns, sometimes $CPP names a directory. -if test -n "$CPP" && test -d "$CPP"; then - CPP= -fi -if test -z "$CPP"; then - if test "${ac_cv_prog_CPP+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - # Double quotes because CPP needs to be expanded - for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp" - do - ac_preproc_ok=false -for ac_c_preproc_warn_flag in '' yes -do - # Use a header file that comes with gcc, so configuring glibc - # with a fresh cross-compiler works. - # Prefer to if __STDC__ is defined, since - # exists even on freestanding compilers. - # On the NeXT, cc -E runs the code through the compiler's parser, - # not just through cpp. "Syntax error" is here to catch this case. - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#ifdef __STDC__ -# include -#else -# include -#endif - Syntax error -_ACEOF -if { (ac_try="$ac_cpp conftest.$ac_ext" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_cpp conftest.$ac_ext") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } >/dev/null && { - test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || - test ! -s conftest.err - }; then - : -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - # Broken: fails on valid input. -continue -fi - -rm -f conftest.err conftest.$ac_ext - - # OK, works on sane cases. Now check whether nonexistent headers - # can be detected and how. - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include -_ACEOF -if { (ac_try="$ac_cpp conftest.$ac_ext" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_cpp conftest.$ac_ext") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } >/dev/null && { - test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || - test ! -s conftest.err - }; then - # Broken: success on invalid input. -continue -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - # Passes both tests. -ac_preproc_ok=: -break -fi - -rm -f conftest.err conftest.$ac_ext - -done -# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. -rm -f conftest.err conftest.$ac_ext -if $ac_preproc_ok; then - break -fi - - done - ac_cv_prog_CPP=$CPP - -fi - CPP=$ac_cv_prog_CPP -else - ac_cv_prog_CPP=$CPP -fi -{ echo "$as_me:$LINENO: result: $CPP" >&5 -echo "${ECHO_T}$CPP" >&6; } -ac_preproc_ok=false -for ac_c_preproc_warn_flag in '' yes -do - # Use a header file that comes with gcc, so configuring glibc - # with a fresh cross-compiler works. - # Prefer to if __STDC__ is defined, since - # exists even on freestanding compilers. - # On the NeXT, cc -E runs the code through the compiler's parser, - # not just through cpp. "Syntax error" is here to catch this case. - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#ifdef __STDC__ -# include -#else -# include -#endif - Syntax error -_ACEOF -if { (ac_try="$ac_cpp conftest.$ac_ext" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_cpp conftest.$ac_ext") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } >/dev/null && { - test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || - test ! -s conftest.err - }; then - : -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - # Broken: fails on valid input. -continue -fi - -rm -f conftest.err conftest.$ac_ext - - # OK, works on sane cases. Now check whether nonexistent headers - # can be detected and how. - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include -_ACEOF -if { (ac_try="$ac_cpp conftest.$ac_ext" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_cpp conftest.$ac_ext") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } >/dev/null && { - test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || - test ! -s conftest.err - }; then - # Broken: success on invalid input. -continue -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - # Passes both tests. -ac_preproc_ok=: -break -fi - -rm -f conftest.err conftest.$ac_ext - -done -# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. -rm -f conftest.err conftest.$ac_ext -if $ac_preproc_ok; then - : -else - { { echo "$as_me:$LINENO: error: C preprocessor \"$CPP\" fails sanity check -See \`config.log' for more details." >&5 -echo "$as_me: error: C preprocessor \"$CPP\" fails sanity check -See \`config.log' for more details." >&2;} - { (exit 1); exit 1; }; } -fi - -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu - - -{ echo "$as_me:$LINENO: checking for grep that handles long lines and -e" >&5 -echo $ECHO_N "checking for grep that handles long lines and -e... $ECHO_C" >&6; } -if test "${ac_cv_path_GREP+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - # Extract the first word of "grep ggrep" to use in msg output -if test -z "$GREP"; then -set dummy grep ggrep; ac_prog_name=$2 -if test "${ac_cv_path_GREP+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - ac_path_GREP_found=false -# Loop through the user's path and test for each of PROGNAME-LIST -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_prog in grep ggrep; do - for ac_exec_ext in '' $ac_executable_extensions; do - ac_path_GREP="$as_dir/$ac_prog$ac_exec_ext" - { test -f "$ac_path_GREP" && $as_test_x "$ac_path_GREP"; } || continue - # Check for GNU ac_path_GREP and select it if it is found. - # Check for GNU $ac_path_GREP -case `"$ac_path_GREP" --version 2>&1` in -*GNU*) - ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_found=:;; -*) - ac_count=0 - echo $ECHO_N "0123456789$ECHO_C" >"conftest.in" - while : - do - cat "conftest.in" "conftest.in" >"conftest.tmp" - mv "conftest.tmp" "conftest.in" - cp "conftest.in" "conftest.nl" - echo 'GREP' >> "conftest.nl" - "$ac_path_GREP" -e 'GREP$' -e '-(cannot match)-' < "conftest.nl" >"conftest.out" 2>/dev/null || break - diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break - ac_count=`expr $ac_count + 1` - if test $ac_count -gt ${ac_path_GREP_max-0}; then - # Best one so far, save it but keep looking for a better one - ac_cv_path_GREP="$ac_path_GREP" - ac_path_GREP_max=$ac_count - fi - # 10*(2^10) chars as input seems more than enough - test $ac_count -gt 10 && break - done - rm -f conftest.in conftest.tmp conftest.nl conftest.out;; -esac - - - $ac_path_GREP_found && break 3 - done -done - -done -IFS=$as_save_IFS - - -fi - -GREP="$ac_cv_path_GREP" -if test -z "$GREP"; then - { { echo "$as_me:$LINENO: error: no acceptable $ac_prog_name could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" >&5 -echo "$as_me: error: no acceptable $ac_prog_name could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" >&2;} - { (exit 1); exit 1; }; } -fi - -else - ac_cv_path_GREP=$GREP -fi - - -fi -{ echo "$as_me:$LINENO: result: $ac_cv_path_GREP" >&5 -echo "${ECHO_T}$ac_cv_path_GREP" >&6; } - GREP="$ac_cv_path_GREP" - - -{ echo "$as_me:$LINENO: checking for egrep" >&5 -echo $ECHO_N "checking for egrep... $ECHO_C" >&6; } -if test "${ac_cv_path_EGREP+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - if echo a | $GREP -E '(a|b)' >/dev/null 2>&1 - then ac_cv_path_EGREP="$GREP -E" - else - # Extract the first word of "egrep" to use in msg output -if test -z "$EGREP"; then -set dummy egrep; ac_prog_name=$2 -if test "${ac_cv_path_EGREP+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - ac_path_EGREP_found=false -# Loop through the user's path and test for each of PROGNAME-LIST -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_prog in egrep; do - for ac_exec_ext in '' $ac_executable_extensions; do - ac_path_EGREP="$as_dir/$ac_prog$ac_exec_ext" - { test -f "$ac_path_EGREP" && $as_test_x "$ac_path_EGREP"; } || continue - # Check for GNU ac_path_EGREP and select it if it is found. - # Check for GNU $ac_path_EGREP -case `"$ac_path_EGREP" --version 2>&1` in -*GNU*) - ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_found=:;; -*) - ac_count=0 - echo $ECHO_N "0123456789$ECHO_C" >"conftest.in" - while : - do - cat "conftest.in" "conftest.in" >"conftest.tmp" - mv "conftest.tmp" "conftest.in" - cp "conftest.in" "conftest.nl" - echo 'EGREP' >> "conftest.nl" - "$ac_path_EGREP" 'EGREP$' < "conftest.nl" >"conftest.out" 2>/dev/null || break - diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break - ac_count=`expr $ac_count + 1` - if test $ac_count -gt ${ac_path_EGREP_max-0}; then - # Best one so far, save it but keep looking for a better one - ac_cv_path_EGREP="$ac_path_EGREP" - ac_path_EGREP_max=$ac_count - fi - # 10*(2^10) chars as input seems more than enough - test $ac_count -gt 10 && break - done - rm -f conftest.in conftest.tmp conftest.nl conftest.out;; -esac - - - $ac_path_EGREP_found && break 3 - done -done - -done -IFS=$as_save_IFS - - -fi - -EGREP="$ac_cv_path_EGREP" -if test -z "$EGREP"; then - { { echo "$as_me:$LINENO: error: no acceptable $ac_prog_name could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" >&5 -echo "$as_me: error: no acceptable $ac_prog_name could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" >&2;} - { (exit 1); exit 1; }; } -fi - -else - ac_cv_path_EGREP=$EGREP -fi - - - fi -fi -{ echo "$as_me:$LINENO: result: $ac_cv_path_EGREP" >&5 -echo "${ECHO_T}$ac_cv_path_EGREP" >&6; } - EGREP="$ac_cv_path_EGREP" - - -{ echo "$as_me:$LINENO: checking for ANSI C header files" >&5 -echo $ECHO_N "checking for ANSI C header files... $ECHO_C" >&6; } -if test "${ac_cv_header_stdc+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include -#include -#include -#include - -int -main () -{ - - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext -if { (ac_try="$ac_compile" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_compile") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { - test -z "$ac_c_werror_flag" || - test ! -s conftest.err - } && test -s conftest.$ac_objext; then - ac_cv_header_stdc=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - ac_cv_header_stdc=no -fi - -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext - -if test $ac_cv_header_stdc = yes; then - # SunOS 4.x string.h does not declare mem*, contrary to ANSI. - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include - -_ACEOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "memchr" >/dev/null 2>&1; then - : -else - ac_cv_header_stdc=no -fi -rm -f conftest* - -fi - -if test $ac_cv_header_stdc = yes; then - # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include - -_ACEOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "free" >/dev/null 2>&1; then - : -else - ac_cv_header_stdc=no -fi -rm -f conftest* - -fi - -if test $ac_cv_header_stdc = yes; then - # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. - if test "$cross_compiling" = yes; then - : -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include -#include -#if ((' ' & 0x0FF) == 0x020) -# define ISLOWER(c) ('a' <= (c) && (c) <= 'z') -# define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) -#else -# define ISLOWER(c) \ - (('a' <= (c) && (c) <= 'i') \ - || ('j' <= (c) && (c) <= 'r') \ - || ('s' <= (c) && (c) <= 'z')) -# define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c)) -#endif - -#define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) -int -main () -{ - int i; - for (i = 0; i < 256; i++) - if (XOR (islower (i), ISLOWER (i)) - || toupper (i) != TOUPPER (i)) - return 2; - return 0; -} -_ACEOF -rm -f conftest$ac_exeext -if { (ac_try="$ac_link" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_link") 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { ac_try='./conftest$ac_exeext' - { (case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_try") 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - : -else - echo "$as_me: program exited with status $ac_status" >&5 -echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -( exit $ac_status ) -ac_cv_header_stdc=no -fi -rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext -fi - - -fi -fi -{ echo "$as_me:$LINENO: result: $ac_cv_header_stdc" >&5 -echo "${ECHO_T}$ac_cv_header_stdc" >&6; } -if test $ac_cv_header_stdc = yes; then - -cat >>confdefs.h <<\_ACEOF -#define STDC_HEADERS 1 -_ACEOF - -fi - -# On IRIX 5.3, sys/types and inttypes.h are conflicting. - - - - - - - - - -for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \ - inttypes.h stdint.h unistd.h -do -as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` -{ echo "$as_me:$LINENO: checking for $ac_header" >&5 -echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6; } -if { as_var=$as_ac_Header; eval "test \"\${$as_var+set}\" = set"; }; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -$ac_includes_default - -#include <$ac_header> -_ACEOF -rm -f conftest.$ac_objext -if { (ac_try="$ac_compile" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_compile") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { - test -z "$ac_c_werror_flag" || - test ! -s conftest.err - } && test -s conftest.$ac_objext; then - eval "$as_ac_Header=yes" -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - eval "$as_ac_Header=no" -fi - -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -fi -ac_res=`eval echo '${'$as_ac_Header'}'` - { echo "$as_me:$LINENO: result: $ac_res" >&5 -echo "${ECHO_T}$ac_res" >&6; } -if test `eval echo '${'$as_ac_Header'}'` = yes; then - cat >>confdefs.h <<_ACEOF -#define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 -_ACEOF - -fi - -done - - - - - -for ac_header in sys/types.h unistd.h sys/stat.h -do -as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` -if { as_var=$as_ac_Header; eval "test \"\${$as_var+set}\" = set"; }; then - { echo "$as_me:$LINENO: checking for $ac_header" >&5 -echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6; } -if { as_var=$as_ac_Header; eval "test \"\${$as_var+set}\" = set"; }; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -fi -ac_res=`eval echo '${'$as_ac_Header'}'` - { echo "$as_me:$LINENO: result: $ac_res" >&5 -echo "${ECHO_T}$ac_res" >&6; } -else - # Is the header compilable? -{ echo "$as_me:$LINENO: checking $ac_header usability" >&5 -echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6; } -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -$ac_includes_default -#include <$ac_header> -_ACEOF -rm -f conftest.$ac_objext -if { (ac_try="$ac_compile" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_compile") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { - test -z "$ac_c_werror_flag" || - test ! -s conftest.err - } && test -s conftest.$ac_objext; then - ac_header_compiler=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - ac_header_compiler=no -fi - -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -{ echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 -echo "${ECHO_T}$ac_header_compiler" >&6; } - -# Is the header present? -{ echo "$as_me:$LINENO: checking $ac_header presence" >&5 -echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6; } -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <$ac_header> -_ACEOF -if { (ac_try="$ac_cpp conftest.$ac_ext" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_cpp conftest.$ac_ext") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } >/dev/null && { - test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || - test ! -s conftest.err - }; then - ac_header_preproc=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - ac_header_preproc=no -fi - -rm -f conftest.err conftest.$ac_ext -{ echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 -echo "${ECHO_T}$ac_header_preproc" >&6; } - -# So? What about this header? -case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in - yes:no: ) - { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 -echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 -echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} - ac_header_preproc=yes - ;; - no:yes:* ) - { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 -echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 -echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 -echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 -echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 -echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 -echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} - ( cat <<\_ASBOX -## ------------------------------------ ## -## Report this to libraries@haskell.org ## -## ------------------------------------ ## -_ASBOX - ) | sed "s/^/$as_me: WARNING: /" >&2 - ;; -esac -{ echo "$as_me:$LINENO: checking for $ac_header" >&5 -echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6; } -if { as_var=$as_ac_Header; eval "test \"\${$as_var+set}\" = set"; }; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - eval "$as_ac_Header=\$ac_header_preproc" -fi -ac_res=`eval echo '${'$as_ac_Header'}'` - { echo "$as_me:$LINENO: result: $ac_res" >&5 -echo "${ECHO_T}$ac_res" >&6; } - -fi -if test `eval echo '${'$as_ac_Header'}'` = yes; then - cat >>confdefs.h <<_ACEOF -#define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 -_ACEOF - -fi - -done - - -cat >confcache <<\_ACEOF -# This file is a shell script that caches the results of configure -# tests run on this system so they can be shared between configure -# scripts and configure runs, see configure's option --config-cache. -# It is not useful on other systems. If it contains results you don't -# want to keep, you may remove or edit it. -# -# config.status only pays attention to the cache file if you give it -# the --recheck option to rerun configure. -# -# `ac_cv_env_foo' variables (set or unset) will be overridden when -# loading this file, other *unset* `ac_cv_foo' will be assigned the -# following values. - -_ACEOF - -# The following way of writing the cache mishandles newlines in values, -# but we know of no workaround that is simple, portable, and efficient. -# So, we kill variables containing newlines. -# Ultrix sh set writes to stderr and can't be redirected directly, -# and sets the high bit in the cache file unless we assign to the vars. -( - for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do - eval ac_val=\$$ac_var - case $ac_val in #( - *${as_nl}*) - case $ac_var in #( - *_cv_*) { echo "$as_me:$LINENO: WARNING: Cache variable $ac_var contains a newline." >&5 -echo "$as_me: WARNING: Cache variable $ac_var contains a newline." >&2;} ;; - esac - case $ac_var in #( - _ | IFS | as_nl) ;; #( - *) $as_unset $ac_var ;; - esac ;; - esac - done - - (set) 2>&1 | - case $as_nl`(ac_space=' '; set) 2>&1` in #( - *${as_nl}ac_space=\ *) - # `set' does not quote correctly, so add quotes (double-quote - # substitution turns \\\\ into \\, and sed turns \\ into \). - sed -n \ - "s/'/'\\\\''/g; - s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p" - ;; #( - *) - # `set' quotes correctly as required by POSIX, so do not add quotes. - sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" - ;; - esac | - sort -) | - sed ' - /^ac_cv_env_/b end - t clear - :clear - s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/ - t end - s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/ - :end' >>confcache -if diff "$cache_file" confcache >/dev/null 2>&1; then :; else - if test -w "$cache_file"; then - test "x$cache_file" != "x/dev/null" && - { echo "$as_me:$LINENO: updating cache $cache_file" >&5 -echo "$as_me: updating cache $cache_file" >&6;} - cat confcache >$cache_file - else - { echo "$as_me:$LINENO: not updating unwritable cache $cache_file" >&5 -echo "$as_me: not updating unwritable cache $cache_file" >&6;} - fi -fi -rm -f confcache - -test "x$prefix" = xNONE && prefix=$ac_default_prefix -# Let make expand exec_prefix. -test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' - -DEFS=-DHAVE_CONFIG_H - -ac_libobjs= -ac_ltlibobjs= -for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue - # 1. Remove the extension, and $U if already installed. - ac_script='s/\$U\././;s/\.o$//;s/\.obj$//' - ac_i=`echo "$ac_i" | sed "$ac_script"` - # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR - # will be set to the directory where LIBOBJS objects are built. - ac_libobjs="$ac_libobjs \${LIBOBJDIR}$ac_i\$U.$ac_objext" - ac_ltlibobjs="$ac_ltlibobjs \${LIBOBJDIR}$ac_i"'$U.lo' -done -LIBOBJS=$ac_libobjs - -LTLIBOBJS=$ac_ltlibobjs - - - -: ${CONFIG_STATUS=./config.status} -ac_clean_files_save=$ac_clean_files -ac_clean_files="$ac_clean_files $CONFIG_STATUS" -{ echo "$as_me:$LINENO: creating $CONFIG_STATUS" >&5 -echo "$as_me: creating $CONFIG_STATUS" >&6;} -cat >$CONFIG_STATUS <<_ACEOF -#! $SHELL -# Generated by $as_me. -# Run this file to recreate the current configuration. -# Compiler output produced by configure, useful for debugging -# configure, is in config.log if it exists. - -debug=false -ac_cs_recheck=false -ac_cs_silent=false -SHELL=\${CONFIG_SHELL-$SHELL} -_ACEOF - -cat >>$CONFIG_STATUS <<\_ACEOF -## --------------------- ## -## M4sh Initialization. ## -## --------------------- ## - -# Be more Bourne compatible -DUALCASE=1; export DUALCASE # for MKS sh -if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then - emulate sh - NULLCMD=: - # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which - # is contrary to our usage. Disable this feature. - alias -g '${1+"$@"}'='"$@"' - setopt NO_GLOB_SUBST -else - case `(set -o) 2>/dev/null` in - *posix*) set -o posix ;; -esac - -fi - - - - -# PATH needs CR -# Avoid depending upon Character Ranges. -as_cr_letters='abcdefghijklmnopqrstuvwxyz' -as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' -as_cr_Letters=$as_cr_letters$as_cr_LETTERS -as_cr_digits='0123456789' -as_cr_alnum=$as_cr_Letters$as_cr_digits - -# The user is always right. -if test "${PATH_SEPARATOR+set}" != set; then - echo "#! /bin/sh" >conf$$.sh - echo "exit 0" >>conf$$.sh - chmod +x conf$$.sh - if (PATH="/nonexistent;."; conf$$.sh) >/dev/null 2>&1; then - PATH_SEPARATOR=';' - else - PATH_SEPARATOR=: - fi - rm -f conf$$.sh -fi - -# Support unset when possible. -if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then - as_unset=unset -else - as_unset=false -fi - - -# IFS -# We need space, tab and new line, in precisely that order. Quoting is -# there to prevent editors from complaining about space-tab. -# (If _AS_PATH_WALK were called with IFS unset, it would disable word -# splitting by setting IFS to empty value.) -as_nl=' -' -IFS=" "" $as_nl" - -# Find who we are. Look in the path if we contain no directory separator. -case $0 in - *[\\/]* ) as_myself=$0 ;; - *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break -done -IFS=$as_save_IFS - - ;; -esac -# We did not find ourselves, most probably we were run as `sh COMMAND' -# in which case we are not to be found in the path. -if test "x$as_myself" = x; then - as_myself=$0 -fi -if test ! -f "$as_myself"; then - echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 - { (exit 1); exit 1; } -fi - -# Work around bugs in pre-3.0 UWIN ksh. -for as_var in ENV MAIL MAILPATH -do ($as_unset $as_var) >/dev/null 2>&1 && $as_unset $as_var -done -PS1='$ ' -PS2='> ' -PS4='+ ' - -# NLS nuisances. -for as_var in \ - LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \ - LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \ - LC_TELEPHONE LC_TIME -do - if (set +x; test -z "`(eval $as_var=C; export $as_var) 2>&1`"); then - eval $as_var=C; export $as_var - else - ($as_unset $as_var) >/dev/null 2>&1 && $as_unset $as_var - fi -done - -# Required to use basename. -if expr a : '\(a\)' >/dev/null 2>&1 && - test "X`expr 00001 : '.*\(...\)'`" = X001; then - as_expr=expr -else - as_expr=false -fi - -if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then - as_basename=basename -else - as_basename=false -fi - - -# Name of the executable. -as_me=`$as_basename -- "$0" || -$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ - X"$0" : 'X\(//\)$' \| \ - X"$0" : 'X\(/\)' \| . 2>/dev/null || -echo X/"$0" | - sed '/^.*\/\([^/][^/]*\)\/*$/{ - s//\1/ - q - } - /^X\/\(\/\/\)$/{ - s//\1/ - q - } - /^X\/\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - -# CDPATH. -$as_unset CDPATH - - - - as_lineno_1=$LINENO - as_lineno_2=$LINENO - test "x$as_lineno_1" != "x$as_lineno_2" && - test "x`expr $as_lineno_1 + 1`" = "x$as_lineno_2" || { - - # Create $as_me.lineno as a copy of $as_myself, but with $LINENO - # uniformly replaced by the line number. The first 'sed' inserts a - # line-number line after each line using $LINENO; the second 'sed' - # does the real work. The second script uses 'N' to pair each - # line-number line with the line containing $LINENO, and appends - # trailing '-' during substitution so that $LINENO is not a special - # case at line end. - # (Raja R Harinath suggested sed '=', and Paul Eggert wrote the - # scripts with optimization help from Paolo Bonzini. Blame Lee - # E. McMahon (1931-1989) for sed's syntax. :-) - sed -n ' - p - /[$]LINENO/= - ' <$as_myself | - sed ' - s/[$]LINENO.*/&-/ - t lineno - b - :lineno - N - :loop - s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ - t loop - s/-\n.*// - ' >$as_me.lineno && - chmod +x "$as_me.lineno" || - { echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2 - { (exit 1); exit 1; }; } - - # Don't try to exec as it changes $[0], causing all sort of problems - # (the dirname of $[0] is not the place where we might find the - # original and so on. Autoconf is especially sensitive to this). - . "./$as_me.lineno" - # Exit status is that of the last command. - exit -} - - -if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then - as_dirname=dirname -else - as_dirname=false -fi - -ECHO_C= ECHO_N= ECHO_T= -case `echo -n x` in --n*) - case `echo 'x\c'` in - *c*) ECHO_T=' ';; # ECHO_T is single tab character. - *) ECHO_C='\c';; - esac;; -*) - ECHO_N='-n';; -esac - -if expr a : '\(a\)' >/dev/null 2>&1 && - test "X`expr 00001 : '.*\(...\)'`" = X001; then - as_expr=expr -else - as_expr=false -fi - -rm -f conf$$ conf$$.exe conf$$.file -if test -d conf$$.dir; then - rm -f conf$$.dir/conf$$.file -else - rm -f conf$$.dir - mkdir conf$$.dir -fi -echo >conf$$.file -if ln -s conf$$.file conf$$ 2>/dev/null; then - as_ln_s='ln -s' - # ... but there are two gotchas: - # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. - # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. - # In both cases, we have to default to `cp -p'. - ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || - as_ln_s='cp -p' -elif ln conf$$.file conf$$ 2>/dev/null; then - as_ln_s=ln -else - as_ln_s='cp -p' -fi -rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file -rmdir conf$$.dir 2>/dev/null - -if mkdir -p . 2>/dev/null; then - as_mkdir_p=: -else - test -d ./-p && rmdir ./-p - as_mkdir_p=false -fi - -if test -x / >/dev/null 2>&1; then - as_test_x='test -x' -else - if ls -dL / >/dev/null 2>&1; then - as_ls_L_option=L - else - as_ls_L_option= - fi - as_test_x=' - eval sh -c '\'' - if test -d "$1"; then - test -d "$1/."; - else - case $1 in - -*)set "./$1";; - esac; - case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in - ???[sx]*):;;*)false;;esac;fi - '\'' sh - ' -fi -as_executable_p=$as_test_x - -# Sed expression to map a string onto a valid CPP name. -as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" - -# Sed expression to map a string onto a valid variable name. -as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" - - -exec 6>&1 - -# Save the log message, to keep $[0] and so on meaningful, and to -# report actual input values of CONFIG_FILES etc. instead of their -# values after options handling. -ac_log=" -This file was extended by Haskell directory package $as_me 1.0, which was -generated by GNU Autoconf 2.61. Invocation command line was - - CONFIG_FILES = $CONFIG_FILES - CONFIG_HEADERS = $CONFIG_HEADERS - CONFIG_LINKS = $CONFIG_LINKS - CONFIG_COMMANDS = $CONFIG_COMMANDS - $ $0 $@ - -on `(hostname || uname -n) 2>/dev/null | sed 1q` -" - -_ACEOF - -cat >>$CONFIG_STATUS <<_ACEOF -# Files that config.status was made for. -config_headers="$ac_config_headers" - -_ACEOF - -cat >>$CONFIG_STATUS <<\_ACEOF -ac_cs_usage="\ -\`$as_me' instantiates files from templates according to the -current configuration. - -Usage: $0 [OPTIONS] [FILE]... - - -h, --help print this help, then exit - -V, --version print version number and configuration settings, then exit - -q, --quiet do not print progress messages - -d, --debug don't remove temporary files - --recheck update $as_me by reconfiguring in the same conditions - --header=FILE[:TEMPLATE] - instantiate the configuration header FILE - -Configuration headers: -$config_headers - -Report bugs to ." - -_ACEOF -cat >>$CONFIG_STATUS <<_ACEOF -ac_cs_version="\\ -Haskell directory package config.status 1.0 -configured by $0, generated by GNU Autoconf 2.61, - with options \\"`echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`\\" - -Copyright (C) 2006 Free Software Foundation, Inc. -This config.status script is free software; the Free Software Foundation -gives unlimited permission to copy, distribute and modify it." - -ac_pwd='$ac_pwd' -srcdir='$srcdir' -_ACEOF - -cat >>$CONFIG_STATUS <<\_ACEOF -# If no file are specified by the user, then we need to provide default -# value. By we need to know if files were specified by the user. -ac_need_defaults=: -while test $# != 0 -do - case $1 in - --*=*) - ac_option=`expr "X$1" : 'X\([^=]*\)='` - ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` - ac_shift=: - ;; - *) - ac_option=$1 - ac_optarg=$2 - ac_shift=shift - ;; - esac - - case $ac_option in - # Handling of the options. - -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) - ac_cs_recheck=: ;; - --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) - echo "$ac_cs_version"; exit ;; - --debug | --debu | --deb | --de | --d | -d ) - debug=: ;; - --header | --heade | --head | --hea ) - $ac_shift - CONFIG_HEADERS="$CONFIG_HEADERS $ac_optarg" - ac_need_defaults=false;; - --he | --h) - # Conflict between --help and --header - { echo "$as_me: error: ambiguous option: $1 -Try \`$0 --help' for more information." >&2 - { (exit 1); exit 1; }; };; - --help | --hel | -h ) - echo "$ac_cs_usage"; exit ;; - -q | -quiet | --quiet | --quie | --qui | --qu | --q \ - | -silent | --silent | --silen | --sile | --sil | --si | --s) - ac_cs_silent=: ;; - - # This is an error. - -*) { echo "$as_me: error: unrecognized option: $1 -Try \`$0 --help' for more information." >&2 - { (exit 1); exit 1; }; } ;; - - *) ac_config_targets="$ac_config_targets $1" - ac_need_defaults=false ;; - - esac - shift -done - -ac_configure_extra_args= - -if $ac_cs_silent; then - exec 6>/dev/null - ac_configure_extra_args="$ac_configure_extra_args --silent" -fi - -_ACEOF -cat >>$CONFIG_STATUS <<_ACEOF -if \$ac_cs_recheck; then - echo "running CONFIG_SHELL=$SHELL $SHELL $0 "$ac_configure_args \$ac_configure_extra_args " --no-create --no-recursion" >&6 - CONFIG_SHELL=$SHELL - export CONFIG_SHELL - exec $SHELL "$0"$ac_configure_args \$ac_configure_extra_args --no-create --no-recursion -fi - -_ACEOF -cat >>$CONFIG_STATUS <<\_ACEOF -exec 5>>config.log -{ - echo - sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX -## Running $as_me. ## -_ASBOX - echo "$ac_log" -} >&5 - -_ACEOF -cat >>$CONFIG_STATUS <<_ACEOF -_ACEOF - -cat >>$CONFIG_STATUS <<\_ACEOF - -# Handling of arguments. -for ac_config_target in $ac_config_targets -do - case $ac_config_target in - "include/HsDirectoryConfig.h") CONFIG_HEADERS="$CONFIG_HEADERS include/HsDirectoryConfig.h" ;; - - *) { { echo "$as_me:$LINENO: error: invalid argument: $ac_config_target" >&5 -echo "$as_me: error: invalid argument: $ac_config_target" >&2;} - { (exit 1); exit 1; }; };; - esac -done - - -# If the user did not use the arguments to specify the items to instantiate, -# then the envvar interface is used. Set only those that are not. -# We use the long form for the default assignment because of an extremely -# bizarre bug on SunOS 4.1.3. -if $ac_need_defaults; then - test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers -fi - -# Have a temporary directory for convenience. Make it in the build tree -# simply because there is no reason against having it here, and in addition, -# creating and moving files from /tmp can sometimes cause problems. -# Hook for its removal unless debugging. -# Note that there is a small window in which the directory will not be cleaned: -# after its creation but before its name has been assigned to `$tmp'. -$debug || -{ - tmp= - trap 'exit_status=$? - { test -z "$tmp" || test ! -d "$tmp" || rm -fr "$tmp"; } && exit $exit_status -' 0 - trap '{ (exit 1); exit 1; }' 1 2 13 15 -} -# Create a (secure) tmp directory for tmp files. - -{ - tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && - test -n "$tmp" && test -d "$tmp" -} || -{ - tmp=./conf$$-$RANDOM - (umask 077 && mkdir "$tmp") -} || -{ - echo "$me: cannot create a temporary directory in ." >&2 - { (exit 1); exit 1; } -} - - -for ac_tag in :H $CONFIG_HEADERS -do - case $ac_tag in - :[FHLC]) ac_mode=$ac_tag; continue;; - esac - case $ac_mode$ac_tag in - :[FHL]*:*);; - :L* | :C*:*) { { echo "$as_me:$LINENO: error: Invalid tag $ac_tag." >&5 -echo "$as_me: error: Invalid tag $ac_tag." >&2;} - { (exit 1); exit 1; }; };; - :[FH]-) ac_tag=-:-;; - :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; - esac - ac_save_IFS=$IFS - IFS=: - set x $ac_tag - IFS=$ac_save_IFS - shift - ac_file=$1 - shift - - case $ac_mode in - :L) ac_source=$1;; - :[FH]) - ac_file_inputs= - for ac_f - do - case $ac_f in - -) ac_f="$tmp/stdin";; - *) # Look for the file first in the build tree, then in the source tree - # (if the path is not absolute). The absolute path cannot be DOS-style, - # because $ac_f cannot contain `:'. - test -f "$ac_f" || - case $ac_f in - [\\/$]*) false;; - *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; - esac || - { { echo "$as_me:$LINENO: error: cannot find input file: $ac_f" >&5 -echo "$as_me: error: cannot find input file: $ac_f" >&2;} - { (exit 1); exit 1; }; };; - esac - ac_file_inputs="$ac_file_inputs $ac_f" - done - - # Let's still pretend it is `configure' which instantiates (i.e., don't - # use $as_me), people would be surprised to read: - # /* config.h. Generated by config.status. */ - configure_input="Generated from "`IFS=: - echo $* | sed 's|^[^:]*/||;s|:[^:]*/|, |g'`" by configure." - if test x"$ac_file" != x-; then - configure_input="$ac_file. $configure_input" - { echo "$as_me:$LINENO: creating $ac_file" >&5 -echo "$as_me: creating $ac_file" >&6;} - fi - - case $ac_tag in - *:-:* | *:-) cat >"$tmp/stdin";; - esac - ;; - esac - - ac_dir=`$as_dirname -- "$ac_file" || -$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$ac_file" : 'X\(//\)[^/]' \| \ - X"$ac_file" : 'X\(//\)$' \| \ - X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || -echo X"$ac_file" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ - s//\1/ - q - } - /^X\(\/\/\)[^/].*/{ - s//\1/ - q - } - /^X\(\/\/\)$/{ - s//\1/ - q - } - /^X\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - { as_dir="$ac_dir" - case $as_dir in #( - -*) as_dir=./$as_dir;; - esac - test -d "$as_dir" || { $as_mkdir_p && mkdir -p "$as_dir"; } || { - as_dirs= - while :; do - case $as_dir in #( - *\'*) as_qdir=`echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #( - *) as_qdir=$as_dir;; - esac - as_dirs="'$as_qdir' $as_dirs" - as_dir=`$as_dirname -- "$as_dir" || -$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$as_dir" : 'X\(//\)[^/]' \| \ - X"$as_dir" : 'X\(//\)$' \| \ - X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || -echo X"$as_dir" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ - s//\1/ - q - } - /^X\(\/\/\)[^/].*/{ - s//\1/ - q - } - /^X\(\/\/\)$/{ - s//\1/ - q - } - /^X\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - test -d "$as_dir" && break - done - test -z "$as_dirs" || eval "mkdir $as_dirs" - } || test -d "$as_dir" || { { echo "$as_me:$LINENO: error: cannot create directory $as_dir" >&5 -echo "$as_me: error: cannot create directory $as_dir" >&2;} - { (exit 1); exit 1; }; }; } - ac_builddir=. - -case "$ac_dir" in -.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; -*) - ac_dir_suffix=/`echo "$ac_dir" | sed 's,^\.[\\/],,'` - # A ".." for each directory in $ac_dir_suffix. - ac_top_builddir_sub=`echo "$ac_dir_suffix" | sed 's,/[^\\/]*,/..,g;s,/,,'` - case $ac_top_builddir_sub in - "") ac_top_builddir_sub=. ac_top_build_prefix= ;; - *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; - esac ;; -esac -ac_abs_top_builddir=$ac_pwd -ac_abs_builddir=$ac_pwd$ac_dir_suffix -# for backward compatibility: -ac_top_builddir=$ac_top_build_prefix - -case $srcdir in - .) # We are building in place. - ac_srcdir=. - ac_top_srcdir=$ac_top_builddir_sub - ac_abs_top_srcdir=$ac_pwd ;; - [\\/]* | ?:[\\/]* ) # Absolute name. - ac_srcdir=$srcdir$ac_dir_suffix; - ac_top_srcdir=$srcdir - ac_abs_top_srcdir=$srcdir ;; - *) # Relative name. - ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix - ac_top_srcdir=$ac_top_build_prefix$srcdir - ac_abs_top_srcdir=$ac_pwd/$srcdir ;; -esac -ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix - - - case $ac_mode in - - :H) - # - # CONFIG_HEADER - # -_ACEOF - -# Transform confdefs.h into a sed script `conftest.defines', that -# substitutes the proper values into config.h.in to produce config.h. -rm -f conftest.defines conftest.tail -# First, append a space to every undef/define line, to ease matching. -echo 's/$/ /' >conftest.defines -# Then, protect against being on the right side of a sed subst, or in -# an unquoted here document, in config.status. If some macros were -# called several times there might be several #defines for the same -# symbol, which is useless. But do not sort them, since the last -# AC_DEFINE must be honored. -ac_word_re=[_$as_cr_Letters][_$as_cr_alnum]* -# These sed commands are passed to sed as "A NAME B PARAMS C VALUE D", where -# NAME is the cpp macro being defined, VALUE is the value it is being given. -# PARAMS is the parameter list in the macro definition--in most cases, it's -# just an empty string. -ac_dA='s,^\\([ #]*\\)[^ ]*\\([ ]*' -ac_dB='\\)[ (].*,\\1define\\2' -ac_dC=' ' -ac_dD=' ,' - -uniq confdefs.h | - sed -n ' - t rset - :rset - s/^[ ]*#[ ]*define[ ][ ]*// - t ok - d - :ok - s/[\\&,]/\\&/g - s/^\('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/ '"$ac_dA"'\1'"$ac_dB"'\2'"${ac_dC}"'\3'"$ac_dD"'/p - s/^\('"$ac_word_re"'\)[ ]*\(.*\)/'"$ac_dA"'\1'"$ac_dB$ac_dC"'\2'"$ac_dD"'/p - ' >>conftest.defines - -# Remove the space that was appended to ease matching. -# Then replace #undef with comments. This is necessary, for -# example, in the case of _POSIX_SOURCE, which is predefined and required -# on some systems where configure will not decide to define it. -# (The regexp can be short, since the line contains either #define or #undef.) -echo 's/ $// -s,^[ #]*u.*,/* & */,' >>conftest.defines - -# Break up conftest.defines: -ac_max_sed_lines=50 - -# First sed command is: sed -f defines.sed $ac_file_inputs >"$tmp/out1" -# Second one is: sed -f defines.sed "$tmp/out1" >"$tmp/out2" -# Third one will be: sed -f defines.sed "$tmp/out2" >"$tmp/out1" -# et cetera. -ac_in='$ac_file_inputs' -ac_out='"$tmp/out1"' -ac_nxt='"$tmp/out2"' - -while : -do - # Write a here document: - cat >>$CONFIG_STATUS <<_ACEOF - # First, check the format of the line: - cat >"\$tmp/defines.sed" <<\\CEOF -/^[ ]*#[ ]*undef[ ][ ]*$ac_word_re[ ]*\$/b def -/^[ ]*#[ ]*define[ ][ ]*$ac_word_re[( ]/b def -b -:def -_ACEOF - sed ${ac_max_sed_lines}q conftest.defines >>$CONFIG_STATUS - echo 'CEOF - sed -f "$tmp/defines.sed"' "$ac_in >$ac_out" >>$CONFIG_STATUS - ac_in=$ac_out; ac_out=$ac_nxt; ac_nxt=$ac_in - sed 1,${ac_max_sed_lines}d conftest.defines >conftest.tail - grep . conftest.tail >/dev/null || break - rm -f conftest.defines - mv conftest.tail conftest.defines -done -rm -f conftest.defines conftest.tail - -echo "ac_result=$ac_in" >>$CONFIG_STATUS -cat >>$CONFIG_STATUS <<\_ACEOF - if test x"$ac_file" != x-; then - echo "/* $configure_input */" >"$tmp/config.h" - cat "$ac_result" >>"$tmp/config.h" - if diff $ac_file "$tmp/config.h" >/dev/null 2>&1; then - { echo "$as_me:$LINENO: $ac_file is unchanged" >&5 -echo "$as_me: $ac_file is unchanged" >&6;} - else - rm -f $ac_file - mv "$tmp/config.h" $ac_file - fi - else - echo "/* $configure_input */" - cat "$ac_result" - fi - rm -f "$tmp/out12" - ;; - - - esac - -done # for ac_tag - - -{ (exit 0); exit 0; } -_ACEOF -chmod +x $CONFIG_STATUS -ac_clean_files=$ac_clean_files_save - - -# configure is writing to config.log, and then calls config.status. -# config.status does its own redirection, appending to config.log. -# Unfortunately, on DOS this fails, as config.log is still kept open -# by configure, so config.status won't be able to write to it; its -# output is simply discarded. So we exec the FD to /dev/null, -# effectively closing config.log, so it can be properly (re)opened and -# appended to by config.status. When coming back to configure, we -# need to make the FD available again. -if test "$no_create" != yes; then - ac_cs_success=: - ac_config_status_args= - test "$silent" = yes && - ac_config_status_args="$ac_config_status_args --quiet" - exec 5>/dev/null - $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false - exec 5>>config.log - # Use ||, not &&, to avoid exiting from the if with $? = 1, which - # would make configure fail if this is the last instruction. - $ac_cs_success || { (exit 1); exit 1; } -fi +# Generated by GNU Autoconf 2.71 for Haskell directory package 1.0. +# +# Report bugs to . +# +# +# Copyright (C) 1992-1996, 1998-2017, 2020-2021 Free Software Foundation, +# Inc. +# +# +# This configure script is free software; the Free Software Foundation +# gives unlimited permission to copy, distribute and modify it. +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +as_nop=: +if test ${ZSH_VERSION+y} && (emulate sh) >/dev/null 2>&1 +then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else $as_nop + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + + +# Reset variables that may have inherited troublesome values from +# the environment. + +# IFS needs to be set, to space, tab, and newline, in precisely that order. +# (If _AS_PATH_WALK were called with IFS unset, it would have the +# side effect of setting IFS to empty, thus disabling word splitting.) +# Quoting is to prevent editors from complaining about space-tab. +as_nl=' +' +export as_nl +IFS=" "" $as_nl" + +PS1='$ ' +PS2='> ' +PS4='+ ' + +# Ensure predictable behavior from utilities with locale-dependent output. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# We cannot yet rely on "unset" to work, but we need these variables +# to be unset--not just set to an empty or harmless value--now, to +# avoid bugs in old shells (e.g. pre-3.0 UWIN ksh). This construct +# also avoids known problems related to "unset" and subshell syntax +# in other old shells (e.g. bash 2.01 and pdksh 5.2.14). +for as_var in BASH_ENV ENV MAIL MAILPATH CDPATH +do eval test \${$as_var+y} \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done + +# Ensure that fds 0, 1, and 2 are open. +if (exec 3>&0) 2>/dev/null; then :; else exec 0&1) 2>/dev/null; then :; else exec 1>/dev/null; fi +if (exec 3>&2) ; then :; else exec 2>/dev/null; fi + +# The user is always right. +if ${PATH_SEPARATOR+false} :; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac + test -r "$as_dir$0" && as_myself=$as_dir$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + printf "%s\n" "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + + +# Use a proper internal environment variable to ensure we don't fall + # into an infinite loop, continuously re-executing ourselves. + if test x"${_as_can_reexec}" != xno && test "x$CONFIG_SHELL" != x; then + _as_can_reexec=no; export _as_can_reexec; + # We cannot yet assume a decent shell, so we have to provide a +# neutralization value for shells without unset; and this also +# works around shells that cannot unset nonexistent variables. +# Preserve -v and -x to the replacement shell. +BASH_ENV=/dev/null +ENV=/dev/null +(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV +case $- in # (((( + *v*x* | *x*v* ) as_opts=-vx ;; + *v* ) as_opts=-v ;; + *x* ) as_opts=-x ;; + * ) as_opts= ;; +esac +exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} +# Admittedly, this is quite paranoid, since all the known shells bail +# out after a failed `exec'. +printf "%s\n" "$0: could not re-execute with $CONFIG_SHELL" >&2 +exit 255 + fi + # We don't want this to propagate to other subprocesses. + { _as_can_reexec=; unset _as_can_reexec;} +if test "x$CONFIG_SHELL" = x; then + as_bourne_compatible="as_nop=: +if test \${ZSH_VERSION+y} && (emulate sh) >/dev/null 2>&1 +then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which + # is contrary to our usage. Disable this feature. + alias -g '\${1+\"\$@\"}'='\"\$@\"' + setopt NO_GLOB_SUBST +else \$as_nop + case \`(set -o) 2>/dev/null\` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi +" + as_required="as_fn_return () { (exit \$1); } +as_fn_success () { as_fn_return 0; } +as_fn_failure () { as_fn_return 1; } +as_fn_ret_success () { return 0; } +as_fn_ret_failure () { return 1; } + +exitcode=0 +as_fn_success || { exitcode=1; echo as_fn_success failed.; } +as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; } +as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; } +as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; } +if ( set x; as_fn_ret_success y && test x = \"\$1\" ) +then : + +else \$as_nop + exitcode=1; echo positional parameters were not saved. +fi +test x\$exitcode = x0 || exit 1 +blah=\$(echo \$(echo blah)) +test x\"\$blah\" = xblah || exit 1 +test -x / || exit 1" + as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO + as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO + eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" && + test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1" + if (eval "$as_required") 2>/dev/null +then : + as_have_required=yes +else $as_nop + as_have_required=no +fi + if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null +then : + +else $as_nop + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +as_found=false +for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH +do + IFS=$as_save_IFS + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac + as_found=: + case $as_dir in #( + /*) + for as_base in sh bash ksh sh5; do + # Try only shells that exist, to save several forks. + as_shell=$as_dir$as_base + if { test -f "$as_shell" || test -f "$as_shell.exe"; } && + as_run=a "$as_shell" -c "$as_bourne_compatible""$as_required" 2>/dev/null +then : + CONFIG_SHELL=$as_shell as_have_required=yes + if as_run=a "$as_shell" -c "$as_bourne_compatible""$as_suggested" 2>/dev/null +then : + break 2 +fi +fi + done;; + esac + as_found=false +done +IFS=$as_save_IFS +if $as_found +then : + +else $as_nop + if { test -f "$SHELL" || test -f "$SHELL.exe"; } && + as_run=a "$SHELL" -c "$as_bourne_compatible""$as_required" 2>/dev/null +then : + CONFIG_SHELL=$SHELL as_have_required=yes +fi +fi + + + if test "x$CONFIG_SHELL" != x +then : + export CONFIG_SHELL + # We cannot yet assume a decent shell, so we have to provide a +# neutralization value for shells without unset; and this also +# works around shells that cannot unset nonexistent variables. +# Preserve -v and -x to the replacement shell. +BASH_ENV=/dev/null +ENV=/dev/null +(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV +case $- in # (((( + *v*x* | *x*v* ) as_opts=-vx ;; + *v* ) as_opts=-v ;; + *x* ) as_opts=-x ;; + * ) as_opts= ;; +esac +exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} +# Admittedly, this is quite paranoid, since all the known shells bail +# out after a failed `exec'. +printf "%s\n" "$0: could not re-execute with $CONFIG_SHELL" >&2 +exit 255 +fi + + if test x$as_have_required = xno +then : + printf "%s\n" "$0: This script requires a shell more modern than all" + printf "%s\n" "$0: the shells that I found on your system." + if test ${ZSH_VERSION+y} ; then + printf "%s\n" "$0: In particular, zsh $ZSH_VERSION has bugs and should" + printf "%s\n" "$0: be upgraded to zsh 4.3.4 or later." + else + printf "%s\n" "$0: Please tell bug-autoconf@gnu.org and +$0: libraries@haskell.org about your system, including any +$0: error possibly output before this message. Then install +$0: a modern shell, or manually run the script under such a +$0: shell if you do have one." + fi + exit 1 +fi +fi +fi +SHELL=${CONFIG_SHELL-/bin/sh} +export SHELL +# Unset more variables known to interfere with behavior of common tools. +CLICOLOR_FORCE= GREP_OPTIONS= +unset CLICOLOR_FORCE GREP_OPTIONS + +## --------------------- ## +## M4sh Shell Functions. ## +## --------------------- ## +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit +# as_fn_nop +# --------- +# Do nothing but, unlike ":", preserve the value of $?. +as_fn_nop () +{ + return $? +} +as_nop=as_fn_nop + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`printf "%s\n" "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +printf "%s\n" X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null +then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else $as_nop + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null +then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else $as_nop + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + +# as_fn_nop +# --------- +# Do nothing but, unlike ":", preserve the value of $?. +as_fn_nop () +{ + return $? +} +as_nop=as_fn_nop + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + printf "%s\n" "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +printf "%s\n" X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + + + as_lineno_1=$LINENO as_lineno_1a=$LINENO + as_lineno_2=$LINENO as_lineno_2a=$LINENO + eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" && + test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || { + # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-) + sed -n ' + p + /[$]LINENO/= + ' <$as_myself | + sed ' + s/[$]LINENO.*/&-/ + t lineno + b + :lineno + N + :loop + s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ + t loop + s/-\n.*// + ' >$as_me.lineno && + chmod +x "$as_me.lineno" || + { printf "%s\n" "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } + + # If we had to re-execute with $CONFIG_SHELL, we're ensured to have + # already done that, so ensure we don't try to do so again and fall + # in an infinite loop. This has already happened in practice. + _as_can_reexec=no; export _as_can_reexec + # Don't try to exec as it changes $[0], causing all sort of problems + # (the dirname of $[0] is not the place where we might find the + # original and so on. Autoconf is especially sensitive to this). + . "./$as_me.lineno" + # Exit status is that of the last command. + exit +} + + +# Determine whether it's possible to make 'echo' print without a newline. +# These variables are no longer used directly by Autoconf, but are AC_SUBSTed +# for compatibility with existing Makefiles. +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +# For backward compatibility with old third-party macros, we provide +# the shell variables $as_echo and $as_echo_n. New code should use +# AS_ECHO(["message"]) and AS_ECHO_N(["message"]), respectively. +as_echo='printf %s\n' +as_echo_n='printf %s' + + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +test -n "$DJDIR" || exec 7<&0 &1 + +# Name of the host. +# hostname on some systems (SVR3.2, old GNU/Linux) returns a bogus exit status, +# so uname gets run too. +ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q` + +# +# Initializations. +# +ac_default_prefix=/usr/local +ac_clean_files= +ac_config_libobj_dir=. +LIBOBJS= +cross_compiling=no +subdirs= +MFLAGS= +MAKEFLAGS= + +# Identity of this package. +PACKAGE_NAME='Haskell directory package' +PACKAGE_TARNAME='directory' +PACKAGE_VERSION='1.0' +PACKAGE_STRING='Haskell directory package 1.0' +PACKAGE_BUGREPORT='libraries@haskell.org' +PACKAGE_URL='' + +ac_unique_file="System/Directory.hs" +# Factoring default headers for most tests. +ac_includes_default="\ +#include +#ifdef HAVE_STDIO_H +# include +#endif +#ifdef HAVE_STDLIB_H +# include +#endif +#ifdef HAVE_STRING_H +# include +#endif +#ifdef HAVE_INTTYPES_H +# include +#endif +#ifdef HAVE_STDINT_H +# include +#endif +#ifdef HAVE_STRINGS_H +# include +#endif +#ifdef HAVE_SYS_TYPES_H +# include +#endif +#ifdef HAVE_SYS_STAT_H +# include +#endif +#ifdef HAVE_UNISTD_H +# include +#endif" + +ac_header_c_list= +ac_subst_vars='LTLIBOBJS +LIBOBJS +OBJEXT +EXEEXT +ac_ct_CC +CPPFLAGS +LDFLAGS +CFLAGS +CC +target_alias +host_alias +build_alias +LIBS +ECHO_T +ECHO_N +ECHO_C +DEFS +mandir +localedir +libdir +psdir +pdfdir +dvidir +htmldir +infodir +docdir +oldincludedir +includedir +runstatedir +localstatedir +sharedstatedir +sysconfdir +datadir +datarootdir +libexecdir +sbindir +bindir +program_transform_name +prefix +exec_prefix +PACKAGE_URL +PACKAGE_BUGREPORT +PACKAGE_STRING +PACKAGE_VERSION +PACKAGE_TARNAME +PACKAGE_NAME +PATH_SEPARATOR +SHELL' +ac_subst_files='' +ac_user_opts=' +enable_option_checking +with_gcc +with_compiler +' + ac_precious_vars='build_alias +host_alias +target_alias +CC +CFLAGS +LDFLAGS +LIBS +CPPFLAGS' + + +# Initialize some variables set by options. +ac_init_help= +ac_init_version=false +ac_unrecognized_opts= +ac_unrecognized_sep= +# The variables have the same names as the options, with +# dashes changed to underlines. +cache_file=/dev/null +exec_prefix=NONE +no_create= +no_recursion= +prefix=NONE +program_prefix=NONE +program_suffix=NONE +program_transform_name=s,x,x, +silent= +site= +srcdir= +verbose= +x_includes=NONE +x_libraries=NONE + +# Installation directory options. +# These are left unexpanded so users can "make install exec_prefix=/foo" +# and all the variables that are supposed to be based on exec_prefix +# by default will actually change. +# Use braces instead of parens because sh, perl, etc. also accept them. +# (The list follows the same order as the GNU Coding Standards.) +bindir='${exec_prefix}/bin' +sbindir='${exec_prefix}/sbin' +libexecdir='${exec_prefix}/libexec' +datarootdir='${prefix}/share' +datadir='${datarootdir}' +sysconfdir='${prefix}/etc' +sharedstatedir='${prefix}/com' +localstatedir='${prefix}/var' +runstatedir='${localstatedir}/run' +includedir='${prefix}/include' +oldincludedir='/usr/include' +docdir='${datarootdir}/doc/${PACKAGE_TARNAME}' +infodir='${datarootdir}/info' +htmldir='${docdir}' +dvidir='${docdir}' +pdfdir='${docdir}' +psdir='${docdir}' +libdir='${exec_prefix}/lib' +localedir='${datarootdir}/locale' +mandir='${datarootdir}/man' + +ac_prev= +ac_dashdash= +for ac_option +do + # If the previous option needs an argument, assign it. + if test -n "$ac_prev"; then + eval $ac_prev=\$ac_option + ac_prev= + continue + fi + + case $ac_option in + *=?*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;; + *=) ac_optarg= ;; + *) ac_optarg=yes ;; + esac + + case $ac_dashdash$ac_option in + --) + ac_dashdash=yes ;; + + -bindir | --bindir | --bindi | --bind | --bin | --bi) + ac_prev=bindir ;; + -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) + bindir=$ac_optarg ;; + + -build | --build | --buil | --bui | --bu) + ac_prev=build_alias ;; + -build=* | --build=* | --buil=* | --bui=* | --bu=*) + build_alias=$ac_optarg ;; + + -cache-file | --cache-file | --cache-fil | --cache-fi \ + | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) + ac_prev=cache_file ;; + -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ + | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) + cache_file=$ac_optarg ;; + + --config-cache | -C) + cache_file=config.cache ;; + + -datadir | --datadir | --datadi | --datad) + ac_prev=datadir ;; + -datadir=* | --datadir=* | --datadi=* | --datad=*) + datadir=$ac_optarg ;; + + -datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \ + | --dataroo | --dataro | --datar) + ac_prev=datarootdir ;; + -datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \ + | --dataroot=* | --dataroo=* | --dataro=* | --datar=*) + datarootdir=$ac_optarg ;; + + -disable-* | --disable-*) + ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'` + # Reject names that are not valid shell variable names. + expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && + as_fn_error $? "invalid feature name: \`$ac_useropt'" + ac_useropt_orig=$ac_useropt + ac_useropt=`printf "%s\n" "$ac_useropt" | sed 's/[-+.]/_/g'` + case $ac_user_opts in + *" +"enable_$ac_useropt" +"*) ;; + *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--disable-$ac_useropt_orig" + ac_unrecognized_sep=', ';; + esac + eval enable_$ac_useropt=no ;; + + -docdir | --docdir | --docdi | --doc | --do) + ac_prev=docdir ;; + -docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*) + docdir=$ac_optarg ;; + + -dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv) + ac_prev=dvidir ;; + -dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*) + dvidir=$ac_optarg ;; + + -enable-* | --enable-*) + ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` + # Reject names that are not valid shell variable names. + expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && + as_fn_error $? "invalid feature name: \`$ac_useropt'" + ac_useropt_orig=$ac_useropt + ac_useropt=`printf "%s\n" "$ac_useropt" | sed 's/[-+.]/_/g'` + case $ac_user_opts in + *" +"enable_$ac_useropt" +"*) ;; + *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--enable-$ac_useropt_orig" + ac_unrecognized_sep=', ';; + esac + eval enable_$ac_useropt=\$ac_optarg ;; + + -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ + | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ + | --exec | --exe | --ex) + ac_prev=exec_prefix ;; + -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ + | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ + | --exec=* | --exe=* | --ex=*) + exec_prefix=$ac_optarg ;; + + -gas | --gas | --ga | --g) + # Obsolete; use --with-gas. + with_gas=yes ;; + + -help | --help | --hel | --he | -h) + ac_init_help=long ;; + -help=r* | --help=r* | --hel=r* | --he=r* | -hr*) + ac_init_help=recursive ;; + -help=s* | --help=s* | --hel=s* | --he=s* | -hs*) + ac_init_help=short ;; + + -host | --host | --hos | --ho) + ac_prev=host_alias ;; + -host=* | --host=* | --hos=* | --ho=*) + host_alias=$ac_optarg ;; + + -htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht) + ac_prev=htmldir ;; + -htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \ + | --ht=*) + htmldir=$ac_optarg ;; + + -includedir | --includedir | --includedi | --included | --include \ + | --includ | --inclu | --incl | --inc) + ac_prev=includedir ;; + -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ + | --includ=* | --inclu=* | --incl=* | --inc=*) + includedir=$ac_optarg ;; + + -infodir | --infodir | --infodi | --infod | --info | --inf) + ac_prev=infodir ;; + -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) + infodir=$ac_optarg ;; + + -libdir | --libdir | --libdi | --libd) + ac_prev=libdir ;; + -libdir=* | --libdir=* | --libdi=* | --libd=*) + libdir=$ac_optarg ;; + + -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ + | --libexe | --libex | --libe) + ac_prev=libexecdir ;; + -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ + | --libexe=* | --libex=* | --libe=*) + libexecdir=$ac_optarg ;; + + -localedir | --localedir | --localedi | --localed | --locale) + ac_prev=localedir ;; + -localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*) + localedir=$ac_optarg ;; + + -localstatedir | --localstatedir | --localstatedi | --localstated \ + | --localstate | --localstat | --localsta | --localst | --locals) + ac_prev=localstatedir ;; + -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ + | --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*) + localstatedir=$ac_optarg ;; + + -mandir | --mandir | --mandi | --mand | --man | --ma | --m) + ac_prev=mandir ;; + -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) + mandir=$ac_optarg ;; + + -nfp | --nfp | --nf) + # Obsolete; use --without-fp. + with_fp=no ;; + + -no-create | --no-create | --no-creat | --no-crea | --no-cre \ + | --no-cr | --no-c | -n) + no_create=yes ;; + + -no-recursion | --no-recursion | --no-recursio | --no-recursi \ + | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) + no_recursion=yes ;; + + -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ + | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ + | --oldin | --oldi | --old | --ol | --o) + ac_prev=oldincludedir ;; + -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ + | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ + | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) + oldincludedir=$ac_optarg ;; + + -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) + ac_prev=prefix ;; + -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) + prefix=$ac_optarg ;; + + -program-prefix | --program-prefix | --program-prefi | --program-pref \ + | --program-pre | --program-pr | --program-p) + ac_prev=program_prefix ;; + -program-prefix=* | --program-prefix=* | --program-prefi=* \ + | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) + program_prefix=$ac_optarg ;; + + -program-suffix | --program-suffix | --program-suffi | --program-suff \ + | --program-suf | --program-su | --program-s) + ac_prev=program_suffix ;; + -program-suffix=* | --program-suffix=* | --program-suffi=* \ + | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) + program_suffix=$ac_optarg ;; + + -program-transform-name | --program-transform-name \ + | --program-transform-nam | --program-transform-na \ + | --program-transform-n | --program-transform- \ + | --program-transform | --program-transfor \ + | --program-transfo | --program-transf \ + | --program-trans | --program-tran \ + | --progr-tra | --program-tr | --program-t) + ac_prev=program_transform_name ;; + -program-transform-name=* | --program-transform-name=* \ + | --program-transform-nam=* | --program-transform-na=* \ + | --program-transform-n=* | --program-transform-=* \ + | --program-transform=* | --program-transfor=* \ + | --program-transfo=* | --program-transf=* \ + | --program-trans=* | --program-tran=* \ + | --progr-tra=* | --program-tr=* | --program-t=*) + program_transform_name=$ac_optarg ;; + + -pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd) + ac_prev=pdfdir ;; + -pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*) + pdfdir=$ac_optarg ;; + + -psdir | --psdir | --psdi | --psd | --ps) + ac_prev=psdir ;; + -psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*) + psdir=$ac_optarg ;; + + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil) + silent=yes ;; + + -runstatedir | --runstatedir | --runstatedi | --runstated \ + | --runstate | --runstat | --runsta | --runst | --runs \ + | --run | --ru | --r) + ac_prev=runstatedir ;; + -runstatedir=* | --runstatedir=* | --runstatedi=* | --runstated=* \ + | --runstate=* | --runstat=* | --runsta=* | --runst=* | --runs=* \ + | --run=* | --ru=* | --r=*) + runstatedir=$ac_optarg ;; + + -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) + ac_prev=sbindir ;; + -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ + | --sbi=* | --sb=*) + sbindir=$ac_optarg ;; + + -sharedstatedir | --sharedstatedir | --sharedstatedi \ + | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ + | --sharedst | --shareds | --shared | --share | --shar \ + | --sha | --sh) + ac_prev=sharedstatedir ;; + -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ + | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ + | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ + | --sha=* | --sh=*) + sharedstatedir=$ac_optarg ;; + + -site | --site | --sit) + ac_prev=site ;; + -site=* | --site=* | --sit=*) + site=$ac_optarg ;; + + -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) + ac_prev=srcdir ;; + -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) + srcdir=$ac_optarg ;; + + -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ + | --syscon | --sysco | --sysc | --sys | --sy) + ac_prev=sysconfdir ;; + -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ + | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) + sysconfdir=$ac_optarg ;; + + -target | --target | --targe | --targ | --tar | --ta | --t) + ac_prev=target_alias ;; + -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) + target_alias=$ac_optarg ;; + + -v | -verbose | --verbose | --verbos | --verbo | --verb) + verbose=yes ;; + + -version | --version | --versio | --versi | --vers | -V) + ac_init_version=: ;; + + -with-* | --with-*) + ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` + # Reject names that are not valid shell variable names. + expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && + as_fn_error $? "invalid package name: \`$ac_useropt'" + ac_useropt_orig=$ac_useropt + ac_useropt=`printf "%s\n" "$ac_useropt" | sed 's/[-+.]/_/g'` + case $ac_user_opts in + *" +"with_$ac_useropt" +"*) ;; + *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--with-$ac_useropt_orig" + ac_unrecognized_sep=', ';; + esac + eval with_$ac_useropt=\$ac_optarg ;; + + -without-* | --without-*) + ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'` + # Reject names that are not valid shell variable names. + expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && + as_fn_error $? "invalid package name: \`$ac_useropt'" + ac_useropt_orig=$ac_useropt + ac_useropt=`printf "%s\n" "$ac_useropt" | sed 's/[-+.]/_/g'` + case $ac_user_opts in + *" +"with_$ac_useropt" +"*) ;; + *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--without-$ac_useropt_orig" + ac_unrecognized_sep=', ';; + esac + eval with_$ac_useropt=no ;; + + --x) + # Obsolete; use --with-x. + with_x=yes ;; + + -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ + | --x-incl | --x-inc | --x-in | --x-i) + ac_prev=x_includes ;; + -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ + | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) + x_includes=$ac_optarg ;; + + -x-libraries | --x-libraries | --x-librarie | --x-librari \ + | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) + ac_prev=x_libraries ;; + -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ + | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) + x_libraries=$ac_optarg ;; + + -*) as_fn_error $? "unrecognized option: \`$ac_option' +Try \`$0 --help' for more information" + ;; + + *=*) + ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='` + # Reject names that are not valid shell variable names. + case $ac_envvar in #( + '' | [0-9]* | *[!_$as_cr_alnum]* ) + as_fn_error $? "invalid variable name: \`$ac_envvar'" ;; + esac + eval $ac_envvar=\$ac_optarg + export $ac_envvar ;; + + *) + # FIXME: should be removed in autoconf 3.0. + printf "%s\n" "$as_me: WARNING: you should use --build, --host, --target" >&2 + expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null && + printf "%s\n" "$as_me: WARNING: invalid host type: $ac_option" >&2 + : "${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option}" + ;; + + esac +done + +if test -n "$ac_prev"; then + ac_option=--`echo $ac_prev | sed 's/_/-/g'` + as_fn_error $? "missing argument to $ac_option" +fi + +if test -n "$ac_unrecognized_opts"; then + case $enable_option_checking in + no) ;; + fatal) as_fn_error $? "unrecognized options: $ac_unrecognized_opts" ;; + *) printf "%s\n" "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;; + esac +fi + +# Check all directory arguments for consistency. +for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \ + datadir sysconfdir sharedstatedir localstatedir includedir \ + oldincludedir docdir infodir htmldir dvidir pdfdir psdir \ + libdir localedir mandir runstatedir +do + eval ac_val=\$$ac_var + # Remove trailing slashes. + case $ac_val in + */ ) + ac_val=`expr "X$ac_val" : 'X\(.*[^/]\)' \| "X$ac_val" : 'X\(.*\)'` + eval $ac_var=\$ac_val;; + esac + # Be sure to have absolute directory names. + case $ac_val in + [\\/$]* | ?:[\\/]* ) continue;; + NONE | '' ) case $ac_var in *prefix ) continue;; esac;; + esac + as_fn_error $? "expected an absolute directory name for --$ac_var: $ac_val" +done + +# There might be people who depend on the old broken behavior: `$host' +# used to hold the argument of --host etc. +# FIXME: To remove some day. +build=$build_alias +host=$host_alias +target=$target_alias + +# FIXME: To remove some day. +if test "x$host_alias" != x; then + if test "x$build_alias" = x; then + cross_compiling=maybe + elif test "x$build_alias" != "x$host_alias"; then + cross_compiling=yes + fi +fi + +ac_tool_prefix= +test -n "$host_alias" && ac_tool_prefix=$host_alias- + +test "$silent" = yes && exec 6>/dev/null + + +ac_pwd=`pwd` && test -n "$ac_pwd" && +ac_ls_di=`ls -di .` && +ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` || + as_fn_error $? "working directory cannot be determined" +test "X$ac_ls_di" = "X$ac_pwd_ls_di" || + as_fn_error $? "pwd does not report name of working directory" + + +# Find the source files, if location was not specified. +if test -z "$srcdir"; then + ac_srcdir_defaulted=yes + # Try the directory containing this script, then the parent directory. + ac_confdir=`$as_dirname -- "$as_myself" || +$as_expr X"$as_myself" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_myself" : 'X\(//\)[^/]' \| \ + X"$as_myself" : 'X\(//\)$' \| \ + X"$as_myself" : 'X\(/\)' \| . 2>/dev/null || +printf "%s\n" X"$as_myself" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + srcdir=$ac_confdir + if test ! -r "$srcdir/$ac_unique_file"; then + srcdir=.. + fi +else + ac_srcdir_defaulted=no +fi +if test ! -r "$srcdir/$ac_unique_file"; then + test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .." + as_fn_error $? "cannot find sources ($ac_unique_file) in $srcdir" +fi +ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work" +ac_abs_confdir=`( + cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error $? "$ac_msg" + pwd)` +# When building in place, set srcdir=. +if test "$ac_abs_confdir" = "$ac_pwd"; then + srcdir=. +fi +# Remove unnecessary trailing slashes from srcdir. +# Double slashes in file names in object file debugging info +# mess up M-x gdb in Emacs. +case $srcdir in +*/) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;; +esac +for ac_var in $ac_precious_vars; do + eval ac_env_${ac_var}_set=\${${ac_var}+set} + eval ac_env_${ac_var}_value=\$${ac_var} + eval ac_cv_env_${ac_var}_set=\${${ac_var}+set} + eval ac_cv_env_${ac_var}_value=\$${ac_var} +done + +# +# Report the --help message. +# +if test "$ac_init_help" = "long"; then + # Omit some internal or obsolete options to make the list less imposing. + # This message is too long to be a string in the A/UX 3.1 sh. + cat <<_ACEOF +\`configure' configures Haskell directory package 1.0 to adapt to many kinds of systems. + +Usage: $0 [OPTION]... [VAR=VALUE]... + +To assign environment variables (e.g., CC, CFLAGS...), specify them as +VAR=VALUE. See below for descriptions of some of the useful variables. + +Defaults for the options are specified in brackets. + +Configuration: + -h, --help display this help and exit + --help=short display options specific to this package + --help=recursive display the short help of all the included packages + -V, --version display version information and exit + -q, --quiet, --silent do not print \`checking ...' messages + --cache-file=FILE cache test results in FILE [disabled] + -C, --config-cache alias for \`--cache-file=config.cache' + -n, --no-create do not create output files + --srcdir=DIR find the sources in DIR [configure dir or \`..'] + +Installation directories: + --prefix=PREFIX install architecture-independent files in PREFIX + [$ac_default_prefix] + --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX + [PREFIX] + +By default, \`make install' will install all the files in +\`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify +an installation prefix other than \`$ac_default_prefix' using \`--prefix', +for instance \`--prefix=\$HOME'. + +For better control, use the options below. + +Fine tuning of the installation directories: + --bindir=DIR user executables [EPREFIX/bin] + --sbindir=DIR system admin executables [EPREFIX/sbin] + --libexecdir=DIR program executables [EPREFIX/libexec] + --sysconfdir=DIR read-only single-machine data [PREFIX/etc] + --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com] + --localstatedir=DIR modifiable single-machine data [PREFIX/var] + --runstatedir=DIR modifiable per-process data [LOCALSTATEDIR/run] + --libdir=DIR object code libraries [EPREFIX/lib] + --includedir=DIR C header files [PREFIX/include] + --oldincludedir=DIR C header files for non-gcc [/usr/include] + --datarootdir=DIR read-only arch.-independent data root [PREFIX/share] + --datadir=DIR read-only architecture-independent data [DATAROOTDIR] + --infodir=DIR info documentation [DATAROOTDIR/info] + --localedir=DIR locale-dependent data [DATAROOTDIR/locale] + --mandir=DIR man documentation [DATAROOTDIR/man] + --docdir=DIR documentation root [DATAROOTDIR/doc/directory] + --htmldir=DIR html documentation [DOCDIR] + --dvidir=DIR dvi documentation [DOCDIR] + --pdfdir=DIR pdf documentation [DOCDIR] + --psdir=DIR ps documentation [DOCDIR] +_ACEOF + + cat <<\_ACEOF +_ACEOF +fi + +if test -n "$ac_init_help"; then + case $ac_init_help in + short | recursive ) echo "Configuration of Haskell directory package 1.0:";; + esac + cat <<\_ACEOF + +Optional Packages: + --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] + --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) +C compiler +GHC compiler + +Some influential environment variables: + CC C compiler command + CFLAGS C compiler flags + LDFLAGS linker flags, e.g. -L if you have libraries in a + nonstandard directory + LIBS libraries to pass to the linker, e.g. -l + CPPFLAGS (Objective) C/C++ preprocessor flags, e.g. -I if + you have headers in a nonstandard directory + +Use these variables to override the choices made by `configure' or to help +it to find libraries and programs with nonstandard names/locations. + +Report bugs to . +_ACEOF +ac_status=$? +fi + +if test "$ac_init_help" = "recursive"; then + # If there are subdirs, report their specific --help. + for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue + test -d "$ac_dir" || + { cd "$srcdir" && ac_pwd=`pwd` && srcdir=. && test -d "$ac_dir"; } || + continue + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`printf "%s\n" "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`printf "%s\n" "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + cd "$ac_dir" || { ac_status=$?; continue; } + # Check for configure.gnu first; this name is used for a wrapper for + # Metaconfig's "Configure" on case-insensitive file systems. + if test -f "$ac_srcdir/configure.gnu"; then + echo && + $SHELL "$ac_srcdir/configure.gnu" --help=recursive + elif test -f "$ac_srcdir/configure"; then + echo && + $SHELL "$ac_srcdir/configure" --help=recursive + else + printf "%s\n" "$as_me: WARNING: no configuration information is in $ac_dir" >&2 + fi || ac_status=$? + cd "$ac_pwd" || { ac_status=$?; break; } + done +fi + +test -n "$ac_init_help" && exit $ac_status +if $ac_init_version; then + cat <<\_ACEOF +Haskell directory package configure 1.0 +generated by GNU Autoconf 2.71 + +Copyright (C) 2021 Free Software Foundation, Inc. +This configure script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it. +_ACEOF + exit +fi + +## ------------------------ ## +## Autoconf initialization. ## +## ------------------------ ## + +# ac_fn_c_try_compile LINENO +# -------------------------- +# Try to compile conftest.$ac_ext, and return whether this succeeded. +ac_fn_c_try_compile () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + rm -f conftest.$ac_objext conftest.beam + if { { ac_try="$ac_compile" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +printf "%s\n" "$ac_try_echo"; } >&5 + (eval "$ac_compile") 2>conftest.err + ac_status=$? + if test -s conftest.err; then + grep -v '^ *+' conftest.err >conftest.er1 + cat conftest.er1 >&5 + mv -f conftest.er1 conftest.err + fi + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } && { + test -z "$ac_c_werror_flag" || + test ! -s conftest.err + } && test -s conftest.$ac_objext +then : + ac_retval=0 +else $as_nop + printf "%s\n" "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + ac_retval=1 +fi + eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno + as_fn_set_status $ac_retval + +} # ac_fn_c_try_compile + +# ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES +# ------------------------------------------------------- +# Tests whether HEADER exists and can be compiled using the include files in +# INCLUDES, setting the cache variable VAR accordingly. +ac_fn_c_check_header_compile () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 +printf %s "checking for $2... " >&6; } +if eval test \${$3+y} +then : + printf %s "(cached) " >&6 +else $as_nop + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +#include <$2> +_ACEOF +if ac_fn_c_try_compile "$LINENO" +then : + eval "$3=yes" +else $as_nop + eval "$3=no" +fi +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext +fi +eval ac_res=\$$3 + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +printf "%s\n" "$ac_res" >&6; } + eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno + +} # ac_fn_c_check_header_compile + +# ac_fn_c_try_link LINENO +# ----------------------- +# Try to link conftest.$ac_ext, and return whether this succeeded. +ac_fn_c_try_link () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + rm -f conftest.$ac_objext conftest.beam conftest$ac_exeext + if { { ac_try="$ac_link" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +printf "%s\n" "$ac_try_echo"; } >&5 + (eval "$ac_link") 2>conftest.err + ac_status=$? + if test -s conftest.err; then + grep -v '^ *+' conftest.err >conftest.er1 + cat conftest.er1 >&5 + mv -f conftest.er1 conftest.err + fi + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } && { + test -z "$ac_c_werror_flag" || + test ! -s conftest.err + } && test -s conftest$ac_exeext && { + test "$cross_compiling" = yes || + test -x conftest$ac_exeext + } +then : + ac_retval=0 +else $as_nop + printf "%s\n" "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + ac_retval=1 +fi + # Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information + # created by the PGI compiler (conftest_ipa8_conftest.oo), as it would + # interfere with the next link command; also delete a directory that is + # left behind by Apple's compiler. We do this before executing the actions. + rm -rf conftest.dSYM conftest_ipa8_conftest.oo + eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno + as_fn_set_status $ac_retval + +} # ac_fn_c_try_link + +# ac_fn_c_check_func LINENO FUNC VAR +# ---------------------------------- +# Tests whether FUNC exists, setting the cache variable VAR accordingly +ac_fn_c_check_func () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 +printf %s "checking for $2... " >&6; } +if eval test \${$3+y} +then : + printf %s "(cached) " >&6 +else $as_nop + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +/* Define $2 to an innocuous variant, in case declares $2. + For example, HP-UX 11i declares gettimeofday. */ +#define $2 innocuous_$2 + +/* System header to define __stub macros and hopefully few prototypes, + which can conflict with char $2 (); below. */ + +#include +#undef $2 + +/* Override any GCC internal prototype to avoid an error. + Use char because int might match the return type of a GCC + builtin and then its argument prototype would still apply. */ +#ifdef __cplusplus +extern "C" +#endif +char $2 (); +/* The GNU C library defines this for functions which it implements + to always fail with ENOSYS. Some functions are actually named + something starting with __ and the normal name is an alias. */ +#if defined __stub_$2 || defined __stub___$2 +choke me +#endif + +int +main (void) +{ +return $2 (); + ; + return 0; +} +_ACEOF +if ac_fn_c_try_link "$LINENO" +then : + eval "$3=yes" +else $as_nop + eval "$3=no" +fi +rm -f core conftest.err conftest.$ac_objext conftest.beam \ + conftest$ac_exeext conftest.$ac_ext +fi +eval ac_res=\$$3 + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +printf "%s\n" "$ac_res" >&6; } + eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno + +} # ac_fn_c_check_func +ac_configure_args_raw= +for ac_arg +do + case $ac_arg in + *\'*) + ac_arg=`printf "%s\n" "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append ac_configure_args_raw " '$ac_arg'" +done + +case $ac_configure_args_raw in + *$as_nl*) + ac_safe_unquote= ;; + *) + ac_unsafe_z='|&;<>()$`\\"*?[ '' ' # This string ends in space, tab. + ac_unsafe_a="$ac_unsafe_z#~" + ac_safe_unquote="s/ '\\([^$ac_unsafe_a][^$ac_unsafe_z]*\\)'/ \\1/g" + ac_configure_args_raw=` printf "%s\n" "$ac_configure_args_raw" | sed "$ac_safe_unquote"`;; +esac + +cat >config.log <<_ACEOF +This file contains any messages produced by compilers while +running configure, to aid debugging if configure makes a mistake. + +It was created by Haskell directory package $as_me 1.0, which was +generated by GNU Autoconf 2.71. Invocation command line was + + $ $0$ac_configure_args_raw + +_ACEOF +exec 5>>config.log +{ +cat <<_ASUNAME +## --------- ## +## Platform. ## +## --------- ## + +hostname = `(hostname || uname -n) 2>/dev/null | sed 1q` +uname -m = `(uname -m) 2>/dev/null || echo unknown` +uname -r = `(uname -r) 2>/dev/null || echo unknown` +uname -s = `(uname -s) 2>/dev/null || echo unknown` +uname -v = `(uname -v) 2>/dev/null || echo unknown` + +/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown` +/bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown` + +/bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` +/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` +/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` +/usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown` +/bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` +/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` +/bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` + +_ASUNAME + +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac + printf "%s\n" "PATH: $as_dir" + done +IFS=$as_save_IFS + +} >&5 + +cat >&5 <<_ACEOF + + +## ----------- ## +## Core tests. ## +## ----------- ## + +_ACEOF + + +# Keep a trace of the command line. +# Strip out --no-create and --no-recursion so they do not pile up. +# Strip out --silent because we don't want to record it for future runs. +# Also quote any args containing shell meta-characters. +# Make two passes to allow for proper duplicate-argument suppression. +ac_configure_args= +ac_configure_args0= +ac_configure_args1= +ac_must_keep_next=false +for ac_pass in 1 2 +do + for ac_arg + do + case $ac_arg in + -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil) + continue ;; + *\'*) + ac_arg=`printf "%s\n" "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + case $ac_pass in + 1) as_fn_append ac_configure_args0 " '$ac_arg'" ;; + 2) + as_fn_append ac_configure_args1 " '$ac_arg'" + if test $ac_must_keep_next = true; then + ac_must_keep_next=false # Got value, back to normal. + else + case $ac_arg in + *=* | --config-cache | -C | -disable-* | --disable-* \ + | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \ + | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \ + | -with-* | --with-* | -without-* | --without-* | --x) + case "$ac_configure_args0 " in + "$ac_configure_args1"*" '$ac_arg' "* ) continue ;; + esac + ;; + -* ) ac_must_keep_next=true ;; + esac + fi + as_fn_append ac_configure_args " '$ac_arg'" + ;; + esac + done +done +{ ac_configure_args0=; unset ac_configure_args0;} +{ ac_configure_args1=; unset ac_configure_args1;} + +# When interrupted or exit'd, cleanup temporary files, and complete +# config.log. We remove comments because anyway the quotes in there +# would cause problems or look ugly. +# WARNING: Use '\'' to represent an apostrophe within the trap. +# WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug. +trap 'exit_status=$? + # Sanitize IFS. + IFS=" "" $as_nl" + # Save into config.log some information that might help in debugging. + { + echo + + printf "%s\n" "## ---------------- ## +## Cache variables. ## +## ---------------- ##" + echo + # The following way of writing the cache mishandles newlines in values, +( + for ac_var in `(set) 2>&1 | sed -n '\''s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'\''`; do + eval ac_val=\$$ac_var + case $ac_val in #( + *${as_nl}*) + case $ac_var in #( + *_cv_*) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 +printf "%s\n" "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; + esac + case $ac_var in #( + _ | IFS | as_nl) ;; #( + BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( + *) { eval $ac_var=; unset $ac_var;} ;; + esac ;; + esac + done + (set) 2>&1 | + case $as_nl`(ac_space='\'' '\''; set) 2>&1` in #( + *${as_nl}ac_space=\ *) + sed -n \ + "s/'\''/'\''\\\\'\'''\''/g; + s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\''\\2'\''/p" + ;; #( + *) + sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" + ;; + esac | + sort +) + echo + + printf "%s\n" "## ----------------- ## +## Output variables. ## +## ----------------- ##" + echo + for ac_var in $ac_subst_vars + do + eval ac_val=\$$ac_var + case $ac_val in + *\'\''*) ac_val=`printf "%s\n" "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; + esac + printf "%s\n" "$ac_var='\''$ac_val'\''" + done | sort + echo + + if test -n "$ac_subst_files"; then + printf "%s\n" "## ------------------- ## +## File substitutions. ## +## ------------------- ##" + echo + for ac_var in $ac_subst_files + do + eval ac_val=\$$ac_var + case $ac_val in + *\'\''*) ac_val=`printf "%s\n" "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; + esac + printf "%s\n" "$ac_var='\''$ac_val'\''" + done | sort + echo + fi + + if test -s confdefs.h; then + printf "%s\n" "## ----------- ## +## confdefs.h. ## +## ----------- ##" + echo + cat confdefs.h + echo + fi + test "$ac_signal" != 0 && + printf "%s\n" "$as_me: caught signal $ac_signal" + printf "%s\n" "$as_me: exit $exit_status" + } >&5 + rm -f core *.core core.conftest.* && + rm -f -r conftest* confdefs* conf$$* $ac_clean_files && + exit $exit_status +' 0 +for ac_signal in 1 2 13 15; do + trap 'ac_signal='$ac_signal'; as_fn_exit 1' $ac_signal +done +ac_signal=0 + +# confdefs.h avoids OS command line length limits that DEFS can exceed. +rm -f -r conftest* confdefs.h + +printf "%s\n" "/* confdefs.h */" > confdefs.h + +# Predefined preprocessor variables. + +printf "%s\n" "#define PACKAGE_NAME \"$PACKAGE_NAME\"" >>confdefs.h + +printf "%s\n" "#define PACKAGE_TARNAME \"$PACKAGE_TARNAME\"" >>confdefs.h + +printf "%s\n" "#define PACKAGE_VERSION \"$PACKAGE_VERSION\"" >>confdefs.h + +printf "%s\n" "#define PACKAGE_STRING \"$PACKAGE_STRING\"" >>confdefs.h + +printf "%s\n" "#define PACKAGE_BUGREPORT \"$PACKAGE_BUGREPORT\"" >>confdefs.h + +printf "%s\n" "#define PACKAGE_URL \"$PACKAGE_URL\"" >>confdefs.h + + +# Let the site file select an alternate cache file if it wants to. +# Prefer an explicitly selected file to automatically selected ones. +if test -n "$CONFIG_SITE"; then + ac_site_files="$CONFIG_SITE" +elif test "x$prefix" != xNONE; then + ac_site_files="$prefix/share/config.site $prefix/etc/config.site" +else + ac_site_files="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" +fi + +for ac_site_file in $ac_site_files +do + case $ac_site_file in #( + */*) : + ;; #( + *) : + ac_site_file=./$ac_site_file ;; +esac + if test -f "$ac_site_file" && test -r "$ac_site_file"; then + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5 +printf "%s\n" "$as_me: loading site script $ac_site_file" >&6;} + sed 's/^/| /' "$ac_site_file" >&5 + . "$ac_site_file" \ + || { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "failed to load site script $ac_site_file +See \`config.log' for more details" "$LINENO" 5; } + fi +done + +if test -r "$cache_file"; then + # Some versions of bash will fail to source /dev/null (special files + # actually), so we avoid doing that. DJGPP emulates it as a regular file. + if test /dev/null != "$cache_file" && test -f "$cache_file"; then + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: loading cache $cache_file" >&5 +printf "%s\n" "$as_me: loading cache $cache_file" >&6;} + case $cache_file in + [\\/]* | ?:[\\/]* ) . "$cache_file";; + *) . "./$cache_file";; + esac + fi +else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: creating cache $cache_file" >&5 +printf "%s\n" "$as_me: creating cache $cache_file" >&6;} + >$cache_file +fi + +# Test code for whether the C compiler supports C89 (global declarations) +ac_c_conftest_c89_globals=' +/* Does the compiler advertise C89 conformance? + Do not test the value of __STDC__, because some compilers set it to 0 + while being otherwise adequately conformant. */ +#if !defined __STDC__ +# error "Compiler does not advertise C89 conformance" +#endif + +#include +#include +struct stat; +/* Most of the following tests are stolen from RCS 5.7 src/conf.sh. */ +struct buf { int x; }; +struct buf * (*rcsopen) (struct buf *, struct stat *, int); +static char *e (p, i) + char **p; + int i; +{ + return p[i]; +} +static char *f (char * (*g) (char **, int), char **p, ...) +{ + char *s; + va_list v; + va_start (v,p); + s = g (p, va_arg (v,int)); + va_end (v); + return s; +} + +/* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has + function prototypes and stuff, but not \xHH hex character constants. + These do not provoke an error unfortunately, instead are silently treated + as an "x". The following induces an error, until -std is added to get + proper ANSI mode. Curiously \x00 != x always comes out true, for an + array size at least. It is necessary to write \x00 == 0 to get something + that is true only with -std. */ +int osf4_cc_array ['\''\x00'\'' == 0 ? 1 : -1]; + +/* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters + inside strings and character constants. */ +#define FOO(x) '\''x'\'' +int xlc6_cc_array[FOO(a) == '\''x'\'' ? 1 : -1]; + +int test (int i, double x); +struct s1 {int (*f) (int a);}; +struct s2 {int (*f) (double a);}; +int pairnames (int, char **, int *(*)(struct buf *, struct stat *, int), + int, int);' + +# Test code for whether the C compiler supports C89 (body of main). +ac_c_conftest_c89_main=' +ok |= (argc == 0 || f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]); +' + +# Test code for whether the C compiler supports C99 (global declarations) +ac_c_conftest_c99_globals=' +// Does the compiler advertise C99 conformance? +#if !defined __STDC_VERSION__ || __STDC_VERSION__ < 199901L +# error "Compiler does not advertise C99 conformance" +#endif + +#include +extern int puts (const char *); +extern int printf (const char *, ...); +extern int dprintf (int, const char *, ...); +extern void *malloc (size_t); + +// Check varargs macros. These examples are taken from C99 6.10.3.5. +// dprintf is used instead of fprintf to avoid needing to declare +// FILE and stderr. +#define debug(...) dprintf (2, __VA_ARGS__) +#define showlist(...) puts (#__VA_ARGS__) +#define report(test,...) ((test) ? puts (#test) : printf (__VA_ARGS__)) +static void +test_varargs_macros (void) +{ + int x = 1234; + int y = 5678; + debug ("Flag"); + debug ("X = %d\n", x); + showlist (The first, second, and third items.); + report (x>y, "x is %d but y is %d", x, y); +} + +// Check long long types. +#define BIG64 18446744073709551615ull +#define BIG32 4294967295ul +#define BIG_OK (BIG64 / BIG32 == 4294967297ull && BIG64 % BIG32 == 0) +#if !BIG_OK + #error "your preprocessor is broken" +#endif +#if BIG_OK +#else + #error "your preprocessor is broken" +#endif +static long long int bignum = -9223372036854775807LL; +static unsigned long long int ubignum = BIG64; + +struct incomplete_array +{ + int datasize; + double data[]; +}; + +struct named_init { + int number; + const wchar_t *name; + double average; +}; + +typedef const char *ccp; + +static inline int +test_restrict (ccp restrict text) +{ + // See if C++-style comments work. + // Iterate through items via the restricted pointer. + // Also check for declarations in for loops. + for (unsigned int i = 0; *(text+i) != '\''\0'\''; ++i) + continue; + return 0; +} + +// Check varargs and va_copy. +static bool +test_varargs (const char *format, ...) +{ + va_list args; + va_start (args, format); + va_list args_copy; + va_copy (args_copy, args); + + const char *str = ""; + int number = 0; + float fnumber = 0; + + while (*format) + { + switch (*format++) + { + case '\''s'\'': // string + str = va_arg (args_copy, const char *); + break; + case '\''d'\'': // int + number = va_arg (args_copy, int); + break; + case '\''f'\'': // float + fnumber = va_arg (args_copy, double); + break; + default: + break; + } + } + va_end (args_copy); + va_end (args); + + return *str && number && fnumber; +} +' + +# Test code for whether the C compiler supports C99 (body of main). +ac_c_conftest_c99_main=' + // Check bool. + _Bool success = false; + success |= (argc != 0); + + // Check restrict. + if (test_restrict ("String literal") == 0) + success = true; + char *restrict newvar = "Another string"; + + // Check varargs. + success &= test_varargs ("s, d'\'' f .", "string", 65, 34.234); + test_varargs_macros (); + + // Check flexible array members. + struct incomplete_array *ia = + malloc (sizeof (struct incomplete_array) + (sizeof (double) * 10)); + ia->datasize = 10; + for (int i = 0; i < ia->datasize; ++i) + ia->data[i] = i * 1.234; + + // Check named initializers. + struct named_init ni = { + .number = 34, + .name = L"Test wide string", + .average = 543.34343, + }; + + ni.number = 58; + + int dynamic_array[ni.number]; + dynamic_array[0] = argv[0][0]; + dynamic_array[ni.number - 1] = 543; + + // work around unused variable warnings + ok |= (!success || bignum == 0LL || ubignum == 0uLL || newvar[0] == '\''x'\'' + || dynamic_array[ni.number - 1] != 543); +' + +# Test code for whether the C compiler supports C11 (global declarations) +ac_c_conftest_c11_globals=' +// Does the compiler advertise C11 conformance? +#if !defined __STDC_VERSION__ || __STDC_VERSION__ < 201112L +# error "Compiler does not advertise C11 conformance" +#endif + +// Check _Alignas. +char _Alignas (double) aligned_as_double; +char _Alignas (0) no_special_alignment; +extern char aligned_as_int; +char _Alignas (0) _Alignas (int) aligned_as_int; + +// Check _Alignof. +enum +{ + int_alignment = _Alignof (int), + int_array_alignment = _Alignof (int[100]), + char_alignment = _Alignof (char) +}; +_Static_assert (0 < -_Alignof (int), "_Alignof is signed"); + +// Check _Noreturn. +int _Noreturn does_not_return (void) { for (;;) continue; } + +// Check _Static_assert. +struct test_static_assert +{ + int x; + _Static_assert (sizeof (int) <= sizeof (long int), + "_Static_assert does not work in struct"); + long int y; +}; + +// Check UTF-8 literals. +#define u8 syntax error! +char const utf8_literal[] = u8"happens to be ASCII" "another string"; + +// Check duplicate typedefs. +typedef long *long_ptr; +typedef long int *long_ptr; +typedef long_ptr long_ptr; + +// Anonymous structures and unions -- taken from C11 6.7.2.1 Example 1. +struct anonymous +{ + union { + struct { int i; int j; }; + struct { int k; long int l; } w; + }; + int m; +} v1; +' + +# Test code for whether the C compiler supports C11 (body of main). +ac_c_conftest_c11_main=' + _Static_assert ((offsetof (struct anonymous, i) + == offsetof (struct anonymous, w.k)), + "Anonymous union alignment botch"); + v1.i = 2; + v1.w.k = 5; + ok |= v1.i != 5; +' + +# Test code for whether the C compiler supports C11 (complete). +ac_c_conftest_c11_program="${ac_c_conftest_c89_globals} +${ac_c_conftest_c99_globals} +${ac_c_conftest_c11_globals} + +int +main (int argc, char **argv) +{ + int ok = 0; + ${ac_c_conftest_c89_main} + ${ac_c_conftest_c99_main} + ${ac_c_conftest_c11_main} + return ok; +} +" + +# Test code for whether the C compiler supports C99 (complete). +ac_c_conftest_c99_program="${ac_c_conftest_c89_globals} +${ac_c_conftest_c99_globals} + +int +main (int argc, char **argv) +{ + int ok = 0; + ${ac_c_conftest_c89_main} + ${ac_c_conftest_c99_main} + return ok; +} +" + +# Test code for whether the C compiler supports C89 (complete). +ac_c_conftest_c89_program="${ac_c_conftest_c89_globals} + +int +main (int argc, char **argv) +{ + int ok = 0; + ${ac_c_conftest_c89_main} + return ok; +} +" + +as_fn_append ac_header_c_list " stdio.h stdio_h HAVE_STDIO_H" +as_fn_append ac_header_c_list " stdlib.h stdlib_h HAVE_STDLIB_H" +as_fn_append ac_header_c_list " string.h string_h HAVE_STRING_H" +as_fn_append ac_header_c_list " inttypes.h inttypes_h HAVE_INTTYPES_H" +as_fn_append ac_header_c_list " stdint.h stdint_h HAVE_STDINT_H" +as_fn_append ac_header_c_list " strings.h strings_h HAVE_STRINGS_H" +as_fn_append ac_header_c_list " sys/stat.h sys_stat_h HAVE_SYS_STAT_H" +as_fn_append ac_header_c_list " sys/types.h sys_types_h HAVE_SYS_TYPES_H" +as_fn_append ac_header_c_list " unistd.h unistd_h HAVE_UNISTD_H" +# Check that the precious variables saved in the cache have kept the same +# value. +ac_cache_corrupted=false +for ac_var in $ac_precious_vars; do + eval ac_old_set=\$ac_cv_env_${ac_var}_set + eval ac_new_set=\$ac_env_${ac_var}_set + eval ac_old_val=\$ac_cv_env_${ac_var}_value + eval ac_new_val=\$ac_env_${ac_var}_value + case $ac_old_set,$ac_new_set in + set,) + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 +printf "%s\n" "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} + ac_cache_corrupted=: ;; + ,set) + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was not set in the previous run" >&5 +printf "%s\n" "$as_me: error: \`$ac_var' was not set in the previous run" >&2;} + ac_cache_corrupted=: ;; + ,);; + *) + if test "x$ac_old_val" != "x$ac_new_val"; then + # differences in whitespace do not lead to failure. + ac_old_val_w=`echo x $ac_old_val` + ac_new_val_w=`echo x $ac_new_val` + if test "$ac_old_val_w" != "$ac_new_val_w"; then + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' has changed since the previous run:" >&5 +printf "%s\n" "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} + ac_cache_corrupted=: + else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&5 +printf "%s\n" "$as_me: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&2;} + eval $ac_var=\$ac_old_val + fi + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: former value: \`$ac_old_val'" >&5 +printf "%s\n" "$as_me: former value: \`$ac_old_val'" >&2;} + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: current value: \`$ac_new_val'" >&5 +printf "%s\n" "$as_me: current value: \`$ac_new_val'" >&2;} + fi;; + esac + # Pass precious variables to config.status. + if test "$ac_new_set" = set; then + case $ac_new_val in + *\'*) ac_arg=$ac_var=`printf "%s\n" "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; + *) ac_arg=$ac_var=$ac_new_val ;; + esac + case " $ac_configure_args " in + *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy. + *) as_fn_append ac_configure_args " '$ac_arg'" ;; + esac + fi +done +if $ac_cache_corrupted; then + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5 +printf "%s\n" "$as_me: error: changes in the environment can compromise the build" >&2;} + as_fn_error $? "run \`${MAKE-make} distclean' and/or \`rm $cache_file' + and start over" "$LINENO" 5 +fi +## -------------------- ## +## Main body of script. ## +## -------------------- ## + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + + + +# Safety check: Ensure that we are in the correct source directory. + + +ac_config_headers="$ac_config_headers HsDirectoryConfig.h" + + +# Autoconf chokes on spaces, but we may receive a path from Cabal containing +# spaces. In that case, we just ignore Cabal's suggestion. +set_with_gcc() { + case $withval in + *" "*) + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: --with-gcc ignored due to presence of spaces" >&5 +printf "%s\n" "$as_me: WARNING: --with-gcc ignored due to presence of spaces" >&2;};; + *) + CC=$withval + esac +} + +# Legacy support for setting the C compiler with Cabal<1.24 +# Newer versions use Autoconf's native `CC=...` facility + +# Check whether --with-gcc was given. +if test ${with_gcc+y} +then : + withval=$with_gcc; set_with_gcc +fi + +# avoid warnings when run via Cabal + +# Check whether --with-compiler was given. +if test ${with_compiler+y} +then : + withval=$with_compiler; +fi + + + + + + + + + + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu +if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. +set dummy ${ac_tool_prefix}gcc; ac_word=$2 +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +printf %s "checking for $ac_word... " >&6; } +if test ${ac_cv_prog_CC+y} +then : + printf %s "(cached) " >&6 +else $as_nop + if test -n "$CC"; then + ac_cv_prog_CC="$CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then + ac_cv_prog_CC="${ac_tool_prefix}gcc" + printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +CC=$ac_cv_prog_CC +if test -n "$CC"; then + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 +printf "%s\n" "$CC" >&6; } +else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } +fi + + +fi +if test -z "$ac_cv_prog_CC"; then + ac_ct_CC=$CC + # Extract the first word of "gcc", so it can be a program name with args. +set dummy gcc; ac_word=$2 +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +printf %s "checking for $ac_word... " >&6; } +if test ${ac_cv_prog_ac_ct_CC+y} +then : + printf %s "(cached) " >&6 +else $as_nop + if test -n "$ac_ct_CC"; then + ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_CC="gcc" + printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_CC=$ac_cv_prog_ac_ct_CC +if test -n "$ac_ct_CC"; then + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 +printf "%s\n" "$ac_ct_CC" >&6; } +else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } +fi + + if test "x$ac_ct_CC" = x; then + CC="" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +printf "%s\n" "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + CC=$ac_ct_CC + fi +else + CC="$ac_cv_prog_CC" +fi + +if test -z "$CC"; then + if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. +set dummy ${ac_tool_prefix}cc; ac_word=$2 +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +printf %s "checking for $ac_word... " >&6; } +if test ${ac_cv_prog_CC+y} +then : + printf %s "(cached) " >&6 +else $as_nop + if test -n "$CC"; then + ac_cv_prog_CC="$CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then + ac_cv_prog_CC="${ac_tool_prefix}cc" + printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +CC=$ac_cv_prog_CC +if test -n "$CC"; then + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 +printf "%s\n" "$CC" >&6; } +else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } +fi + + + fi +fi +if test -z "$CC"; then + # Extract the first word of "cc", so it can be a program name with args. +set dummy cc; ac_word=$2 +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +printf %s "checking for $ac_word... " >&6; } +if test ${ac_cv_prog_CC+y} +then : + printf %s "(cached) " >&6 +else $as_nop + if test -n "$CC"; then + ac_cv_prog_CC="$CC" # Let the user override the test. +else + ac_prog_rejected=no +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then + if test "$as_dir$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then + ac_prog_rejected=yes + continue + fi + ac_cv_prog_CC="cc" + printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +if test $ac_prog_rejected = yes; then + # We found a bogon in the path, so make sure we never use it. + set dummy $ac_cv_prog_CC + shift + if test $# != 0; then + # We chose a different compiler from the bogus one. + # However, it has the same basename, so the bogon will be chosen + # first if we set CC to just the basename; use the full file name. + shift + ac_cv_prog_CC="$as_dir$ac_word${1+' '}$@" + fi +fi +fi +fi +CC=$ac_cv_prog_CC +if test -n "$CC"; then + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 +printf "%s\n" "$CC" >&6; } +else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } +fi + + +fi +if test -z "$CC"; then + if test -n "$ac_tool_prefix"; then + for ac_prog in cl.exe + do + # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. +set dummy $ac_tool_prefix$ac_prog; ac_word=$2 +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +printf %s "checking for $ac_word... " >&6; } +if test ${ac_cv_prog_CC+y} +then : + printf %s "(cached) " >&6 +else $as_nop + if test -n "$CC"; then + ac_cv_prog_CC="$CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then + ac_cv_prog_CC="$ac_tool_prefix$ac_prog" + printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +CC=$ac_cv_prog_CC +if test -n "$CC"; then + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 +printf "%s\n" "$CC" >&6; } +else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } +fi + + + test -n "$CC" && break + done +fi +if test -z "$CC"; then + ac_ct_CC=$CC + for ac_prog in cl.exe +do + # Extract the first word of "$ac_prog", so it can be a program name with args. +set dummy $ac_prog; ac_word=$2 +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +printf %s "checking for $ac_word... " >&6; } +if test ${ac_cv_prog_ac_ct_CC+y} +then : + printf %s "(cached) " >&6 +else $as_nop + if test -n "$ac_ct_CC"; then + ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_CC="$ac_prog" + printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_CC=$ac_cv_prog_ac_ct_CC +if test -n "$ac_ct_CC"; then + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 +printf "%s\n" "$ac_ct_CC" >&6; } +else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } +fi + + + test -n "$ac_ct_CC" && break +done + + if test "x$ac_ct_CC" = x; then + CC="" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +printf "%s\n" "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + CC=$ac_ct_CC + fi +fi + +fi +if test -z "$CC"; then + if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}clang", so it can be a program name with args. +set dummy ${ac_tool_prefix}clang; ac_word=$2 +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +printf %s "checking for $ac_word... " >&6; } +if test ${ac_cv_prog_CC+y} +then : + printf %s "(cached) " >&6 +else $as_nop + if test -n "$CC"; then + ac_cv_prog_CC="$CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then + ac_cv_prog_CC="${ac_tool_prefix}clang" + printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +CC=$ac_cv_prog_CC +if test -n "$CC"; then + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 +printf "%s\n" "$CC" >&6; } +else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } +fi + + +fi +if test -z "$ac_cv_prog_CC"; then + ac_ct_CC=$CC + # Extract the first word of "clang", so it can be a program name with args. +set dummy clang; ac_word=$2 +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +printf %s "checking for $ac_word... " >&6; } +if test ${ac_cv_prog_ac_ct_CC+y} +then : + printf %s "(cached) " >&6 +else $as_nop + if test -n "$ac_ct_CC"; then + ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then + ac_cv_prog_ac_ct_CC="clang" + printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_CC=$ac_cv_prog_ac_ct_CC +if test -n "$ac_ct_CC"; then + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 +printf "%s\n" "$ac_ct_CC" >&6; } +else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } +fi + + if test "x$ac_ct_CC" = x; then + CC="" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +printf "%s\n" "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + CC=$ac_ct_CC + fi +else + CC="$ac_cv_prog_CC" +fi + +fi + + +test -z "$CC" && { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "no acceptable C compiler found in \$PATH +See \`config.log' for more details" "$LINENO" 5; } + +# Provide some information about the compiler. +printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5 +set X $ac_compile +ac_compiler=$2 +for ac_option in --version -v -V -qversion -version; do + { { ac_try="$ac_compiler $ac_option >&5" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +printf "%s\n" "$ac_try_echo"; } >&5 + (eval "$ac_compiler $ac_option >&5") 2>conftest.err + ac_status=$? + if test -s conftest.err; then + sed '10a\ +... rest of stderr output deleted ... + 10q' conftest.err >conftest.er1 + cat conftest.er1 >&5 + fi + rm -f conftest.er1 conftest.err + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } +done + +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main (void) +{ + + ; + return 0; +} +_ACEOF +ac_clean_files_save=$ac_clean_files +ac_clean_files="$ac_clean_files a.out a.out.dSYM a.exe b.out" +# Try to create an executable without -o first, disregard a.out. +# It will help us diagnose broken compilers, and finding out an intuition +# of exeext. +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the C compiler works" >&5 +printf %s "checking whether the C compiler works... " >&6; } +ac_link_default=`printf "%s\n" "$ac_link" | sed 's/ -o *conftest[^ ]*//'` + +# The possible output files: +ac_files="a.out conftest.exe conftest a.exe a_out.exe b.out conftest.*" + +ac_rmfiles= +for ac_file in $ac_files +do + case $ac_file in + *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; + * ) ac_rmfiles="$ac_rmfiles $ac_file";; + esac +done +rm -f $ac_rmfiles + +if { { ac_try="$ac_link_default" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +printf "%s\n" "$ac_try_echo"; } >&5 + (eval "$ac_link_default") 2>&5 + ac_status=$? + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } +then : + # Autoconf-2.13 could set the ac_cv_exeext variable to `no'. +# So ignore a value of `no', otherwise this would lead to `EXEEXT = no' +# in a Makefile. We should not override ac_cv_exeext if it was cached, +# so that the user can short-circuit this test for compilers unknown to +# Autoconf. +for ac_file in $ac_files '' +do + test -f "$ac_file" || continue + case $ac_file in + *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) + ;; + [ab].out ) + # We found the default executable, but exeext='' is most + # certainly right. + break;; + *.* ) + if test ${ac_cv_exeext+y} && test "$ac_cv_exeext" != no; + then :; else + ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` + fi + # We set ac_cv_exeext here because the later test for it is not + # safe: cross compilers may not add the suffix if given an `-o' + # argument, so we may need to know it at that point already. + # Even if this section looks crufty: it has the advantage of + # actually working. + break;; + * ) + break;; + esac +done +test "$ac_cv_exeext" = no && ac_cv_exeext= + +else $as_nop + ac_file='' +fi +if test -z "$ac_file" +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } +printf "%s\n" "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +{ { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error 77 "C compiler cannot create executables +See \`config.log' for more details" "$LINENO" 5; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } +fi +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for C compiler default output file name" >&5 +printf %s "checking for C compiler default output file name... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5 +printf "%s\n" "$ac_file" >&6; } +ac_exeext=$ac_cv_exeext + +rm -f -r a.out a.out.dSYM a.exe conftest$ac_cv_exeext b.out +ac_clean_files=$ac_clean_files_save +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5 +printf %s "checking for suffix of executables... " >&6; } +if { { ac_try="$ac_link" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +printf "%s\n" "$ac_try_echo"; } >&5 + (eval "$ac_link") 2>&5 + ac_status=$? + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } +then : + # If both `conftest.exe' and `conftest' are `present' (well, observable) +# catch `conftest.exe'. For instance with Cygwin, `ls conftest' will +# work properly (i.e., refer to `conftest.exe'), while it won't with +# `rm'. +for ac_file in conftest.exe conftest conftest.*; do + test -f "$ac_file" || continue + case $ac_file in + *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; + *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` + break;; + * ) break;; + esac +done +else $as_nop + { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "cannot compute suffix of executables: cannot compile and link +See \`config.log' for more details" "$LINENO" 5; } +fi +rm -f conftest conftest$ac_cv_exeext +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5 +printf "%s\n" "$ac_cv_exeext" >&6; } + +rm -f conftest.$ac_ext +EXEEXT=$ac_cv_exeext +ac_exeext=$EXEEXT +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +int +main (void) +{ +FILE *f = fopen ("conftest.out", "w"); + return ferror (f) || fclose (f) != 0; + + ; + return 0; +} +_ACEOF +ac_clean_files="$ac_clean_files conftest.out" +# Check that the compiler produces executables we can run. If not, either +# the compiler is broken, or we cross compile. +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5 +printf %s "checking whether we are cross compiling... " >&6; } +if test "$cross_compiling" != yes; then + { { ac_try="$ac_link" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +printf "%s\n" "$ac_try_echo"; } >&5 + (eval "$ac_link") 2>&5 + ac_status=$? + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } + if { ac_try='./conftest$ac_cv_exeext' + { { case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +printf "%s\n" "$ac_try_echo"; } >&5 + (eval "$ac_try") 2>&5 + ac_status=$? + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; }; then + cross_compiling=no + else + if test "$cross_compiling" = maybe; then + cross_compiling=yes + else + { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error 77 "cannot run C compiled programs. +If you meant to cross compile, use \`--host'. +See \`config.log' for more details" "$LINENO" 5; } + fi + fi +fi +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5 +printf "%s\n" "$cross_compiling" >&6; } + +rm -f conftest.$ac_ext conftest$ac_cv_exeext conftest.out +ac_clean_files=$ac_clean_files_save +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5 +printf %s "checking for suffix of object files... " >&6; } +if test ${ac_cv_objext+y} +then : + printf %s "(cached) " >&6 +else $as_nop + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main (void) +{ + + ; + return 0; +} +_ACEOF +rm -f conftest.o conftest.obj +if { { ac_try="$ac_compile" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +printf "%s\n" "$ac_try_echo"; } >&5 + (eval "$ac_compile") 2>&5 + ac_status=$? + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } +then : + for ac_file in conftest.o conftest.obj conftest.*; do + test -f "$ac_file" || continue; + case $ac_file in + *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM ) ;; + *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'` + break;; + esac +done +else $as_nop + printf "%s\n" "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +{ { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "cannot compute suffix of object files: cannot compile +See \`config.log' for more details" "$LINENO" 5; } +fi +rm -f conftest.$ac_cv_objext conftest.$ac_ext +fi +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext" >&5 +printf "%s\n" "$ac_cv_objext" >&6; } +OBJEXT=$ac_cv_objext +ac_objext=$OBJEXT +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the compiler supports GNU C" >&5 +printf %s "checking whether the compiler supports GNU C... " >&6; } +if test ${ac_cv_c_compiler_gnu+y} +then : + printf %s "(cached) " >&6 +else $as_nop + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main (void) +{ +#ifndef __GNUC__ + choke me +#endif + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO" +then : + ac_compiler_gnu=yes +else $as_nop + ac_compiler_gnu=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext +ac_cv_c_compiler_gnu=$ac_compiler_gnu + +fi +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5 +printf "%s\n" "$ac_cv_c_compiler_gnu" >&6; } +ac_compiler_gnu=$ac_cv_c_compiler_gnu + +if test $ac_compiler_gnu = yes; then + GCC=yes +else + GCC= +fi +ac_test_CFLAGS=${CFLAGS+y} +ac_save_CFLAGS=$CFLAGS +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5 +printf %s "checking whether $CC accepts -g... " >&6; } +if test ${ac_cv_prog_cc_g+y} +then : + printf %s "(cached) " >&6 +else $as_nop + ac_save_c_werror_flag=$ac_c_werror_flag + ac_c_werror_flag=yes + ac_cv_prog_cc_g=no + CFLAGS="-g" + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main (void) +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO" +then : + ac_cv_prog_cc_g=yes +else $as_nop + CFLAGS="" + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main (void) +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO" +then : + +else $as_nop + ac_c_werror_flag=$ac_save_c_werror_flag + CFLAGS="-g" + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main (void) +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO" +then : + ac_cv_prog_cc_g=yes +fi +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext +fi +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext +fi +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext + ac_c_werror_flag=$ac_save_c_werror_flag +fi +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5 +printf "%s\n" "$ac_cv_prog_cc_g" >&6; } +if test $ac_test_CFLAGS; then + CFLAGS=$ac_save_CFLAGS +elif test $ac_cv_prog_cc_g = yes; then + if test "$GCC" = yes; then + CFLAGS="-g -O2" + else + CFLAGS="-g" + fi +else + if test "$GCC" = yes; then + CFLAGS="-O2" + else + CFLAGS= + fi +fi +ac_prog_cc_stdc=no +if test x$ac_prog_cc_stdc = xno +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $CC option to enable C11 features" >&5 +printf %s "checking for $CC option to enable C11 features... " >&6; } +if test ${ac_cv_prog_cc_c11+y} +then : + printf %s "(cached) " >&6 +else $as_nop + ac_cv_prog_cc_c11=no +ac_save_CC=$CC +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$ac_c_conftest_c11_program +_ACEOF +for ac_arg in '' -std=gnu11 +do + CC="$ac_save_CC $ac_arg" + if ac_fn_c_try_compile "$LINENO" +then : + ac_cv_prog_cc_c11=$ac_arg +fi +rm -f core conftest.err conftest.$ac_objext conftest.beam + test "x$ac_cv_prog_cc_c11" != "xno" && break +done +rm -f conftest.$ac_ext +CC=$ac_save_CC +fi + +if test "x$ac_cv_prog_cc_c11" = xno +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 +printf "%s\n" "unsupported" >&6; } +else $as_nop + if test "x$ac_cv_prog_cc_c11" = x +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 +printf "%s\n" "none needed" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c11" >&5 +printf "%s\n" "$ac_cv_prog_cc_c11" >&6; } + CC="$CC $ac_cv_prog_cc_c11" +fi + ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c11 + ac_prog_cc_stdc=c11 +fi +fi +if test x$ac_prog_cc_stdc = xno +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $CC option to enable C99 features" >&5 +printf %s "checking for $CC option to enable C99 features... " >&6; } +if test ${ac_cv_prog_cc_c99+y} +then : + printf %s "(cached) " >&6 +else $as_nop + ac_cv_prog_cc_c99=no +ac_save_CC=$CC +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$ac_c_conftest_c99_program +_ACEOF +for ac_arg in '' -std=gnu99 -std=c99 -c99 -qlanglvl=extc1x -qlanglvl=extc99 -AC99 -D_STDC_C99= +do + CC="$ac_save_CC $ac_arg" + if ac_fn_c_try_compile "$LINENO" +then : + ac_cv_prog_cc_c99=$ac_arg +fi +rm -f core conftest.err conftest.$ac_objext conftest.beam + test "x$ac_cv_prog_cc_c99" != "xno" && break +done +rm -f conftest.$ac_ext +CC=$ac_save_CC +fi + +if test "x$ac_cv_prog_cc_c99" = xno +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 +printf "%s\n" "unsupported" >&6; } +else $as_nop + if test "x$ac_cv_prog_cc_c99" = x +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 +printf "%s\n" "none needed" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c99" >&5 +printf "%s\n" "$ac_cv_prog_cc_c99" >&6; } + CC="$CC $ac_cv_prog_cc_c99" +fi + ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c99 + ac_prog_cc_stdc=c99 +fi +fi +if test x$ac_prog_cc_stdc = xno +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $CC option to enable C89 features" >&5 +printf %s "checking for $CC option to enable C89 features... " >&6; } +if test ${ac_cv_prog_cc_c89+y} +then : + printf %s "(cached) " >&6 +else $as_nop + ac_cv_prog_cc_c89=no +ac_save_CC=$CC +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$ac_c_conftest_c89_program +_ACEOF +for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" +do + CC="$ac_save_CC $ac_arg" + if ac_fn_c_try_compile "$LINENO" +then : + ac_cv_prog_cc_c89=$ac_arg +fi +rm -f core conftest.err conftest.$ac_objext conftest.beam + test "x$ac_cv_prog_cc_c89" != "xno" && break +done +rm -f conftest.$ac_ext +CC=$ac_save_CC +fi + +if test "x$ac_cv_prog_cc_c89" = xno +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 +printf "%s\n" "unsupported" >&6; } +else $as_nop + if test "x$ac_cv_prog_cc_c89" = x +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 +printf "%s\n" "none needed" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5 +printf "%s\n" "$ac_cv_prog_cc_c89" >&6; } + CC="$CC $ac_cv_prog_cc_c89" +fi + ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c89 + ac_prog_cc_stdc=c89 +fi +fi + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + + +# check for specific header (.h) files that we are interested in + +ac_header= ac_cache= +for ac_item in $ac_header_c_list +do + if test $ac_cache; then + ac_fn_c_check_header_compile "$LINENO" $ac_header ac_cv_header_$ac_cache "$ac_includes_default" + if eval test \"x\$ac_cv_header_$ac_cache\" = xyes; then + printf "%s\n" "#define $ac_item 1" >> confdefs.h + fi + ac_header= ac_cache= + elif test $ac_header; then + ac_cache=$ac_item + else + ac_header=$ac_item + fi +done + + + + + + + + +if test $ac_cv_header_stdlib_h = yes && test $ac_cv_header_string_h = yes +then : + +printf "%s\n" "#define STDC_HEADERS 1" >>confdefs.h + +fi +ac_fn_c_check_header_compile "$LINENO" "fcntl.h" "ac_cv_header_fcntl_h" "$ac_includes_default" +if test "x$ac_cv_header_fcntl_h" = xyes +then : + printf "%s\n" "#define HAVE_FCNTL_H 1" >>confdefs.h + +fi +ac_fn_c_check_header_compile "$LINENO" "limits.h" "ac_cv_header_limits_h" "$ac_includes_default" +if test "x$ac_cv_header_limits_h" = xyes +then : + printf "%s\n" "#define HAVE_LIMITS_H 1" >>confdefs.h + +fi +ac_fn_c_check_header_compile "$LINENO" "sys/types.h" "ac_cv_header_sys_types_h" "$ac_includes_default" +if test "x$ac_cv_header_sys_types_h" = xyes +then : + printf "%s\n" "#define HAVE_SYS_TYPES_H 1" >>confdefs.h + +fi +ac_fn_c_check_header_compile "$LINENO" "sys/stat.h" "ac_cv_header_sys_stat_h" "$ac_includes_default" +if test "x$ac_cv_header_sys_stat_h" = xyes +then : + printf "%s\n" "#define HAVE_SYS_STAT_H 1" >>confdefs.h + +fi +ac_fn_c_check_header_compile "$LINENO" "time.h" "ac_cv_header_time_h" "$ac_includes_default" +if test "x$ac_cv_header_time_h" = xyes +then : + printf "%s\n" "#define HAVE_TIME_H 1" >>confdefs.h + +fi + + +ac_fn_c_check_func "$LINENO" "realpath" "ac_cv_func_realpath" +if test "x$ac_cv_func_realpath" = xyes +then : + printf "%s\n" "#define HAVE_REALPATH 1" >>confdefs.h + +fi + +ac_fn_c_check_func "$LINENO" "utimensat" "ac_cv_func_utimensat" +if test "x$ac_cv_func_utimensat" = xyes +then : + printf "%s\n" "#define HAVE_UTIMENSAT 1" >>confdefs.h + +fi + +ac_fn_c_check_func "$LINENO" "CreateSymbolicLinkW" "ac_cv_func_CreateSymbolicLinkW" +if test "x$ac_cv_func_CreateSymbolicLinkW" = xyes +then : + printf "%s\n" "#define HAVE_CREATESYMBOLICLINKW 1" >>confdefs.h + +fi + +ac_fn_c_check_func "$LINENO" "GetFinalPathNameByHandleW" "ac_cv_func_GetFinalPathNameByHandleW" +if test "x$ac_cv_func_GetFinalPathNameByHandleW" = xyes +then : + printf "%s\n" "#define HAVE_GETFINALPATHNAMEBYHANDLEW 1" >>confdefs.h + +fi + + +# EXTEXT is defined automatically by AC_PROG_CC; +# we just need to capture it in the header file + +printf "%s\n" "#define EXE_EXTENSION \"$EXEEXT\"" >>confdefs.h + + +cat >confcache <<\_ACEOF +# This file is a shell script that caches the results of configure +# tests run on this system so they can be shared between configure +# scripts and configure runs, see configure's option --config-cache. +# It is not useful on other systems. If it contains results you don't +# want to keep, you may remove or edit it. +# +# config.status only pays attention to the cache file if you give it +# the --recheck option to rerun configure. +# +# `ac_cv_env_foo' variables (set or unset) will be overridden when +# loading this file, other *unset* `ac_cv_foo' will be assigned the +# following values. + +_ACEOF + +# The following way of writing the cache mishandles newlines in values, +# but we know of no workaround that is simple, portable, and efficient. +# So, we kill variables containing newlines. +# Ultrix sh set writes to stderr and can't be redirected directly, +# and sets the high bit in the cache file unless we assign to the vars. +( + for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do + eval ac_val=\$$ac_var + case $ac_val in #( + *${as_nl}*) + case $ac_var in #( + *_cv_*) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 +printf "%s\n" "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; + esac + case $ac_var in #( + _ | IFS | as_nl) ;; #( + BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( + *) { eval $ac_var=; unset $ac_var;} ;; + esac ;; + esac + done + + (set) 2>&1 | + case $as_nl`(ac_space=' '; set) 2>&1` in #( + *${as_nl}ac_space=\ *) + # `set' does not quote correctly, so add quotes: double-quote + # substitution turns \\\\ into \\, and sed turns \\ into \. + sed -n \ + "s/'/'\\\\''/g; + s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p" + ;; #( + *) + # `set' quotes correctly as required by POSIX, so do not add quotes. + sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" + ;; + esac | + sort +) | + sed ' + /^ac_cv_env_/b end + t clear + :clear + s/^\([^=]*\)=\(.*[{}].*\)$/test ${\1+y} || &/ + t end + s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/ + :end' >>confcache +if diff "$cache_file" confcache >/dev/null 2>&1; then :; else + if test -w "$cache_file"; then + if test "x$cache_file" != "x/dev/null"; then + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5 +printf "%s\n" "$as_me: updating cache $cache_file" >&6;} + if test ! -f "$cache_file" || test -h "$cache_file"; then + cat confcache >"$cache_file" + else + case $cache_file in #( + */* | ?:*) + mv -f confcache "$cache_file"$$ && + mv -f "$cache_file"$$ "$cache_file" ;; #( + *) + mv -f confcache "$cache_file" ;; + esac + fi + fi + else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5 +printf "%s\n" "$as_me: not updating unwritable cache $cache_file" >&6;} + fi +fi +rm -f confcache + +test "x$prefix" = xNONE && prefix=$ac_default_prefix +# Let make expand exec_prefix. +test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' + +DEFS=-DHAVE_CONFIG_H + +ac_libobjs= +ac_ltlibobjs= +U= +for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue + # 1. Remove the extension, and $U if already installed. + ac_script='s/\$U\././;s/\.o$//;s/\.obj$//' + ac_i=`printf "%s\n" "$ac_i" | sed "$ac_script"` + # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR + # will be set to the directory where LIBOBJS objects are built. + as_fn_append ac_libobjs " \${LIBOBJDIR}$ac_i\$U.$ac_objext" + as_fn_append ac_ltlibobjs " \${LIBOBJDIR}$ac_i"'$U.lo' +done +LIBOBJS=$ac_libobjs + +LTLIBOBJS=$ac_ltlibobjs + + + +: "${CONFIG_STATUS=./config.status}" +ac_write_fail=0 +ac_clean_files_save=$ac_clean_files +ac_clean_files="$ac_clean_files $CONFIG_STATUS" +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5 +printf "%s\n" "$as_me: creating $CONFIG_STATUS" >&6;} +as_write_fail=0 +cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1 +#! $SHELL +# Generated by $as_me. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=\${CONFIG_SHELL-$SHELL} +export SHELL +_ASEOF +cat >>$CONFIG_STATUS <<\_ASEOF || as_write_fail=1 +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +as_nop=: +if test ${ZSH_VERSION+y} && (emulate sh) >/dev/null 2>&1 +then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else $as_nop + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + + +# Reset variables that may have inherited troublesome values from +# the environment. + +# IFS needs to be set, to space, tab, and newline, in precisely that order. +# (If _AS_PATH_WALK were called with IFS unset, it would have the +# side effect of setting IFS to empty, thus disabling word splitting.) +# Quoting is to prevent editors from complaining about space-tab. +as_nl=' +' +export as_nl +IFS=" "" $as_nl" + +PS1='$ ' +PS2='> ' +PS4='+ ' + +# Ensure predictable behavior from utilities with locale-dependent output. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# We cannot yet rely on "unset" to work, but we need these variables +# to be unset--not just set to an empty or harmless value--now, to +# avoid bugs in old shells (e.g. pre-3.0 UWIN ksh). This construct +# also avoids known problems related to "unset" and subshell syntax +# in other old shells (e.g. bash 2.01 and pdksh 5.2.14). +for as_var in BASH_ENV ENV MAIL MAILPATH CDPATH +do eval test \${$as_var+y} \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done + +# Ensure that fds 0, 1, and 2 are open. +if (exec 3>&0) 2>/dev/null; then :; else exec 0&1) 2>/dev/null; then :; else exec 1>/dev/null; fi +if (exec 3>&2) ; then :; else exec 2>/dev/null; fi + +# The user is always right. +if ${PATH_SEPARATOR+false} :; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac + test -r "$as_dir$0" && as_myself=$as_dir$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + printf "%s\n" "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + printf "%s\n" "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset + +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null +then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else $as_nop + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null +then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else $as_nop + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +printf "%s\n" X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + + +# Determine whether it's possible to make 'echo' print without a newline. +# These variables are no longer used directly by Autoconf, but are AC_SUBSTed +# for compatibility with existing Makefiles. +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +# For backward compatibility with old third-party macros, we provide +# the shell variables $as_echo and $as_echo_n. New code should use +# AS_ECHO(["message"]) and AS_ECHO_N(["message"]), respectively. +as_echo='printf %s\n' +as_echo_n='printf %s' + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`printf "%s\n" "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +printf "%s\n" X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +_ASEOF +test $as_write_fail = 0 && chmod +x $CONFIG_STATUS || ac_write_fail=1 + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by Haskell directory package $as_me 1.0, which was +generated by GNU Autoconf 2.71. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +_ACEOF + + +case $ac_config_headers in *" +"*) set x $ac_config_headers; shift; ac_config_headers=$*;; +esac + + +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +# Files that config.status was made for. +config_headers="$ac_config_headers" + +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration headers: +$config_headers + +Report bugs to ." + +_ACEOF +ac_cs_config=`printf "%s\n" "$ac_configure_args" | sed "$ac_safe_unquote"` +ac_cs_config_escaped=`printf "%s\n" "$ac_cs_config" | sed "s/^ //; s/'/'\\\\\\\\''/g"` +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +ac_cs_config='$ac_cs_config_escaped' +ac_cs_version="\\ +Haskell directory package config.status 1.0 +configured by $0, generated by GNU Autoconf 2.71, + with options \\"\$ac_cs_config\\" + +Copyright (C) 2021 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='$ac_pwd' +srcdir='$srcdir' +test -n "\$AWK" || AWK=awk +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + printf "%s\n" "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + printf "%s\n" "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`printf "%s\n" "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + printf "%s\n" "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +if \$ac_cs_recheck; then + set X $SHELL '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion + shift + \printf "%s\n" "running CONFIG_SHELL=$SHELL \$*" >&6 + CONFIG_SHELL='$SHELL' + export CONFIG_SHELL + exec "\$@" +fi + +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + printf "%s\n" "$ac_log" +} >&5 + +_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "HsDirectoryConfig.h") CONFIG_HEADERS="$CONFIG_HEADERS HsDirectoryConfig.h" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test ${CONFIG_HEADERS+y} || CONFIG_HEADERS=$config_headers +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +_ACEOF + +# Transform confdefs.h into an awk script `defines.awk', embedded as +# here-document in config.status, that substitutes the proper values into +# config.h.in to produce config.h. + +# Create a delimiter string that does not exist in confdefs.h, to ease +# handling of long lines. +ac_delim='%!_!# ' +for ac_last_try in false false :; do + ac_tt=`sed -n "/$ac_delim/p" confdefs.h` + if test -z "$ac_tt"; then + break + elif $ac_last_try; then + as_fn_error $? "could not make $CONFIG_HEADERS" "$LINENO" 5 + else + ac_delim="$ac_delim!$ac_delim _$ac_delim!! " + fi +done + +# For the awk script, D is an array of macro values keyed by name, +# likewise P contains macro parameters if any. Preserve backslash +# newline sequences. + +ac_word_re=[_$as_cr_Letters][_$as_cr_alnum]* +sed -n ' +s/.\{148\}/&'"$ac_delim"'/g +t rset +:rset +s/^[ ]*#[ ]*define[ ][ ]*/ / +t def +d +:def +s/\\$// +t bsnl +s/["\\]/\\&/g +s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ +D["\1"]=" \3"/p +s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2"/p +d +:bsnl +s/["\\]/\\&/g +s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ +D["\1"]=" \3\\\\\\n"\\/p +t cont +s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2\\\\\\n"\\/p +t cont +d +:cont +n +s/.\{148\}/&'"$ac_delim"'/g +t clear +:clear +s/\\$// +t bsnlc +s/["\\]/\\&/g; s/^/"/; s/$/"/p +d +:bsnlc +s/["\\]/\\&/g; s/^/"/; s/$/\\\\\\n"\\/p +b cont +' >$CONFIG_STATUS || ac_write_fail=1 + +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+$ac_word_re([\t (]|\$)/ { + line = \$ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :H $CONFIG_HEADERS " +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`printf "%s\n" "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + printf "%s\n" "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +printf "%s\n" "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`printf "%s\n" "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +printf "%s\n" X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`printf "%s\n" "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`printf "%s\n" "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + printf "%s\n" "/* $configure_input */" >&1 \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +printf "%s\n" "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + printf "%s\n" "/* $configure_input */" >&1 \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi + ;; + + + esac + +done # for ac_tag + + +as_fn_exit 0 +_ACEOF +ac_clean_files=$ac_clean_files_save + +test $ac_write_fail = 0 || + as_fn_error $? "write failure creating $CONFIG_STATUS" "$LINENO" 5 + + +# configure is writing to config.log, and then calls config.status. +# config.status does its own redirection, appending to config.log. +# Unfortunately, on DOS this fails, as config.log is still kept open +# by configure, so config.status won't be able to write to it; its +# output is simply discarded. So we exec the FD to /dev/null, +# effectively closing config.log, so it can be properly (re)opened and +# appended to by config.status. When coming back to configure, we +# need to make the FD available again. +if test "$no_create" != yes; then + ac_cs_success=: + ac_config_status_args= + test "$silent" = yes && + ac_config_status_args="$ac_config_status_args --quiet" + exec 5>/dev/null + $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false + exec 5>>config.log + # Use ||, not &&, to avoid exiting from the if with $? = 1, which + # would make configure fail if this is the last instruction. + $ac_cs_success || as_fn_exit 1 +fi +if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5 +printf "%s\n" "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;} +fi + diff --git a/configure.ac b/configure.ac --- a/configure.ac +++ b/configure.ac @@ -1,16 +1,43 @@ AC_INIT([Haskell directory package], [1.0], [libraries@haskell.org], [directory]) # Safety check: Ensure that we are in the correct source directory. -AC_CONFIG_SRCDIR([include/HsDirectory.h]) +AC_CONFIG_SRCDIR([System/Directory.hs]) -AC_CONFIG_HEADERS([include/HsDirectoryConfig.h]) +AC_CONFIG_HEADERS([HsDirectoryConfig.h]) -AC_ARG_WITH([cc], +# Autoconf chokes on spaces, but we may receive a path from Cabal containing +# spaces. In that case, we just ignore Cabal's suggestion. +set_with_gcc() { + case $withval in + *" "*) + AC_MSG_WARN([--with-gcc ignored due to presence of spaces]);; + *) + CC=$withval + esac +} + +# Legacy support for setting the C compiler with Cabal<1.24 +# Newer versions use Autoconf's native `CC=...` facility +AC_ARG_WITH([gcc], [C compiler], - [CC=$withval]) + [set_with_gcc]) +# avoid warnings when run via Cabal +AC_ARG_WITH([compiler], + [GHC compiler], + []) AC_PROG_CC() # check for specific header (.h) files that we are interested in -AC_CHECK_HEADERS([sys/types.h unistd.h sys/stat.h]) +AC_CHECK_HEADERS([fcntl.h limits.h sys/types.h sys/stat.h time.h]) + +AC_CHECK_FUNCS([realpath]) +AC_CHECK_FUNCS([utimensat]) +AC_CHECK_FUNCS([CreateSymbolicLinkW]) +AC_CHECK_FUNCS([GetFinalPathNameByHandleW]) + +# EXTEXT is defined automatically by AC_PROG_CC; +# we just need to capture it in the header file +AC_DEFINE_UNQUOTED([EXE_EXTENSION], ["$EXEEXT"], + [Filename extension of executable files]) AC_OUTPUT diff --git a/directory.cabal b/directory.cabal --- a/directory.cabal +++ b/directory.cabal @@ -1,43 +1,121 @@ -name: directory -version: 1.0.1.2 -license: BSD3 -license-file: LICENSE -maintainer: libraries@haskell.org -bug-reports: http://hackage.haskell.org/trac/ghc/newticket?component=libraries/directory -synopsis: library for directory handling +cabal-version: 2.2 +name: directory +version: 1.3.11.0 +license: BSD-3-Clause +license-file: LICENSE +maintainer: libraries@haskell.org +bug-reports: https://github.com/haskell/directory/issues +synopsis: Platform-agnostic library for filesystem operations description: - This package provides a library for handling directories. + This library provides a basic set of operations for manipulating files and + directories in a portable way. category: System -build-type: Configure +build-type: Configure +tested-with: GHC == 8.10.7 || == 9.0.2 || == 9.2.4 || == 9.4.3 + extra-tmp-files: - config.log config.status autom4te.cache - include/HsDirectoryConfig.h + autom4te.cache + config.log + config.status + HsDirectoryConfig.h + +extra-doc-files: + README.md + changelog.md + extra-source-files: - config.guess config.sub install-sh - configure.ac configure include/HsDirectoryConfig.h.in -cabal-version: >= 1.6 + HsDirectoryConfig.h.in + System/Directory/Internal/*.h + configure + configure.ac + tests/*.hs source-repository head - type: darcs - location: http://darcs.haskell.org/packages/directory/ + type: git + location: https://github.com/haskell/directory -Library { +Library + default-language: Haskell2010 + other-extensions: CApiFFI, CPP + exposed-modules: - System.Directory - c-sources: - cbits/directory.c - include-dirs: include - includes: HsDirectory.h - install-includes: HsDirectory.h HsDirectoryConfig.h - extensions: CPP, ForeignFunctionInterface - build-depends: base >= 4.2 && < 4.4, - old-time >= 1.0 && < 1.1, - filepath >= 1.1 && < 1.3 - if !impl(nhc98) { - if os(windows) { - build-depends: Win32 - } else { - build-depends: unix - } - } -} + System.Directory + System.Directory.OsPath + System.Directory.Internal + System.Directory.Internal.Prelude + other-modules: + System.Directory.Internal.C_utimensat + System.Directory.Internal.Common + System.Directory.Internal.Config + System.Directory.Internal.Posix + System.Directory.Internal.Windows + + include-dirs: . + + build-depends: + base >= 4.13.0 && < 4.23, + file-io >= 0.1.4 && < 0.3, + time >= 1.8.0 && < 1.17, + if os(windows) + build-depends: Win32 >= 2.14.1.0 && < 2.15 + else + build-depends: unix >= 2.8.0 && < 2.9 + + if impl(ghc >= 9.2) + build-depends: filepath >= 1.5.0 && < 1.6, + os-string >= 2.0.0 && < 2.1, + else + build-depends: filepath >= 1.4.100 && < 1.5 + + ghc-options: -Wall + +test-suite test + default-language: Haskell2010 + other-extensions: BangPatterns, CPP + default-extensions: OverloadedStrings + ghc-options: -Wall + hs-source-dirs: tests + main-is: Main.hs + type: exitcode-stdio-1.0 + build-depends: base, directory, filepath, time + if os(windows) + build-depends: Win32 + else + build-depends: unix + other-modules: + TestUtils + Util + -- test-modules-begin + CanonicalizePath + CopyFile001 + CopyFile002 + CopyFileWithMetadata + CreateDirectory001 + CreateDirectoryIfMissing001 + CurrentDirectory001 + Directory001 + DoesDirectoryExist001 + DoesPathExist + FileTime + FindExecutable + FindFile001 + GetDirContents001 + GetDirContents002 + GetFileSize + GetHomeDirectory001 + GetHomeDirectory002 + GetPermissions001 + LongPaths + MakeAbsolute + MinimizeNameConflicts + PathIsSymbolicLink + RemoveDirectoryRecursive001 + RemovePathForcibly + RenameDirectory + RenameFile001 + RenamePath + Simplify + T8482 + WithCurrentDirectory + Xdg + -- test-modules-end diff --git a/include/HsDirectory.h b/include/HsDirectory.h deleted file mode 100644 --- a/include/HsDirectory.h +++ /dev/null @@ -1,74 +0,0 @@ -/* ----------------------------------------------------------------------------- - * - * (c) The University of Glasgow 2001-2004 - * - * Definitions for package `directory' which are visible in Haskell land. - * - * ---------------------------------------------------------------------------*/ - -#ifndef __HSDIRECTORY_H__ -#define __HSDIRECTORY_H__ - -#ifdef __NHC__ -#include "Nhc98BaseConfig.h" -#else - -// On Solaris we have to make sure _FILE_OFFSET_BITS is defined -// before including below, because that header -// will try and define it if it isn't already. -#include "HsFFI.h" - -#include "HsDirectoryConfig.h" -#endif -// Otherwise these clash with similar definitions from other packages: -#undef PACKAGE_BUGREPORT -#undef PACKAGE_NAME -#undef PACKAGE_STRING -#undef PACKAGE_TARNAME -#undef PACKAGE_VERSION - -#if HAVE_SYS_STAT_H -#include -#endif - -#if HAVE_SYS_TYPES_H -#include -#endif - -#include "HsFFI.h" - -/* ----------------------------------------------------------------------------- - INLINE functions. - - These functions are given as inlines here for when compiling via C, - but we also generate static versions into the cbits library for - when compiling to native code. - -------------------------------------------------------------------------- */ - -#ifndef INLINE -# if defined(_MSC_VER) -# define INLINE extern __inline -# else -# define INLINE static inline -# endif -#endif - -/* A size that will contain many path names, but not necessarily all - * (PATH_MAX is not defined on systems with unlimited path length, - * e.g. the Hurd). - */ -INLINE HsInt __hscore_long_path_size() { -#ifdef PATH_MAX - return PATH_MAX; -#else - return 4096; -#endif -} - -INLINE mode_t __hscore_S_IRUSR() { return S_IRUSR; } -INLINE mode_t __hscore_S_IWUSR() { return S_IWUSR; } -INLINE mode_t __hscore_S_IXUSR() { return S_IXUSR; } -INLINE mode_t __hscore_S_IFDIR() { return S_IFDIR; } - -#endif /* __HSDIRECTORY_H__ */ - diff --git a/include/HsDirectoryConfig.h b/include/HsDirectoryConfig.h deleted file mode 100644 --- a/include/HsDirectoryConfig.h +++ /dev/null @@ -1,47 +0,0 @@ -/* include/HsDirectoryConfig.h. Generated from HsDirectoryConfig.h.in by configure. */ -/* include/HsDirectoryConfig.h.in. Generated from configure.ac by autoheader. */ - -/* Define to 1 if you have the header file. */ -#define HAVE_INTTYPES_H 1 - -/* Define to 1 if you have the header file. */ -#define HAVE_MEMORY_H 1 - -/* Define to 1 if you have the header file. */ -#define HAVE_STDINT_H 1 - -/* Define to 1 if you have the header file. */ -#define HAVE_STDLIB_H 1 - -/* Define to 1 if you have the header file. */ -#define HAVE_STRINGS_H 1 - -/* Define to 1 if you have the header file. */ -#define HAVE_STRING_H 1 - -/* Define to 1 if you have the header file. */ -#define HAVE_SYS_STAT_H 1 - -/* Define to 1 if you have the header file. */ -#define HAVE_SYS_TYPES_H 1 - -/* Define to 1 if you have the header file. */ -#define HAVE_UNISTD_H 1 - -/* Define to the address where bug reports for this package should be sent. */ -#define PACKAGE_BUGREPORT "libraries@haskell.org" - -/* Define to the full name of this package. */ -#define PACKAGE_NAME "Haskell directory package" - -/* Define to the full name and version of this package. */ -#define PACKAGE_STRING "Haskell directory package 1.0" - -/* Define to the one symbol short name of this package. */ -#define PACKAGE_TARNAME "directory" - -/* Define to the version of this package. */ -#define PACKAGE_VERSION "1.0" - -/* Define to 1 if you have the ANSI C header files. */ -#define STDC_HEADERS 1 diff --git a/include/HsDirectoryConfig.h.in b/include/HsDirectoryConfig.h.in deleted file mode 100644 --- a/include/HsDirectoryConfig.h.in +++ /dev/null @@ -1,46 +0,0 @@ -/* include/HsDirectoryConfig.h.in. Generated from configure.ac by autoheader. */ - -/* Define to 1 if you have the header file. */ -#undef HAVE_INTTYPES_H - -/* Define to 1 if you have the header file. */ -#undef HAVE_MEMORY_H - -/* Define to 1 if you have the header file. */ -#undef HAVE_STDINT_H - -/* Define to 1 if you have the header file. */ -#undef HAVE_STDLIB_H - -/* Define to 1 if you have the header file. */ -#undef HAVE_STRINGS_H - -/* Define to 1 if you have the header file. */ -#undef HAVE_STRING_H - -/* Define to 1 if you have the header file. */ -#undef HAVE_SYS_STAT_H - -/* Define to 1 if you have the header file. */ -#undef HAVE_SYS_TYPES_H - -/* Define to 1 if you have the header file. */ -#undef HAVE_UNISTD_H - -/* Define to the address where bug reports for this package should be sent. */ -#undef PACKAGE_BUGREPORT - -/* Define to the full name of this package. */ -#undef PACKAGE_NAME - -/* Define to the full name and version of this package. */ -#undef PACKAGE_STRING - -/* Define to the one symbol short name of this package. */ -#undef PACKAGE_TARNAME - -/* Define to the version of this package. */ -#undef PACKAGE_VERSION - -/* Define to 1 if you have the ANSI C header files. */ -#undef STDC_HEADERS diff --git a/install-sh b/install-sh deleted file mode 100644 --- a/install-sh +++ /dev/null @@ -1,507 +0,0 @@ -#!/bin/sh -# install - install a program, script, or datafile - -scriptversion=2006-10-14.15 - -# This originates from X11R5 (mit/util/scripts/install.sh), which was -# later released in X11R6 (xc/config/util/install.sh) with the -# following copyright and license. -# -# Copyright (C) 1994 X Consortium -# -# Permission is hereby granted, free of charge, to any person obtaining a copy -# of this software and associated documentation files (the "Software"), to -# deal in the Software without restriction, including without limitation the -# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or -# sell copies of the Software, and to permit persons to whom the Software is -# furnished to do so, subject to the following conditions: -# -# The above copyright notice and this permission notice shall be included in -# all copies or substantial portions of the Software. -# -# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -# X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN -# AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC- -# TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -# -# Except as contained in this notice, the name of the X Consortium shall not -# be used in advertising or otherwise to promote the sale, use or other deal- -# ings in this Software without prior written authorization from the X Consor- -# tium. -# -# -# FSF changes to this file are in the public domain. -# -# Calling this script install-sh is preferred over install.sh, to prevent -# `make' implicit rules from creating a file called install from it -# when there is no Makefile. -# -# This script is compatible with the BSD install script, but was written -# from scratch. - -nl=' -' -IFS=" "" $nl" - -# set DOITPROG to echo to test this script - -# Don't use :- since 4.3BSD and earlier shells don't like it. -doit="${DOITPROG-}" -if test -z "$doit"; then - doit_exec=exec -else - doit_exec=$doit -fi - -# Put in absolute file names if you don't have them in your path; -# or use environment vars. - -mvprog="${MVPROG-mv}" -cpprog="${CPPROG-cp}" -chmodprog="${CHMODPROG-chmod}" -chownprog="${CHOWNPROG-chown}" -chgrpprog="${CHGRPPROG-chgrp}" -stripprog="${STRIPPROG-strip}" -rmprog="${RMPROG-rm}" -mkdirprog="${MKDIRPROG-mkdir}" - -posix_glob= -posix_mkdir= - -# Desired mode of installed file. -mode=0755 - -chmodcmd=$chmodprog -chowncmd= -chgrpcmd= -stripcmd= -rmcmd="$rmprog -f" -mvcmd="$mvprog" -src= -dst= -dir_arg= -dstarg= -no_target_directory= - -usage="Usage: $0 [OPTION]... [-T] SRCFILE DSTFILE - or: $0 [OPTION]... SRCFILES... DIRECTORY - or: $0 [OPTION]... -t DIRECTORY SRCFILES... - or: $0 [OPTION]... -d DIRECTORIES... - -In the 1st form, copy SRCFILE to DSTFILE. -In the 2nd and 3rd, copy all SRCFILES to DIRECTORY. -In the 4th, create DIRECTORIES. - -Options: --c (ignored) --d create directories instead of installing files. --g GROUP $chgrpprog installed files to GROUP. --m MODE $chmodprog installed files to MODE. --o USER $chownprog installed files to USER. --s $stripprog installed files. --t DIRECTORY install into DIRECTORY. --T report an error if DSTFILE is a directory. ---help display this help and exit. ---version display version info and exit. - -Environment variables override the default commands: - CHGRPPROG CHMODPROG CHOWNPROG CPPROG MKDIRPROG MVPROG RMPROG STRIPPROG -" - -while test $# -ne 0; do - case $1 in - -c) shift - continue;; - - -d) dir_arg=true - shift - continue;; - - -g) chgrpcmd="$chgrpprog $2" - shift - shift - continue;; - - --help) echo "$usage"; exit $?;; - - -m) mode=$2 - shift - shift - case $mode in - *' '* | *' '* | *' -'* | *'*'* | *'?'* | *'['*) - echo "$0: invalid mode: $mode" >&2 - exit 1;; - esac - continue;; - - -o) chowncmd="$chownprog $2" - shift - shift - continue;; - - -s) stripcmd=$stripprog - shift - continue;; - - -t) dstarg=$2 - shift - shift - continue;; - - -T) no_target_directory=true - shift - continue;; - - --version) echo "$0 $scriptversion"; exit $?;; - - --) shift - break;; - - -*) echo "$0: invalid option: $1" >&2 - exit 1;; - - *) break;; - esac -done - -if test $# -ne 0 && test -z "$dir_arg$dstarg"; then - # When -d is used, all remaining arguments are directories to create. - # When -t is used, the destination is already specified. - # Otherwise, the last argument is the destination. Remove it from $@. - for arg - do - if test -n "$dstarg"; then - # $@ is not empty: it contains at least $arg. - set fnord "$@" "$dstarg" - shift # fnord - fi - shift # arg - dstarg=$arg - done -fi - -if test $# -eq 0; then - if test -z "$dir_arg"; then - echo "$0: no input file specified." >&2 - exit 1 - fi - # It's OK to call `install-sh -d' without argument. - # This can happen when creating conditional directories. - exit 0 -fi - -if test -z "$dir_arg"; then - trap '(exit $?); exit' 1 2 13 15 - - # Set umask so as not to create temps with too-generous modes. - # However, 'strip' requires both read and write access to temps. - case $mode in - # Optimize common cases. - *644) cp_umask=133;; - *755) cp_umask=22;; - - *[0-7]) - if test -z "$stripcmd"; then - u_plus_rw= - else - u_plus_rw='% 200' - fi - cp_umask=`expr '(' 777 - $mode % 1000 ')' $u_plus_rw`;; - *) - if test -z "$stripcmd"; then - u_plus_rw= - else - u_plus_rw=,u+rw - fi - cp_umask=$mode$u_plus_rw;; - esac -fi - -for src -do - # Protect names starting with `-'. - case $src in - -*) src=./$src ;; - esac - - if test -n "$dir_arg"; then - dst=$src - dstdir=$dst - test -d "$dstdir" - dstdir_status=$? - else - - # Waiting for this to be detected by the "$cpprog $src $dsttmp" command - # might cause directories to be created, which would be especially bad - # if $src (and thus $dsttmp) contains '*'. - if test ! -f "$src" && test ! -d "$src"; then - echo "$0: $src does not exist." >&2 - exit 1 - fi - - if test -z "$dstarg"; then - echo "$0: no destination specified." >&2 - exit 1 - fi - - dst=$dstarg - # Protect names starting with `-'. - case $dst in - -*) dst=./$dst ;; - esac - - # If destination is a directory, append the input filename; won't work - # if double slashes aren't ignored. - if test -d "$dst"; then - if test -n "$no_target_directory"; then - echo "$0: $dstarg: Is a directory" >&2 - exit 1 - fi - dstdir=$dst - dst=$dstdir/`basename "$src"` - dstdir_status=0 - else - # Prefer dirname, but fall back on a substitute if dirname fails. - dstdir=` - (dirname "$dst") 2>/dev/null || - expr X"$dst" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$dst" : 'X\(//\)[^/]' \| \ - X"$dst" : 'X\(//\)$' \| \ - X"$dst" : 'X\(/\)' \| . 2>/dev/null || - echo X"$dst" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ - s//\1/ - q - } - /^X\(\/\/\)[^/].*/{ - s//\1/ - q - } - /^X\(\/\/\)$/{ - s//\1/ - q - } - /^X\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q' - ` - - test -d "$dstdir" - dstdir_status=$? - fi - fi - - obsolete_mkdir_used=false - - if test $dstdir_status != 0; then - case $posix_mkdir in - '') - # Create intermediate dirs using mode 755 as modified by the umask. - # This is like FreeBSD 'install' as of 1997-10-28. - umask=`umask` - case $stripcmd.$umask in - # Optimize common cases. - *[2367][2367]) mkdir_umask=$umask;; - .*0[02][02] | .[02][02] | .[02]) mkdir_umask=22;; - - *[0-7]) - mkdir_umask=`expr $umask + 22 \ - - $umask % 100 % 40 + $umask % 20 \ - - $umask % 10 % 4 + $umask % 2 - `;; - *) mkdir_umask=$umask,go-w;; - esac - - # With -d, create the new directory with the user-specified mode. - # Otherwise, rely on $mkdir_umask. - if test -n "$dir_arg"; then - mkdir_mode=-m$mode - else - mkdir_mode= - fi - - posix_mkdir=false - case $umask in - *[123567][0-7][0-7]) - # POSIX mkdir -p sets u+wx bits regardless of umask, which - # is incompatible with FreeBSD 'install' when (umask & 300) != 0. - ;; - *) - tmpdir=${TMPDIR-/tmp}/ins$RANDOM-$$ - trap 'ret=$?; rmdir "$tmpdir/d" "$tmpdir" 2>/dev/null; exit $ret' 0 - - if (umask $mkdir_umask && - exec $mkdirprog $mkdir_mode -p -- "$tmpdir/d") >/dev/null 2>&1 - then - if test -z "$dir_arg" || { - # Check for POSIX incompatibilities with -m. - # HP-UX 11.23 and IRIX 6.5 mkdir -m -p sets group- or - # other-writeable bit of parent directory when it shouldn't. - # FreeBSD 6.1 mkdir -m -p sets mode of existing directory. - ls_ld_tmpdir=`ls -ld "$tmpdir"` - case $ls_ld_tmpdir in - d????-?r-*) different_mode=700;; - d????-?--*) different_mode=755;; - *) false;; - esac && - $mkdirprog -m$different_mode -p -- "$tmpdir" && { - ls_ld_tmpdir_1=`ls -ld "$tmpdir"` - test "$ls_ld_tmpdir" = "$ls_ld_tmpdir_1" - } - } - then posix_mkdir=: - fi - rmdir "$tmpdir/d" "$tmpdir" - else - # Remove any dirs left behind by ancient mkdir implementations. - rmdir ./$mkdir_mode ./-p ./-- 2>/dev/null - fi - trap '' 0;; - esac;; - esac - - if - $posix_mkdir && ( - umask $mkdir_umask && - $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir" - ) - then : - else - - # The umask is ridiculous, or mkdir does not conform to POSIX, - # or it failed possibly due to a race condition. Create the - # directory the slow way, step by step, checking for races as we go. - - case $dstdir in - /*) prefix=/ ;; - -*) prefix=./ ;; - *) prefix= ;; - esac - - case $posix_glob in - '') - if (set -f) 2>/dev/null; then - posix_glob=true - else - posix_glob=false - fi ;; - esac - - oIFS=$IFS - IFS=/ - $posix_glob && set -f - set fnord $dstdir - shift - $posix_glob && set +f - IFS=$oIFS - - prefixes= - - for d - do - test -z "$d" && continue - - prefix=$prefix$d - if test -d "$prefix"; then - prefixes= - else - if $posix_mkdir; then - (umask=$mkdir_umask && - $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir") && break - # Don't fail if two instances are running concurrently. - test -d "$prefix" || exit 1 - else - case $prefix in - *\'*) qprefix=`echo "$prefix" | sed "s/'/'\\\\\\\\''/g"`;; - *) qprefix=$prefix;; - esac - prefixes="$prefixes '$qprefix'" - fi - fi - prefix=$prefix/ - done - - if test -n "$prefixes"; then - # Don't fail if two instances are running concurrently. - (umask $mkdir_umask && - eval "\$doit_exec \$mkdirprog $prefixes") || - test -d "$dstdir" || exit 1 - obsolete_mkdir_used=true - fi - fi - fi - - if test -n "$dir_arg"; then - { test -z "$chowncmd" || $doit $chowncmd "$dst"; } && - { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } && - { test "$obsolete_mkdir_used$chowncmd$chgrpcmd" = false || - test -z "$chmodcmd" || $doit $chmodcmd $mode "$dst"; } || exit 1 - else - - # Make a couple of temp file names in the proper directory. - dsttmp=$dstdir/_inst.$$_ - rmtmp=$dstdir/_rm.$$_ - - # Trap to clean up those temp files at exit. - trap 'ret=$?; rm -f "$dsttmp" "$rmtmp" && exit $ret' 0 - - # Copy the file name to the temp name. - (umask $cp_umask && $doit_exec $cpprog "$src" "$dsttmp") && - - # and set any options; do chmod last to preserve setuid bits. - # - # If any of these fail, we abort the whole thing. If we want to - # ignore errors from any of these, just make sure not to ignore - # errors from the above "$doit $cpprog $src $dsttmp" command. - # - { test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } \ - && { test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } \ - && { test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } \ - && { test -z "$chmodcmd" || $doit $chmodcmd $mode "$dsttmp"; } && - - # Now rename the file to the real destination. - { $doit $mvcmd -f "$dsttmp" "$dst" 2>/dev/null \ - || { - # The rename failed, perhaps because mv can't rename something else - # to itself, or perhaps because mv is so ancient that it does not - # support -f. - - # Now remove or move aside any old file at destination location. - # We try this two ways since rm can't unlink itself on some - # systems and the destination file might be busy for other - # reasons. In this case, the final cleanup might fail but the new - # file should still install successfully. - { - if test -f "$dst"; then - $doit $rmcmd -f "$dst" 2>/dev/null \ - || { $doit $mvcmd -f "$dst" "$rmtmp" 2>/dev/null \ - && { $doit $rmcmd -f "$rmtmp" 2>/dev/null; :; }; }\ - || { - echo "$0: cannot unlink or rename $dst" >&2 - (exit 1); exit 1 - } - else - : - fi - } && - - # Now rename the file to the real destination. - $doit $mvcmd "$dsttmp" "$dst" - } - } || exit 1 - - trap '' 0 - fi -done - -# Local variables: -# eval: (add-hook 'write-file-hooks 'time-stamp) -# time-stamp-start: "scriptversion=" -# time-stamp-format: "%:y-%02m-%02d.%02H" -# time-stamp-end: "$" -# End: diff --git a/tests/CanonicalizePath.hs b/tests/CanonicalizePath.hs new file mode 100644 --- /dev/null +++ b/tests/CanonicalizePath.hs @@ -0,0 +1,173 @@ +{-# LANGUAGE CPP #-} +module CanonicalizePath where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.Internal +import System.Directory.OsPath +import TestUtils +import Util (TestEnv) +import qualified Util as T +import System.OsPath ((), dropFileName, dropTrailingPathSeparator, + normalise, takeFileName) + +main :: TestEnv -> IO () +main _t = do + dot <- canonicalizePath "" + dot2 <- canonicalizePath "." + dot3 <- canonicalizePath "./" + dot4 <- canonicalizePath "./." + T.expectEq _t () dot (dropTrailingPathSeparator dot) + T.expectEq _t () dot dot2 + T.expectEq _t () dot dot3 + T.expectEq _t () dot dot4 + + writeFile "bar" "" + bar <- canonicalizePath "bar" + bar2 <- canonicalizePath "bar/" + bar3 <- canonicalizePath "bar/." + bar4 <- canonicalizePath "bar/./" + bar5 <- canonicalizePath "./bar" + bar6 <- canonicalizePath "./bar/" + bar7 <- canonicalizePath "./bar/." + T.expectEq _t () bar (normalise (dot "bar")) + T.expectEq _t () bar bar2 + T.expectEq _t () bar bar3 + T.expectEq _t () bar bar4 + T.expectEq _t () bar bar5 + T.expectEq _t () bar bar6 + T.expectEq _t () bar bar7 + + createDirectory "foo" + foo <- canonicalizePath "foo" + foo2 <- canonicalizePath "foo/" + foo3 <- canonicalizePath "foo/." + foo4 <- canonicalizePath "foo/./" + foo5 <- canonicalizePath "./foo" + foo6 <- canonicalizePath "./foo/" + T.expectEq _t () foo (normalise (dot "foo")) + T.expectEq _t () foo foo2 + T.expectEq _t () foo foo3 + T.expectEq _t () foo foo4 + T.expectEq _t () foo foo5 + T.expectEq _t () foo foo6 + + -- should not fail for non-existent paths + fooNon <- canonicalizePath "foo/non-existent" + fooNon2 <- canonicalizePath "foo/non-existent/" + fooNon3 <- canonicalizePath "foo/non-existent/." + fooNon4 <- canonicalizePath "foo/non-existent/./" + fooNon5 <- canonicalizePath "./foo/non-existent" + fooNon6 <- canonicalizePath "./foo/non-existent/" + fooNon7 <- canonicalizePath "./foo/./non-existent" + fooNon8 <- canonicalizePath "./foo/./non-existent/" + T.expectEq _t () fooNon (normalise (foo "non-existent")) + T.expectEq _t () fooNon fooNon2 + T.expectEq _t () fooNon fooNon3 + T.expectEq _t () fooNon fooNon4 + T.expectEq _t () fooNon fooNon5 + T.expectEq _t () fooNon fooNon6 + T.expectEq _t () fooNon fooNon7 + T.expectEq _t () fooNon fooNon8 + + -- make sure ".." gets expanded properly by 'toExtendedLengthPath' + -- (turns out this test won't detect the problem because GetFullPathName + -- would expand them for us if we don't, but leaving it here anyway) + T.expectEq _t () foo =<< canonicalizePath (foo ".." "foo") + + supportsSymbolicLinks <- supportsSymlinks + when supportsSymbolicLinks $ do + + let barQux = dot "bar" "qux" + + -- note: this also checks that "../bar" gets normalized to "..\\bar" + -- since Windows does not like "/" in symbolic links targets + createFileLink "../bar" "foo/bar" + T.expectEq _t () bar =<< canonicalizePath "foo/bar" + T.expectEq _t () barQux =<< canonicalizePath "foo/bar/qux" + + createDirectoryLink "foo" "lfoo" + T.expectEq _t () foo =<< canonicalizePath "lfoo" + T.expectEq _t () foo =<< canonicalizePath "lfoo/" + T.expectEq _t () bar =<< canonicalizePath "lfoo/bar" + T.expectEq _t () barQux =<< canonicalizePath "lfoo/bar/qux" + + -- create a haphazard chain of links + createDirectoryLink "./../foo/../foo/." "./foo/./somelink3" + createDirectoryLink ".././foo/somelink3" "foo/somelink2" + createDirectoryLink "./foo/somelink2" "somelink" + T.expectEq _t () foo =<< canonicalizePath "somelink" + + -- regression test for #64 + createFileLink "../foo/non-existent" "foo/qux" + removeDirectoryLink "foo/somelink3" -- break the chain made earlier + qux <- canonicalizePath "foo/qux" + T.expectEq _t () qux =<< canonicalizePath "foo/non-existent" + T.expectEq _t () (foo "somelink3") =<< canonicalizePath "somelink" + + -- make sure it can handle loops + createFileLink "loop1" "loop2" + createFileLink "loop2" "loop1" + loop1 <- canonicalizePath "loop1" + loop2 <- canonicalizePath "loop2" + T.expectEq _t () loop1 (normalise (dot "loop1")) + T.expectEq _t () loop2 (normalise (dot "loop2")) + + -- make sure ".." gets expanded properly by 'toExtendedLengthPath' + createDirectoryLink (foo ".." "foo") "foolink" + _ <- listDirectory "foolink" -- make sure directory is accessible + T.expectEq _t () foo =<< canonicalizePath "foolink" + + caseInsensitive <- + (False <$ createDirectory "FOO") + `catch` \ e -> + if isAlreadyExistsError e + then pure True + else throwIO e + + -- if platform is case-insensitive, we expect case to be canonicalized too + when caseInsensitive $ do + foo7 <- canonicalizePath "FOO" + foo8 <- canonicalizePath "FOO/" + T.expectEq _t () foo foo7 + T.expectEq _t () foo foo8 + + fooNon9 <- canonicalizePath "FOO/non-existent" + fooNon10 <- canonicalizePath "fOo/non-existent/" + fooNon11 <- canonicalizePath "foO/non-existent/." + fooNon12 <- canonicalizePath "FoO/non-existent/./" + fooNon13 <- canonicalizePath "./fOO/non-existent" + fooNon14 <- canonicalizePath "./FOo/non-existent/" + cfooNon15 <- canonicalizePath "./FOO/./NON-EXISTENT" + cfooNon16 <- canonicalizePath "./FOO/./NON-EXISTENT/" + T.expectEq _t () fooNon fooNon9 + T.expectEq _t () fooNon fooNon10 + T.expectEq _t () fooNon fooNon11 + T.expectEq _t () fooNon fooNon12 + T.expectEq _t () fooNon fooNon13 + T.expectEq _t () fooNon fooNon14 + T.expectEq _t () fooNon + (dropFileName cfooNon15 <> os (toLower <$> so (takeFileName cfooNon15))) + T.expectEq _t () fooNon + (dropFileName cfooNon16 <> os (toLower <$> so (takeFileName cfooNon16))) + T.expectNe _t () fooNon cfooNon15 + T.expectNe _t () fooNon cfooNon16 + + setCurrentDirectory "foo" + foo9 <- canonicalizePath "../FOO" + foo10 <- canonicalizePath "../FOO/" + T.expectEq _t () foo foo9 + T.expectEq _t () foo foo10 + + let isWindows = +#if defined(mingw32_HOST_OS) + True +#else + False +#endif + + when isWindows $ do + -- https://github.com/haskell/directory/issues/170 + T.expectEq _t () "\\\\localhost" =<< canonicalizePath "\\\\localhost" + -- https://github.com/haskell/directory/issues/206 + T.expectEq _t () "\\\\localhost\\C$" =<< + canonicalizePath "\\\\localhost\\C$\\.." diff --git a/tests/CopyFile001.hs b/tests/CopyFile001.hs new file mode 100644 --- /dev/null +++ b/tests/CopyFile001.hs @@ -0,0 +1,31 @@ +module CopyFile001 where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.Internal +import System.Directory.OsPath +import TestUtils () +import Util (TestEnv) +import qualified Util as T +import System.OsPath (()) +import qualified Data.List as List + +main :: TestEnv -> IO () +main _t = do + createDirectory dir + writeFile (so (dir from)) contents + T.expectEq _t () [from] . List.sort =<< listDirectory dir + copyFile (dir from) (dir to) + T.expectEq _t () [from, to] . List.sort =<< listDirectory dir + T.expectEq _t () contents =<< readFile (so (dir to)) + + -- Regression test for https://github.com/haskell/directory/issues/177 + createDirectory "issue177" + T.expectIOErrorType _t () isDoesNotExistError + (copyFile "issue177/nonexistentSrc" "issue177/dst") + T.expectEq _t () [] =<< listDirectory "issue177" + + where + contents = "This is the data\n" + from = "source" + to = "target" + dir = "dir" diff --git a/tests/CopyFile002.hs b/tests/CopyFile002.hs new file mode 100644 --- /dev/null +++ b/tests/CopyFile002.hs @@ -0,0 +1,23 @@ +module CopyFile002 where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.Internal +import System.Directory.OsPath +import TestUtils () +import Util (TestEnv) +import qualified Util as T +import qualified Data.List as List + +main :: TestEnv -> IO () +main _t = do + -- Similar to CopyFile001 but moves a file in the current directory + -- (Bug #1652 on GHC Trac) + writeFile (so from) contents + T.expectEq _t () [from] . List.sort =<< listDirectory "." + copyFile from to + T.expectEq _t () [from, to] . List.sort =<< listDirectory "." + T.expectEq _t () contents =<< readFile (so to) + where + contents = "This is the data\n" + from = "source" + to = "target" diff --git a/tests/CopyFileWithMetadata.hs b/tests/CopyFileWithMetadata.hs new file mode 100644 --- /dev/null +++ b/tests/CopyFileWithMetadata.hs @@ -0,0 +1,47 @@ +module CopyFileWithMetadata where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.Internal +import System.Directory.OsPath +import TestUtils () +import Util (TestEnv) +import qualified Util as T +import qualified Data.List as List + +main :: TestEnv -> IO () +main _t = (`finally` cleanup) $ do + + -- prepare source file + writeFile "a" contents + writeFile "b" "To be replaced\n" + setModificationTime "a" mtime + modifyWritable False "a" + perm <- getPermissions "a" + + -- sanity check + T.expectEq _t () ["a", "b"] . List.sort =<< listDirectory "." + + -- copy file + copyFileWithMetadata "a" "b" + copyFileWithMetadata "a" "c" + + -- make sure we got the right results + T.expectEq _t () ["a", "b", "c"] . List.sort =<< listDirectory "." + for_ ["b", "c"] $ \ f -> do + T.expectEq _t f perm =<< getPermissions f + T.expectEq _t f mtime =<< getModificationTime f + T.expectEq _t f contents =<< readFile (so f) + + where + contents = "This is the data\n" + mtime = read "2000-01-01 00:00:00Z" + + cleanup = do + -- needed to ensure the test runner can clean up our mess + modifyWritable True "a" `catchIOError` \ _ -> pure () + modifyWritable True "b" `catchIOError` \ _ -> pure () + modifyWritable True "c" `catchIOError` \ _ -> pure () + + modifyWritable b f = do + perm <- getPermissions f + setPermissions f (setOwnerWritable b perm) diff --git a/tests/CreateDirectory001.hs b/tests/CreateDirectory001.hs new file mode 100644 --- /dev/null +++ b/tests/CreateDirectory001.hs @@ -0,0 +1,13 @@ +module CreateDirectory001 where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.OsPath +import TestUtils () +import Util (TestEnv) +import qualified Util as T + +main :: TestEnv -> IO () +main _t = do + createDirectory testdir + T.expectIOErrorType _t () isAlreadyExistsError (createDirectory testdir) + where testdir = "dir" diff --git a/tests/CreateDirectoryIfMissing001.hs b/tests/CreateDirectoryIfMissing001.hs new file mode 100644 --- /dev/null +++ b/tests/CreateDirectoryIfMissing001.hs @@ -0,0 +1,111 @@ +{-# LANGUAGE CPP #-} +module CreateDirectoryIfMissing001 where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.Internal +import System.Directory.OsPath +import TestUtils () +import Util (TestEnv) +import qualified Util as T +import Data.Either (lefts) +import System.OsPath ((), addTrailingPathSeparator) + +main :: TestEnv -> IO () +main _t = do + + createDirectoryIfMissing False testdir + cleanup + + T.expectIOErrorType _t () isDoesNotExistError $ + createDirectoryIfMissing False testdir_a + + createDirectoryIfMissing True testdir_a + createDirectoryIfMissing False testdir_a + createDirectoryIfMissing False (addTrailingPathSeparator testdir_a) + cleanup + + createDirectoryIfMissing True (addTrailingPathSeparator testdir_a) + + T.inform _t "testing for race conditions ..." + raceCheck1 + T.inform _t "testing for race conditions ..." + raceCheck2 + T.inform _t "done." + cleanup + + writeFile (so testdir) (so testdir) + T.expectIOErrorType _t () isAlreadyExistsError $ + createDirectoryIfMissing False testdir + removeFile testdir + cleanup + + writeFile (so testdir) (so testdir) + T.expectIOErrorType _t () isNotADirectoryError $ + createDirectoryIfMissing True testdir_a + removeFile testdir + cleanup + + where + + testname = "CreateDirectoryIfMissing001" + + testdir = os (testname <> ".d") + testdir_a = testdir "a" + + numRepeats = T.readArg _t testname "num-repeats" 10 + numThreads = T.readArg _t testname "num-threads" 4 + + forkPut mvar action = () <$ forkFinally action (putMVar mvar) + + -- Look for race conditions (bug #2808 on GHC Trac). This fails with + -- +RTS -N2 and directory 1.0.0.2. + raceCheck1 = do + m <- newEmptyMVar + forkPut m $ do + replicateM_ numRepeats create + forkPut m $ do + replicateM_ numRepeats cleanup + results <- replicateM 2 (takeMVar m) + T.expectEq _t () [] (show <$> lefts results) + + -- This test fails on Windows (see bug #2924 on GHC Trac): + raceCheck2 = do + m <- newEmptyMVar + replicateM_ numThreads $ do + forkPut m $ do + replicateM_ numRepeats $ do + create + cleanup + results <- replicateM numThreads (takeMVar m) + T.expectEq _t () [] (show <$> lefts results) + + -- createDirectoryIfMissing is allowed to fail with isDoesNotExistError if + -- another process/thread removes one of the directories during the process + -- of creating the hierarchy. + -- + -- It is also allowed to fail with permission errors + -- (see bug #2924 on GHC Trac) + create = + createDirectoryIfMissing True testdir_a `catch` \ e -> + if isDoesNotExistError e + || isPermissionError e + || isInappropriateTypeError e + || ioeGetErrorType e == InvalidArgument + then pure () + else ioError e + + cleanup = removeDirectoryRecursive testdir `catchAny` \ _ -> pure () + + catchAny :: IO a -> (SomeException -> IO a) -> IO a + catchAny = catch + +#if defined(mingw32_HOST_OS) + isNotADirectoryError = isAlreadyExistsError +#else + isNotADirectoryError = isInappropriateTypeError +#endif + + isInappropriateTypeError = isInappropriateTypeErrorType . ioeGetErrorType + + isInappropriateTypeErrorType InappropriateType = True + isInappropriateTypeErrorType _ = False diff --git a/tests/CurrentDirectory001.hs b/tests/CurrentDirectory001.hs new file mode 100644 --- /dev/null +++ b/tests/CurrentDirectory001.hs @@ -0,0 +1,17 @@ +module CurrentDirectory001 where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.OsPath +import TestUtils () +import Util (TestEnv) +import qualified Util as T +import qualified Data.List as List + +main :: TestEnv -> IO () +main _t = do + prevDir <- getCurrentDirectory + createDirectory "dir" + setCurrentDirectory "dir" + T.expectEq _t () [".", ".."] . List.sort =<< getDirectoryContents "." + setCurrentDirectory prevDir + removeDirectory "dir" diff --git a/tests/Directory001.hs b/tests/Directory001.hs new file mode 100644 --- /dev/null +++ b/tests/Directory001.hs @@ -0,0 +1,22 @@ +module Directory001 where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.OsPath +import TestUtils () +import Util (TestEnv) +import qualified Util as T + +main :: TestEnv -> IO () +main _t = do + + createDirectory "foo" + writeFile "foo/bar" str + renameFile "foo/bar" "foo/baz" + renameDirectory "foo" "bar" + str' <- readFile "bar/baz" + T.expectEq _t () str' str + removeFile "bar/baz" + removeDirectory "bar" + + where + str = "Okay\n" diff --git a/tests/DoesDirectoryExist001.hs b/tests/DoesDirectoryExist001.hs new file mode 100644 --- /dev/null +++ b/tests/DoesDirectoryExist001.hs @@ -0,0 +1,31 @@ +{-# LANGUAGE CPP #-} +module DoesDirectoryExist001 where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.OsPath +import TestUtils () +import Util (TestEnv) +import qualified Util as T + +main :: TestEnv -> IO () +main _t = do + + -- [regression test] "/" was not recognised as a directory prior to GHC 6.1 + T.expect _t () =<< doesDirectoryExist rootDir + + createDirectory "somedir" + + T.expect _t () . not =<< doesDirectoryExist "" + T.expect _t () . not =<< doesDirectoryExist "nonexistent" + T.expect _t () =<< doesDirectoryExist "." + T.expect _t () =<< doesDirectoryExist "somedir" +#if defined(mingw32_HOST_OS) + T.expect _t () =<< doesDirectoryExist "SoMeDiR" +#endif + + where +#if defined(mingw32_HOST_OS) + rootDir = "C:\\" +#else + rootDir = "/" +#endif diff --git a/tests/DoesPathExist.hs b/tests/DoesPathExist.hs new file mode 100644 --- /dev/null +++ b/tests/DoesPathExist.hs @@ -0,0 +1,50 @@ +{-# LANGUAGE CPP #-} +module DoesPathExist where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.OsPath +import TestUtils (supportsSymlinks) +import Util (TestEnv) +import qualified Util as T + +main :: TestEnv -> IO () +main _t = do + + T.expect _t () =<< doesPathExist rootDir + + createDirectory "somedir" + writeFile "somefile" "somedata" + writeFile "\x3c0\x42f\x97f3\xe6\x221e" "somedata" + + T.expect _t () . not =<< doesPathExist "" + T.expect _t () . not =<< doesPathExist "nonexistent" + T.expect _t () =<< doesPathExist "." + T.expect _t () =<< doesPathExist "somedir" + T.expect _t () =<< doesPathExist "somefile" + T.expect _t () =<< doesPathExist "./somefile" +#if defined(mingw32_HOST_OS) + T.expect _t () =<< doesPathExist "SoMeDiR" + T.expect _t () =<< doesPathExist "sOmEfIlE" +#endif + T.expect _t () =<< doesPathExist "\x3c0\x42f\x97f3\xe6\x221e" + + supportsSymbolicLinks <- supportsSymlinks + when supportsSymbolicLinks $ do + + createDirectoryLink "somedir" "somedirlink" + createFileLink "somefile" "somefilelink" + createFileLink "nonexistent" "nonexistentlink" + + T.expect _t () =<< doesFileExist "somefilelink" + T.expect _t () . not =<< doesDirectoryExist "somefilelink" + T.expect _t () =<< doesDirectoryExist "somedirlink" + T.expect _t () . not =<< doesFileExist "somedirlink" + T.expect _t () . not =<< doesDirectoryExist "nonexistentlink" + T.expect _t () . not =<< doesFileExist "nonexistentlink" + + where +#if defined(mingw32_HOST_OS) + rootDir = "C:\\" +#else + rootDir = "/" +#endif diff --git a/tests/FileTime.hs b/tests/FileTime.hs new file mode 100644 --- /dev/null +++ b/tests/FileTime.hs @@ -0,0 +1,61 @@ +module FileTime where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.OsPath +import TestUtils () +import Util (TestEnv) +import qualified Util as T +import Data.Time.Clock (addUTCTime, getCurrentTime) + +main :: TestEnv -> IO () +main _t = do + now <- getCurrentTime + let someTimeAgo = addUTCTime (-3600) now + someTimeAgo' = addUTCTime (-7200) now + + T.expectIOErrorType _t () isDoesNotExistError $ + getAccessTime "nonexistent-file" + T.expectIOErrorType _t () isDoesNotExistError $ + setAccessTime "nonexistent-file" someTimeAgo + T.expectIOErrorType _t () isDoesNotExistError $ + getModificationTime "nonexistent-file" + T.expectIOErrorType _t () isDoesNotExistError $ + setModificationTime "nonexistent-file" someTimeAgo + + writeFile "foo" "" + for_ [ "foo", ".", "" ] $ \ file -> do + let mtime = someTimeAgo + atime = someTimeAgo' + + atime1 <- getAccessTime file + + setModificationTime file mtime + + atime2 <- getAccessTime file + mtime2 <- getModificationTime file + + -- modification time should be set with at worst 1 sec resolution + T.expectNearTime _t file mtime mtime2 1 + + -- access time should not change, although it may lose some precision + -- on POSIX systems without 'utimensat' + T.expectNearTime _t file atime1 atime2 1 + + setAccessTime file atime + + atime3 <- getAccessTime file + mtime3 <- getModificationTime file + + when setAtime $ do + -- access time should be set with at worst 1 sec resolution + T.expectNearTime _t file atime atime3 1 + + -- modification time should not change, although it may lose some precision + -- on POSIX systems without 'utimensat' + T.expectNearTime _t file mtime2 mtime3 1 + + where + + testname = "FileTime" + + setAtime = T.readArg _t testname "set-atime" True diff --git a/tests/FindExecutable.hs b/tests/FindExecutable.hs new file mode 100644 --- /dev/null +++ b/tests/FindExecutable.hs @@ -0,0 +1,27 @@ +{-# LANGUAGE CPP #-} +module FindExecutable where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.OsPath +import TestUtils () +import Util (TestEnv) +import qualified Util as T + +main :: TestEnv -> IO () +main _t = do + + -- 'find' expected to exist on both Windows and POSIX, + -- though we have no idea if it's writable + Just _ <- findExecutable "find" + + T.expectEq _t () Nothing =<< + findExecutable "__nonexistent_binary_gbowyxcejjawf7r6__" + + -- https://github.com/haskell/directory/issues/187 + T.expectEq _t () Nothing =<< findExecutable "/" + T.expectEq _t () Nothing =<< findExecutable "//" +#if !defined(mingw32_HOST_OS) + T.expectEq _t () Nothing =<< findExecutable "\\" + T.expectEq _t () Nothing =<< findExecutable "\\\\" + T.expectEq _t () Nothing =<< findExecutable "\\\\localhost\\c$" +#endif diff --git a/tests/FindFile001.hs b/tests/FindFile001.hs new file mode 100644 --- /dev/null +++ b/tests/FindFile001.hs @@ -0,0 +1,58 @@ +module FindFile001 where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.Internal +import System.Directory.OsPath +import TestUtils () +import Util (TestEnv) +import qualified Util as T +import qualified Data.List as List +import System.OsPath (()) + +main :: TestEnv -> IO () +main _t = do + + createDirectory "bar" + createDirectory "qux" + writeFile "foo" "" + writeFile (so ("bar" "foo")) "" + writeFile (so ("qux" "foo")) ":3" + + -- make sure findFile is lazy enough + T.expectEq _t () (Just ("." "foo")) =<< findFile ("." : undefined) "foo" + + -- make sure relative paths work + T.expectEq _t () (Just ("." "bar" "foo")) =<< + findFile ["."] ("bar" "foo") + + T.expectEq _t () (Just ("." "foo")) =<< findFile [".", "bar"] "foo" + T.expectEq _t () (Just ("bar" "foo")) =<< findFile ["bar", "."] "foo" + + let f fn = (== ":3") <$> readFile (so fn) + for_ (List.permutations ["qux", "bar", "."]) $ \ ds -> do + + let (match, noMatch) = List.partition (== "qux") ds + match0 : _ <- pure match + noMatch0 : _ <- pure noMatch + + T.expectEq _t ds (Just (match0 "foo")) =<< + findFileWith f ds "foo" + + T.expectEq _t ds (( "foo") <$> match) =<< findFilesWith f ds "foo" + + T.expectEq _t ds (Just (noMatch0 "foo")) =<< + findFileWith ((not <$>) . f) ds "foo" + + T.expectEq _t ds (( "foo") <$> noMatch) =<< + findFilesWith ((not <$>) . f) ds "foo" + + T.expectEq _t ds Nothing =<< findFileWith (\ _ -> pure False) ds "foo" + + T.expectEq _t ds [] =<< findFilesWith (\ _ -> pure False) ds "foo" + + -- make sure absolute paths are handled properly irrespective of 'dirs' + -- https://github.com/haskell/directory/issues/72 + absPath <- makeAbsolute ("bar" "foo") + absPath2 <- makeAbsolute ("bar" "nonexistent") + T.expectEq _t () (Just absPath) =<< findFile [] absPath + T.expectEq _t () Nothing =<< findFile [] absPath2 diff --git a/tests/GetDirContents001.hs b/tests/GetDirContents001.hs new file mode 100644 --- /dev/null +++ b/tests/GetDirContents001.hs @@ -0,0 +1,28 @@ +module GetDirContents001 where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.Internal +import System.Directory.OsPath +import TestUtils () +import Util (TestEnv) +import qualified Util as T +import System.OsPath (()) +import qualified Data.List as List + +main :: TestEnv -> IO () +main _t = do + createDirectory dir + T.expectEq _t () specials . List.sort =<< + getDirectoryContents dir + T.expectEq _t () [] . List.sort =<< + listDirectory dir + names <- for [1 .. 100 :: Int] $ \ i -> do + let name = "f" <> os (show i) + writeFile (so (dir name)) "" + pure name + T.expectEq _t () (List.sort (specials <> names)) . List.sort =<< + getDirectoryContents dir + T.expectEq _t () (List.sort names) . List.sort =<< + listDirectory dir + where dir = "dir" + specials = [".", ".."] diff --git a/tests/GetDirContents002.hs b/tests/GetDirContents002.hs new file mode 100644 --- /dev/null +++ b/tests/GetDirContents002.hs @@ -0,0 +1,12 @@ +module GetDirContents002 where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.OsPath +import TestUtils () +import Util (TestEnv) +import qualified Util as T + +main :: TestEnv -> IO () +main _t = do + T.expectIOErrorType _t () isDoesNotExistError $ + getDirectoryContents "nonexistent" diff --git a/tests/GetFileSize.hs b/tests/GetFileSize.hs new file mode 100644 --- /dev/null +++ b/tests/GetFileSize.hs @@ -0,0 +1,19 @@ +module GetFileSize where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.OsPath +import TestUtils () +import Util (TestEnv) +import qualified Util as T + +main :: TestEnv -> IO () +main _t = do + + writeFile "emptyfile" "" + writeFile "testfile" string + + T.expectEq _t () 0 =<< getFileSize "emptyfile" + T.expectEq _t () (fromIntegral (length string)) =<< getFileSize "testfile" + + where + string = "The quick brown fox jumps over the lazy dog." diff --git a/tests/GetHomeDirectory001.hs b/tests/GetHomeDirectory001.hs new file mode 100644 --- /dev/null +++ b/tests/GetHomeDirectory001.hs @@ -0,0 +1,20 @@ +module GetHomeDirectory001 where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.OsPath +import TestUtils () +import Util (TestEnv) +import qualified Util as T + +main :: TestEnv -> IO () +main _t = do + homeDir <- getHomeDirectory + T.expect _t () (homeDir /= mempty) -- sanity check + _ <- getAppUserDataDirectory "test" + _ <- getXdgDirectory XdgCache "test" + _ <- getXdgDirectory XdgConfig "test" + _ <- getXdgDirectory XdgData "test" + _ <- getXdgDirectory XdgState "test" + _ <- getUserDocumentsDirectory + _ <- getTemporaryDirectory + pure () diff --git a/tests/GetHomeDirectory002.hs b/tests/GetHomeDirectory002.hs new file mode 100644 --- /dev/null +++ b/tests/GetHomeDirectory002.hs @@ -0,0 +1,22 @@ +{-# LANGUAGE CPP #-} +module GetHomeDirectory002 where + +#if !defined(mingw32_HOST_OS) +import System.Posix.Env +#endif +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.OsPath +import TestUtils () +import Util (TestEnv) +import qualified Util as T + +-- Test that the getpwuid_r fallback works. +-- This is only relevant on unix. +main :: TestEnv -> IO () +main _t = do +#if !defined(mingw32_HOST_OS) + unsetEnv "HOME" +#endif + _ <- getHomeDirectory + T.expect _t () True -- avoid warnings about redundant imports diff --git a/tests/GetPermissions001.hs b/tests/GetPermissions001.hs new file mode 100644 --- /dev/null +++ b/tests/GetPermissions001.hs @@ -0,0 +1,67 @@ +module GetPermissions001 where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.OsPath +import TestUtils +import Util (TestEnv) +import qualified Util as T + +main :: TestEnv -> IO () +main _t = do + + checkCurrentDir + checkExecutable + checkOrdinary + checkTrailingSlash + + -- 'writable' is the only permission that can be changed on Windows + writeFile "foo.txt" "" + foo <- makeAbsolute "foo.txt" + modifyPermissions "foo.txt" (\ p -> p { writable = False }) + T.expect _t () =<< not . writable <$> getPermissions "foo.txt" + modifyPermissions "foo.txt" (\ p -> p { writable = True }) + T.expect _t () =<< writable <$> getPermissions "foo.txt" + modifyPermissions "foo.txt" (\ p -> p { writable = False }) + T.expect _t () =<< not . writable <$> getPermissions "foo.txt" + modifyPermissions foo (\ p -> p { writable = True }) + T.expect _t () =<< writable <$> getPermissions foo + modifyPermissions foo (\ p -> p { writable = False }) + T.expect _t () =<< not . writable <$> getPermissions foo + + -- test empty path + modifyPermissions "" id + + where + + checkCurrentDir = do + -- since the current directory is created by the test runner, + -- it should be readable, writable, and searchable + p <- getPermissions "." + T.expect _t () (readable p) + T.expect _t () (writable p) + T.expect _t () (not (executable p)) + T.expect _t () (searchable p) + + checkExecutable = do + -- 'find' expected to exist on both Windows and POSIX, + -- though we have no idea if it's writable + Just f <- findExecutable "find" + p <- getPermissions f + T.expect _t () (readable p) + T.expect _t () (executable p) + T.expect _t () (not (searchable p)) + + checkOrdinary = do + writeFile "foo" "" + p <- getPermissions "foo" + T.expect _t () (readable p) + T.expect _t () (writable p) + T.expect _t () (not (executable p)) + T.expect _t () (not (searchable p)) + + -- [regression test] (issue #9) + -- Windows doesn't like trailing path separators + checkTrailingSlash = do + createDirectory "bar" + _ <- getPermissions "bar/" + pure () diff --git a/tests/LongPaths.hs b/tests/LongPaths.hs new file mode 100644 --- /dev/null +++ b/tests/LongPaths.hs @@ -0,0 +1,65 @@ +module LongPaths where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.OsPath +import TestUtils +import Util (TestEnv) +import qualified Util as T +import System.OsPath (()) + +main :: TestEnv -> IO () +main _t = do + let longName = mconcat (replicate 10 "its_very_long") + longDir <- makeAbsolute (longName longName) + + supportsLongPaths <- do + -- create 2 dirs because 1 path segment by itself can't exceed MAX_PATH + -- tests: [createDirectory] + createDirectory =<< makeAbsolute longName + createDirectory longDir + pure True + `catchIOError` \ _ -> + pure False + + -- skip tests on file systems that do not support long paths + when supportsLongPaths $ do + + -- test relative paths + let relDir = longName mconcat (replicate 8 "yeah_its_long") + createDirectory relDir + T.expect _t () =<< doesDirectoryExist relDir + T.expectEq _t () [] =<< listDirectory relDir + setPermissions relDir emptyPermissions + T.expectEq _t () False =<< writable <$> getPermissions relDir + + writeFile "foobar.txt" "^.^" -- writeFile does not support long paths yet + + -- tests: [renamePath], [copyFileWithMetadata] + renamePath "foobar.txt" (longDir "foobar_tmp.txt") + renamePath (longDir "foobar_tmp.txt") (longDir "foobar.txt") + copyFileWithMetadata (longDir "foobar.txt") + (longDir "foobar_copy.txt") + + -- tests: [doesDirectoryExist], [doesFileExist], [doesPathExist] + T.expect _t () =<< doesDirectoryExist longDir + T.expect _t () =<< doesFileExist (longDir "foobar.txt") + T.expect _t () =<< doesPathExist longDir + T.expect _t () =<< doesPathExist (longDir "foobar.txt") + + -- tests: [getFileSize], [getModificationTime] + T.expectEq _t () 3 =<< getFileSize (longDir "foobar.txt") + _ <- getModificationTime (longDir "foobar.txt") + + supportsSymbolicLinks <- supportsSymlinks + when supportsSymbolicLinks $ do + + -- tests: [createDirectoryLink], [getSymbolicLinkTarget], [listDirectory] + -- also tests expansion of "." and ".." + createDirectoryLink "." (longDir "link") + _ <- listDirectory (longDir ".." longName "link") + T.expectEq _t () "." =<< + getSymbolicLinkTarget (longDir "." "link") + + pure () + + -- [removeFile], [removeDirectory] are automatically tested by the cleanup diff --git a/tests/Main.hs b/tests/Main.hs new file mode 100644 --- /dev/null +++ b/tests/Main.hs @@ -0,0 +1,69 @@ +module Main (main) where +import qualified Util as T +import qualified CanonicalizePath +import qualified CopyFile001 +import qualified CopyFile002 +import qualified CopyFileWithMetadata +import qualified CreateDirectory001 +import qualified CreateDirectoryIfMissing001 +import qualified CurrentDirectory001 +import qualified Directory001 +import qualified DoesDirectoryExist001 +import qualified DoesPathExist +import qualified FileTime +import qualified FindExecutable +import qualified FindFile001 +import qualified GetDirContents001 +import qualified GetDirContents002 +import qualified GetFileSize +import qualified GetHomeDirectory001 +import qualified GetHomeDirectory002 +import qualified GetPermissions001 +import qualified LongPaths +import qualified MakeAbsolute +import qualified MinimizeNameConflicts +import qualified PathIsSymbolicLink +import qualified RemoveDirectoryRecursive001 +import qualified RemovePathForcibly +import qualified RenameDirectory +import qualified RenameFile001 +import qualified RenamePath +import qualified Simplify +import qualified T8482 +import qualified WithCurrentDirectory +import qualified Xdg + +main :: IO () +main = T.testMain $ \ _t -> do + T.isolatedRun _t "CanonicalizePath" CanonicalizePath.main + T.isolatedRun _t "CopyFile001" CopyFile001.main + T.isolatedRun _t "CopyFile002" CopyFile002.main + T.isolatedRun _t "CopyFileWithMetadata" CopyFileWithMetadata.main + T.isolatedRun _t "CreateDirectory001" CreateDirectory001.main + T.isolatedRun _t "CreateDirectoryIfMissing001" CreateDirectoryIfMissing001.main + T.isolatedRun _t "CurrentDirectory001" CurrentDirectory001.main + T.isolatedRun _t "Directory001" Directory001.main + T.isolatedRun _t "DoesDirectoryExist001" DoesDirectoryExist001.main + T.isolatedRun _t "DoesPathExist" DoesPathExist.main + T.isolatedRun _t "FileTime" FileTime.main + T.isolatedRun _t "FindExecutable" FindExecutable.main + T.isolatedRun _t "FindFile001" FindFile001.main + T.isolatedRun _t "GetDirContents001" GetDirContents001.main + T.isolatedRun _t "GetDirContents002" GetDirContents002.main + T.isolatedRun _t "GetFileSize" GetFileSize.main + T.isolatedRun _t "GetHomeDirectory001" GetHomeDirectory001.main + T.isolatedRun _t "GetHomeDirectory002" GetHomeDirectory002.main + T.isolatedRun _t "GetPermissions001" GetPermissions001.main + T.isolatedRun _t "LongPaths" LongPaths.main + T.isolatedRun _t "MakeAbsolute" MakeAbsolute.main + T.isolatedRun _t "MinimizeNameConflicts" MinimizeNameConflicts.main + T.isolatedRun _t "PathIsSymbolicLink" PathIsSymbolicLink.main + T.isolatedRun _t "RemoveDirectoryRecursive001" RemoveDirectoryRecursive001.main + T.isolatedRun _t "RemovePathForcibly" RemovePathForcibly.main + T.isolatedRun _t "RenameDirectory" RenameDirectory.main + T.isolatedRun _t "RenameFile001" RenameFile001.main + T.isolatedRun _t "RenamePath" RenamePath.main + T.isolatedRun _t "Simplify" Simplify.main + T.isolatedRun _t "T8482" T8482.main + T.isolatedRun _t "WithCurrentDirectory" WithCurrentDirectory.main + T.isolatedRun _t "Xdg" Xdg.main diff --git a/tests/MakeAbsolute.hs b/tests/MakeAbsolute.hs new file mode 100644 --- /dev/null +++ b/tests/MakeAbsolute.hs @@ -0,0 +1,53 @@ +{-# LANGUAGE CPP #-} +module MakeAbsolute where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.OsPath +import TestUtils () +import Util (TestEnv) +import qualified Util as T +import System.OsPath ((), addTrailingPathSeparator, + dropTrailingPathSeparator, normalise) +#if defined(mingw32_HOST_OS) +import System.Directory.Internal +import System.OsPath (takeDrive, toChar, unpack) +#endif + +main :: TestEnv -> IO () +main _t = do + dot <- makeAbsolute "" + dot2 <- makeAbsolute "." + dot3 <- makeAbsolute "./." + T.expectEq _t () dot (dropTrailingPathSeparator dot) + T.expectEq _t () dot dot2 + T.expectEq _t () dot dot3 + + sdot <- makeAbsolute "./" + sdot2 <- makeAbsolute "././" + T.expectEq _t () sdot (addTrailingPathSeparator sdot) + T.expectEq _t () sdot sdot2 + + foo <- makeAbsolute "foo" + foo2 <- makeAbsolute "foo/." + foo3 <- makeAbsolute "./foo" + T.expectEq _t () foo (normalise (dot "foo")) + T.expectEq _t () foo foo2 + T.expectEq _t () foo foo3 + + sfoo <- makeAbsolute "foo/" + sfoo2 <- makeAbsolute "foo/./" + sfoo3 <- makeAbsolute "./foo/" + T.expectEq _t () sfoo (normalise (dot "foo/")) + T.expectEq _t () sfoo sfoo2 + T.expectEq _t () sfoo sfoo3 + +#if defined(mingw32_HOST_OS) + cwd <- getCurrentDirectory + cwdDriveLetter : _ <- pure (unpack (takeDrive cwd)) + let driveLetter = toUpper (toChar cwdDriveLetter) + let driveLetter' = if driveLetter == 'Z' then 'A' else succ driveLetter + drp1 <- makeAbsolute (os (driveLetter : ":foobar")) + drp2 <- makeAbsolute (os (driveLetter' : ":foobar")) + T.expectEq _t () drp1 =<< makeAbsolute "foobar" + T.expectEq _t () drp2 (os (driveLetter' : ":\\foobar")) +#endif diff --git a/tests/MinimizeNameConflicts.hs b/tests/MinimizeNameConflicts.hs new file mode 100644 --- /dev/null +++ b/tests/MinimizeNameConflicts.hs @@ -0,0 +1,39 @@ +{-# LANGUAGE CPP #-} +module MinimizeNameConflicts + ( main + , module System.Directory.OsPath +#if defined(mingw32_HOST_OS) + , module System.Win32 +#else + , module System.Posix +#endif + ) where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.OsPath +import TestUtils () +import Util (TestEnv) +import qualified Util as T +#if defined(mingw32_HOST_OS) +import System.Win32 hiding + ( copyFile + , createDirectory + , getCurrentDirectory + , getTemporaryDirectory + , removeDirectory + , setCurrentDirectory + ) +#else +import System.Posix hiding + ( createDirectory + , isSymbolicLink + , removeDirectory + ) +#endif + +-- This is just a compile-test to check for name conflicts between directory +-- and other boot libraries. See for example: +-- https://github.com/haskell/directory/issues/52 +main :: TestEnv -> IO () +main _t = do + T.expect _t ("no-op" :: String) True diff --git a/tests/PathIsSymbolicLink.hs b/tests/PathIsSymbolicLink.hs new file mode 100644 --- /dev/null +++ b/tests/PathIsSymbolicLink.hs @@ -0,0 +1,36 @@ +module PathIsSymbolicLink where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.OsPath +import TestUtils +import Util (TestEnv) +import qualified Util as T + +main :: TestEnv -> IO () +main _t = do + supportsSymbolicLinks <- supportsSymlinks + when supportsSymbolicLinks $ do + + createFileLink "x" "y" + createDirectoryLink "a" "b" + + T.expect _t () =<< pathIsSymbolicLink "y" + T.expect _t () =<< pathIsSymbolicLink "b" + T.expectEq _t () "x" =<< getSymbolicLinkTarget "y" + T.expectEq _t () "a" =<< getSymbolicLinkTarget "b" + T.expectEq _t () False =<< doesFileExist "y" + T.expectEq _t () False =<< doesDirectoryExist "b" + + writeFile "x" "" + createDirectory "a" + + T.expect _t () =<< doesFileExist "y" + T.expect _t () =<< doesDirectoryExist "b" + + removeFile "y" + removeDirectoryLink "b" + + T.expectIOErrorType _t () isDoesNotExistError (pathIsSymbolicLink "y") + T.expectIOErrorType _t () isDoesNotExistError (pathIsSymbolicLink "b") + T.expectEq _t () False =<< doesFileExist "y" + T.expectEq _t () False =<< doesDirectoryExist "b" diff --git a/tests/RemoveDirectoryRecursive001.hs b/tests/RemoveDirectoryRecursive001.hs new file mode 100644 --- /dev/null +++ b/tests/RemoveDirectoryRecursive001.hs @@ -0,0 +1,94 @@ +{-# LANGUAGE CPP #-} +module RemoveDirectoryRecursive001 where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.Internal +import System.Directory.OsPath +import TestUtils (modifyPermissions, symlinkOrCopy) +import Util (TestEnv) +import qualified Util as T +import System.OsPath ((), normalise) +import qualified Data.List as List + +main :: TestEnv -> IO () +main _t = do + + ------------------------------------------------------------ + -- clean up junk from previous invocations + + modifyPermissions (tmp "c") (\ p -> p { writable = True }) + `catchIOError` \ _ -> pure () + removeDirectoryRecursive tmpD + `catchIOError` \ _ -> pure () + + ------------------------------------------------------------ + -- set up + + createDirectoryIfMissing True (tmp "a/x/w") + createDirectoryIfMissing True (tmp "a/y") + createDirectoryIfMissing True (tmp "a/z") + createDirectoryIfMissing True (tmp "b") + createDirectoryIfMissing True (tmp "c") + writeFile (so (tmp "a/x/w/u")) "foo" + writeFile (so (tmp "a/t")) "bar" + symlinkOrCopy (normalise "../a") (tmp "b/g") + symlinkOrCopy (normalise "../b") (tmp "c/h") + symlinkOrCopy (normalise "a") (tmp "d") + modifyPermissions (tmp "c") (\ p -> p { writable = False }) + + ------------------------------------------------------------ + -- tests + + T.expectEq _t () [".", "..", "a", "b", "c", "d"] . List.sort =<< + getDirectoryContents tmpD + T.expectEq _t () [".", "..", "t", "x", "y", "z"] . List.sort =<< + getDirectoryContents (tmp "a") + T.expectEq _t () [".", "..", "g"] . List.sort =<< + getDirectoryContents (tmp "b") + T.expectEq _t () [".", "..", "h"] . List.sort =<< + getDirectoryContents (tmp "c") + T.expectEq _t () [".", "..", "t", "x", "y", "z"] . List.sort =<< + getDirectoryContents (tmp "d") + + removeDirectoryRecursive (tmp "d") + `catchIOError` \ _ -> removeFile (tmp "d") +#if defined(mingw32_HOST_OS) + `catchIOError` \ _ -> removeDirectory (tmp "d") +#endif + + T.expectEq _t () [".", "..", "a", "b", "c"] . List.sort =<< + getDirectoryContents tmpD + T.expectEq _t () [".", "..", "t", "x", "y", "z"] . List.sort =<< + getDirectoryContents (tmp "a") + T.expectEq _t () [".", "..", "g"] . List.sort =<< + getDirectoryContents (tmp "b") + T.expectEq _t () [".", "..", "h"] . List.sort =<< + getDirectoryContents (tmp "c") + + removeDirectoryRecursive (tmp "c") + `catchIOError` \ _ -> do + modifyPermissions (tmp "c") (\ p -> p { writable = True }) + removeDirectoryRecursive (tmp "c") + + T.expectEq _t () [".", "..", "a", "b"] . List.sort =<< + getDirectoryContents tmpD + T.expectEq _t () [".", "..", "t", "x", "y", "z"] . List.sort =<< + getDirectoryContents (tmp "a") + T.expectEq _t () [".", "..", "g"] . List.sort =<< + getDirectoryContents (tmp "b") + + removeDirectoryRecursive (tmp "b") + + T.expectEq _t () [".", "..", "a"] . List.sort =<< + getDirectoryContents tmpD + T.expectEq _t () [".", "..", "t", "x", "y", "z"] . List.sort =<< + getDirectoryContents (tmp "a") + + removeDirectoryRecursive (tmp "a") + + T.expectEq _t () [".", ".."] . List.sort =<< + getDirectoryContents tmpD + + where testName = "removeDirectoryRecursive001" + tmpD = testName <> ".tmp" + tmp s = tmpD normalise s diff --git a/tests/RemovePathForcibly.hs b/tests/RemovePathForcibly.hs new file mode 100644 --- /dev/null +++ b/tests/RemovePathForcibly.hs @@ -0,0 +1,102 @@ +module RemovePathForcibly where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.OsPath +import TestUtils (hardLinkOrCopy, modifyPermissions, symlinkOrCopy) +import Util (TestEnv) +import qualified Util as T +import System.Directory.Internal +import System.OsPath ((), normalise) +import qualified Data.List as List + +main :: TestEnv -> IO () +main _t = do + + ------------------------------------------------------------ + -- clean up junk from previous invocations + + modifyPermissions (tmp "c") (\ p -> p { writable = True }) + `catchIOError` \ _ -> pure () + removePathForcibly tmpD + `catchIOError` \ _ -> pure () + + ------------------------------------------------------------ + -- set up + + createDirectoryIfMissing True (tmp "a/x/w") + createDirectoryIfMissing True (tmp "a/y") + createDirectoryIfMissing True (tmp "a/z") + createDirectoryIfMissing True (tmp "b") + createDirectoryIfMissing True (tmp "c") + createDirectoryIfMissing True (tmp "f") + writeFile (so (tmp "a/x/w/u")) "foo" + writeFile (so (tmp "a/t")) "bar" + writeFile (so (tmp "f/s")) "qux" + symlinkOrCopy (normalise "../a") (tmp "b/g") + symlinkOrCopy (normalise "../b") (tmp "c/h") + symlinkOrCopy (normalise "a") (tmp "d") + setPermissions (tmp "f/s") emptyPermissions + setPermissions (tmp "f") emptyPermissions + + ------------------------------------------------------------ + -- tests + + removePathForcibly (tmp "f") + removePathForcibly (tmp "e") -- intentionally non-existent + + T.expectEq _t () [".", "..", "a", "b", "c", "d"] . List.sort =<< + getDirectoryContents tmpD + T.expectEq _t () [".", "..", "t", "x", "y", "z"] . List.sort =<< + getDirectoryContents (tmp "a") + T.expectEq _t () [".", "..", "g"] . List.sort =<< + getDirectoryContents (tmp "b") + T.expectEq _t () [".", "..", "h"] . List.sort =<< + getDirectoryContents (tmp "c") + T.expectEq _t () [".", "..", "t", "x", "y", "z"] . List.sort =<< + getDirectoryContents (tmp "d") + + removePathForcibly (tmp "d") + + T.expectEq _t () [".", "..", "a", "b", "c"] . List.sort =<< + getDirectoryContents tmpD + T.expectEq _t () [".", "..", "t", "x", "y", "z"] . List.sort =<< + getDirectoryContents (tmp "a") + T.expectEq _t () [".", "..", "g"] . List.sort =<< + getDirectoryContents (tmp "b") + T.expectEq _t () [".", "..", "h"] . List.sort =<< + getDirectoryContents (tmp "c") + + removePathForcibly (tmp "c") + + T.expectEq _t () [".", "..", "a", "b"] . List.sort =<< + getDirectoryContents tmpD + T.expectEq _t () [".", "..", "t", "x", "y", "z"] . List.sort =<< + getDirectoryContents (tmp "a") + T.expectEq _t () [".", "..", "g"] . List.sort =<< + getDirectoryContents (tmp "b") + + removePathForcibly (tmp "b") + + T.expectEq _t () [".", "..", "a"] . List.sort =<< + getDirectoryContents tmpD + T.expectEq _t () [".", "..", "t", "x", "y", "z"] . List.sort =<< + getDirectoryContents (tmp "a") + + removePathForcibly (tmp "a") + + T.expectEq _t () [".", ".."] . List.sort =<< + getDirectoryContents tmpD + + ---------------------------------------------------------------------- + -- regression test for https://github.com/haskell/directory/issues/135 + + writeFile "hl1" "hardlinked" + setPermissions "hl1" emptyPermissions + origPermissions <- getPermissions "hl1" + hardLinkOrCopy "hl1" "hl2" + removePathForcibly "hl2" + T.expectEq _t () origPermissions =<< getPermissions "hl1" + + where testName = "removePathForcibly" + tmpD = testName <> ".tmp" + tmp s = tmpD normalise s diff --git a/tests/RenameDirectory.hs b/tests/RenameDirectory.hs new file mode 100644 --- /dev/null +++ b/tests/RenameDirectory.hs @@ -0,0 +1,14 @@ +module RenameDirectory where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.OsPath +import TestUtils () +import Util (TestEnv) +import qualified Util as T + +main :: TestEnv -> IO () +main _t = do + createDirectory "a" + T.expectEq _t () ["a"] =<< listDirectory "." + renameDirectory "a" "b" + T.expectEq _t () ["b"] =<< listDirectory "." diff --git a/tests/RenameFile001.hs b/tests/RenameFile001.hs new file mode 100644 --- /dev/null +++ b/tests/RenameFile001.hs @@ -0,0 +1,22 @@ +module RenameFile001 where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.Internal +import System.Directory.OsPath +import TestUtils () +import Util (TestEnv) +import qualified Util as T + +main :: TestEnv -> IO () +main _t = do + writeFile tmp1 contents1 + renameFile (os tmp1) (os tmp2) + T.expectEq _t () contents1 =<< readFile tmp2 + writeFile tmp1 contents2 + renameFile (os tmp2) (os tmp1) + T.expectEq _t () contents1 =<< readFile tmp1 + where + tmp1 = "tmp1" + tmp2 = "tmp2" + contents1 = "test" + contents2 = "test2" diff --git a/tests/RenamePath.hs b/tests/RenamePath.hs new file mode 100644 --- /dev/null +++ b/tests/RenamePath.hs @@ -0,0 +1,29 @@ +module RenamePath where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.Internal +import System.Directory.OsPath +import TestUtils () +import Util (TestEnv) +import qualified Util as T + +main :: TestEnv -> IO () +main _t = do + + createDirectory "a" + T.expectEq _t () ["a"] =<< listDirectory "." + renamePath "a" "b" + T.expectEq _t () ["b"] =<< listDirectory "." + + writeFile tmp1 contents1 + renamePath (os tmp1) (os tmp2) + T.expectEq _t () contents1 =<< readFile tmp2 + writeFile tmp1 contents2 + renamePath (os tmp2) (os tmp1) + T.expectEq _t () contents1 =<< readFile tmp1 + + where + tmp1 = "tmp1" + tmp2 = "tmp2" + contents1 = "test" + contents2 = "test2" diff --git a/tests/Simplify.hs b/tests/Simplify.hs new file mode 100644 --- /dev/null +++ b/tests/Simplify.hs @@ -0,0 +1,44 @@ +{-# LANGUAGE CPP #-} +module Simplify where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.Internal (simplifyWindows) +import System.Directory.OsPath +import TestUtils () +import Util (TestEnv) +import qualified Util as T +import System.OsPath (normalise) + +main :: TestEnv -> IO () +main _t = do + T.expectIOErrorType _t () (const True) (setCurrentDirectory "") + T.expectEq _t () (simplifyWindows "") "" + T.expectEq _t () (simplifyWindows ".") "." + T.expectEq _t () (simplifyWindows "a///b") (normalise "a/b") + T.expectEq _t () (simplifyWindows "./a//b") (normalise "a/b") + T.expectEq _t () (simplifyWindows "a/../../../b/.") (normalise "../../b") + T.expectEq _t () (simplifyWindows "a/.././b/./") (normalise "b/") + T.expectEq _t () (simplifyWindows "C:/a/../b") (normalise "C:/b") + T.expectEq _t () (simplifyWindows "\\\\?\\./a\\../b") "\\\\?\\./a\\../b" + T.expectEq _t () (simplifyWindows "C:/a") (normalise "C:/a") + T.expectEq _t () (simplifyWindows "/a") (normalise "/a") +#ifdef mingw32_HOST_OS + T.expectEq _t () (simplifyWindows "C:") "C:" + T.expectEq _t () (simplifyWindows "c:\\\\") "C:\\" + T.expectEq _t () (simplifyWindows "C:.") "C:" + T.expectEq _t () (simplifyWindows "C:.\\\\") "C:.\\" + T.expectEq _t () (simplifyWindows "C:..") "C:.." + T.expectEq _t () (simplifyWindows "C:..\\") "C:..\\" + T.expectEq _t () (simplifyWindows "C:\\.\\") "C:\\" + T.expectEq _t () (simplifyWindows "C:\\a") "C:\\a" + T.expectEq _t () (simplifyWindows "C:\\a\\\\b\\") "C:\\a\\b\\" + T.expectEq _t () (simplifyWindows "\\\\a\\b") "\\\\a\\b" + T.expectEq _t () (simplifyWindows "//a\\b/c/./d") "\\\\a\\b/c/./d" + T.expectEq _t () (simplifyWindows "/.") "\\" + T.expectEq _t () (simplifyWindows "/./") "\\" + T.expectEq _t () (simplifyWindows "/../") "\\" + T.expectEq _t () (simplifyWindows "\\a\\.") "\\a" + T.expectEq _t () (simplifyWindows "//?") "\\\\?" + T.expectEq _t () (simplifyWindows "//?\\") "\\\\?\\" + T.expectEq _t () (simplifyWindows "//?/a/b") "\\\\?\\a/b" +#endif diff --git a/tests/T8482.hs b/tests/T8482.hs new file mode 100644 --- /dev/null +++ b/tests/T8482.hs @@ -0,0 +1,23 @@ +module T8482 where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.Internal +import System.Directory.OsPath +import TestUtils () +import Util (TestEnv) +import qualified Util as T + +tmp1 :: OsPath +tmp1 = "T8482.tmp1" + +testdir :: OsPath +testdir = "T8482.dir" + +main :: TestEnv -> IO () +main _t = do + writeFile (so tmp1) "hello" + createDirectory testdir + T.expectIOErrorType _t () (is InappropriateType) (renameFile testdir tmp1) + T.expectIOErrorType _t () (is InappropriateType) (renameFile tmp1 testdir) + T.expectIOErrorType _t () (is InappropriateType) (renameFile tmp1 ".") + where is t = (== t) . ioeGetErrorType diff --git a/tests/TestUtils.hs b/tests/TestUtils.hs new file mode 100644 --- /dev/null +++ b/tests/TestUtils.hs @@ -0,0 +1,110 @@ +{-# LANGUAGE CPP #-} +{-# OPTIONS_GHC -Wno-orphans #-} +-- | Utility functions specific to 'directory' tests +module TestUtils + ( copyPathRecursive + , hardLinkOrCopy + , modifyPermissions + , symlinkOrCopy + , supportsSymlinks + ) where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.Internal +import System.Directory.OsPath +import Data.String (IsString(fromString)) +import System.OsPath ((), normalise, takeDirectory) +#if defined(mingw32_HOST_OS) +import qualified System.Win32 as Win32 +#endif + +-- | @'copyPathRecursive' path@ copies an existing file or directory at +-- /path/ together with its contents and subdirectories. +-- +-- Warning: mostly untested and might not handle symlinks correctly. +copyPathRecursive :: OsPath -> OsPath -> IO () +copyPathRecursive source dest = + (`ioeSetLocation` "copyPathRecursive") `modifyIOError` do + dirExists <- doesDirectoryExist source + if dirExists + then do + contents <- listDirectory source + createDirectory dest + mapM_ (uncurry copyPathRecursive) + [(source x, dest x) | x <- contents] + else copyFile source dest + +modifyPermissions :: OsPath -> (Permissions -> Permissions) -> IO () +modifyPermissions path modify = do + permissions <- getPermissions path + setPermissions path (modify permissions) + +-- | On Windows, the handler is called if symbolic links are unsupported or +-- the user lacks the necessary privileges to create them. On other +-- platforms, the handler is never run. +handleSymlinkUnavail + :: IO a -- ^ handler + -> IO a -- ^ arbitrary action + -> IO a +handleSymlinkUnavail _handler action = action +#if defined(mingw32_HOST_OS) + `catchIOError` \ e -> + case ioeGetErrorType e of + UnsupportedOperation -> _handler + _ | isIllegalOperation e || isPermissionError e -> _handler + _ -> ioError e +#endif + +-- | Create a hard link on Posix. On Windows, it just copies. +hardLinkOrCopy :: OsPath -> OsPath -> IO () +#if defined(mingw32_HOST_OS) +hardLinkOrCopy = copyPathRecursive +#else +hardLinkOrCopy = createHardLink +#endif + +-- | Create a symbolic link. On Windows, this falls back to copying if +-- forbidden by Group Policy or is not supported. On other platforms, there +-- is no fallback. Also, automatically detect if the source is a file or a +-- directory and create the appropriate type of link. +symlinkOrCopy :: OsPath -> OsPath -> IO () +symlinkOrCopy target link = do + let fullTarget = takeDirectory link target + handleSymlinkUnavail (copyPathRecursive fullTarget link) $ do + isDir <- doesDirectoryExist fullTarget + (if isDir then createDirectoryLink else createFileLink) + (normalise target) + link + +supportsSymlinks :: IO Bool +supportsSymlinks = do + canCreate <- supportsLinkCreation + canDeref <- supportsLinkDeref + pure (canCreate && canDeref) + +-- | On Windows, test if symbolic link creation is supported and the user has +-- the necessary privileges to create them. On other platforms, this always +-- returns 'True'. +supportsLinkCreation :: IO Bool +supportsLinkCreation = do + let path = os "_symlink_test.tmp" + isSupported <- handleSymlinkUnavail (pure False) $ do + True <$ createFileLink path path + when isSupported $ do + removeFile path + pure isSupported + +supportsLinkDeref :: IO Bool +supportsLinkDeref = do +#if defined(mingw32_HOST_OS) + True <$ win32_getFinalPathNameByHandle Win32.nullHANDLE 0 + `catchIOError` \ e -> + case ioeGetErrorType e of + UnsupportedOperation -> pure False + _ -> pure True +#else + pure True +#endif + +instance IsString OsString where + fromString = os diff --git a/tests/Util.hs b/tests/Util.hs new file mode 100644 --- /dev/null +++ b/tests/Util.hs @@ -0,0 +1,266 @@ +{-# LANGUAGE BangPatterns #-} +-- | A rudimentary testing framework +module Util where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.Internal +import System.Directory.OsPath +import Data.Time.Clock (NominalDiffTime, UTCTime, diffUTCTime) +import GHC.Stack (CallStack, HasCallStack, callStack, getCallStack, srcLocFile, + srcLocStartLine) +import System.Environment (getEnvironment, setEnv, unsetEnv) +import System.OsPath ((), decodeFS, encodeFS, normalise) +import qualified Data.List as List + +modifyIORef' :: IORef a -> (a -> a) -> IO () +modifyIORef' r f = do + x <- readIORef r + let !x' = f x in writeIORef r x' + +tryAny :: IO a -> IO (Either SomeException a) +tryAny action = do + result <- newEmptyMVar + mask $ \ unmask -> do + thread <- forkIO (try (unmask action) >>= putMVar result) + unmask (readMVar result) `onException` killThread thread + +timeLimit :: Double -> IO a -> IO a +timeLimit time action = do + result <- timeout (round (1000000 * time)) action + case result of + Nothing -> throwIO (userError "timed out") + Just x -> pure x + +data TestEnv = + TestEnv + { testCounter :: IORef Int + , testSilent :: Bool + , testKeepDirs :: Bool + , testArgs :: [(String, String)] + } + +printInfo :: TestEnv -> [String] -> IO () +printInfo TestEnv{testSilent = True} _ = pure () +printInfo TestEnv{testSilent = False} msg = do + putStrLn (List.intercalate ": " msg) + hFlush stdout + +printErr :: [String] -> IO () +printErr msg = do + hPutStrLn stderr ("*** " <> List.intercalate ": " msg) + hFlush stderr + +printFailure :: TestEnv -> [String] -> IO () +printFailure TestEnv{testCounter = n} msg = do + modifyIORef' n (+ 1) + printErr msg + +check :: TestEnv -> Bool -> [String] -> [String] -> [String] -> IO () +check t True prefix msg _ = printInfo t (prefix <> msg) +check t False prefix _ msg = printFailure t (prefix <> msg) + +checkEither :: TestEnv -> [String] -> Either [String] [String] -> IO () +checkEither t prefix (Right msg) = printInfo t (prefix <> msg) +checkEither t prefix (Left msg) = printFailure t (prefix <> msg) + +showContext :: Show a => CallStack -> a -> String +showContext stack context = + case getCallStack stack of + (_, l) : _ -> srcLocFile l <> ":" <> show (srcLocStartLine l) + [] -> "" + <> + case show context of + "()" -> "" + s -> ":" <> s + +inform :: HasCallStack => TestEnv -> String -> IO () +inform t msg = + printInfo t [showContext callStack (), msg] + + +expect :: (HasCallStack, Show a) => TestEnv -> a -> Bool -> IO () +expect t context x = + check t x + [showContext callStack context] + ["True"] + ["False, but True was expected"] + +expectEq :: (HasCallStack, Eq a, Show a, Show b) => + TestEnv -> b -> a -> a -> IO () +expectEq t context x y = + check t (x == y) + [showContext callStack context] + [show x <> " equals " <> show y] + [show x <> " is not equal to " <> show y] + +expectNe :: (HasCallStack, Eq a, Show a, Show b) => + TestEnv -> b -> a -> a -> IO () +expectNe t context x y = + check t (x /= y) + [showContext callStack context] + [show x <> " is not equal to " <> show y] + [show x <> " equals " <> show y] + +expectNear :: (HasCallStack, Num a, Ord a, Show a, Show b) => + TestEnv -> b -> a -> a -> a -> IO () +expectNear t context x y diff = + check t (abs (x - y) <= diff) + [showContext callStack context] + [show x <> " is near " <> show y] + [show x <> " is not near " <> show y] + +expectNearTime :: (HasCallStack, Show a) => + TestEnv -> a -> + UTCTime -> UTCTime -> NominalDiffTime -> IO () +expectNearTime t context x y diff = + check t (abs (diffUTCTime x y) <= diff) + [showContext callStack context] + [show x <> " is near " <> show y] + [show x <> " is not near " <> show y] + +expectIOErrorType :: (HasCallStack, Show a) => + TestEnv -> a -> (IOError -> Bool) -> IO b -> IO () +expectIOErrorType t context which action = do + result <- try action + checkEither t [showContext callStack context] $ case result of + Left e | which e -> Right ["got expected exception (" <> show e <> ")"] + | otherwise -> Left ["got wrong exception: ", show e] + Right _ -> Left ["did not throw an exception"] + +-- | Traverse the directory tree in preorder. +preprocessPathRecursive :: (OsPath -> IO ()) -> OsPath -> IO () +preprocessPathRecursive f path = do + dirExists <- doesDirectoryExist path + if dirExists + then do + isLink <- pathIsSymbolicLink path + f path + when (not isLink) $ do + names <- listDirectory path + for_ ((path ) <$> names) (preprocessPathRecursive f) + else do + f path + +withNewDirectory :: Bool -> OsPath -> IO a -> IO a +withNewDirectory keep dir action = do + dir' <- makeAbsolute dir + bracket_ (createDirectoryIfMissing True dir') (cleanup dir') action + where cleanup dir' | keep = pure () + | otherwise = removePathForcibly dir' + +diffAsc' :: (j -> k -> Ordering) + -> (u -> v -> Bool) + -> [(j, u)] + -> [(k, v)] + -> ([(j, u)], [(k, v)]) +diffAsc' cmp eq = go id id + where + go a b [] [] = (a [], b []) + go a b jus [] = go (a . (jus <>)) b [] [] + go a b [] kvs = go a (b . (kvs <>)) [] [] + go a b jus@((j, u) : jus') kvs@((k, v) : kvs') = + case cmp j k of + LT -> go (a . ((j, u) :)) b jus' kvs + GT -> go a (b . ((k, v) :)) jus kvs' + EQ | eq u v -> go a b jus' kvs' + | otherwise -> go (a . ((j, u) :)) (b . ((k, v) :)) jus' kvs' + +diffAsc :: (Ord k, Eq v) => [(k, v)] -> [(k, v)] -> ([(k, v)], [(k, v)]) +diffAsc = diffAsc' compare (==) + +-- Environment variables may be sensitive, so don't log their values. +scrubEnv :: (String, String) -> (String, String) +scrubEnv (k, v) + -- Allowlist for nonsensitive variables. + | k `elem` ["XDG_CONFIG_HOME"] = (k, v) + | otherwise = (k, "<" <> show (length v) <> " chars>") + +isolateEnvironment :: IO a -> IO a +isolateEnvironment = bracket getEnvs setEnvs . const + where + -- Duplicate environment variables will cause problems for this code. + -- https://github.com/haskell/cabal/issues/10718 + getEnvs = List.sort . filter (\(k, _) -> not (null k)) <$> getEnvironment + setEnvs target = do + current <- getEnvs + let (deletions, insertions) = diffAsc current target + updateEnvs deletions insertions + new <- getEnvs + when (target /= new) $ do + let (missing, extraneous) = diffAsc target new + throwIO (userError ("isolateEnvironment.setEnvs failed:" <> + " deletions=" <> show (scrubEnv <$> deletions) <> + " insertions=" <> show (scrubEnv <$> insertions) <> + " missing=" <> show (scrubEnv <$> missing) <> + " extraneous=" <> show (scrubEnv <$> extraneous))) + updateEnvs deletions insertions = do + for_ deletions (unsetEnv . fst) + for_ insertions (uncurry setEnv) + +isolateWorkingDirectory :: Bool -> OsPath -> IO a -> IO a +isolateWorkingDirectory keep dir action = do + normalisedDir <- decodeFS (normalise dir) + when (normalisedDir `List.elem` [".", "./"]) $ + throwIO (userError ("isolateWorkingDirectory cannot be used " <> + "with current directory")) + dir' <- makeAbsolute dir + removePathForcibly dir' + withNewDirectory keep dir' $ do + withCurrentDirectory dir' $ do + action + +run :: TestEnv -> String -> (TestEnv -> IO ()) -> IO () +run t name action = do + result <- tryAny (action t) + case result of + Left e -> check t False [name] [] ["exception", show e] + Right () -> pure () + +isolatedRun :: TestEnv -> String -> (TestEnv -> IO ()) -> IO () +isolatedRun t@TestEnv{testKeepDirs = keep} name action = do + workDir <- encodeFS ("dist-newstyle/tmp/test-" <> name <> ".tmp") + run t name (isolate workDir . action) + where + isolate workDir = isolateEnvironment . isolateWorkingDirectory keep workDir + +tryRead :: Read a => String -> Maybe a +tryRead s = + case reads s of + [(x, "")] -> Just x + _ -> Nothing + +getArg :: (String -> Maybe a) -> TestEnv -> String -> String -> a -> a +getArg parse TestEnv{testArgs = args} testname name defaultValue = + fromMaybe defaultValue (List.lookup (prefix <> name) args >>= parse) + where prefix | testname == "" = "" + | otherwise = testname <> "." + +readArg :: Read a => TestEnv -> String -> String -> a -> a +readArg = getArg tryRead + +readBool :: String -> Maybe Bool +readBool s = Just $ + case toLower <$> s of + 'y' : _ -> True + 't' : _ -> True + _ -> False + +parseArgs :: [String] -> [(String, String)] +parseArgs = List.reverse . (second (List.drop 1) . List.span (/= '=') <$>) + +testMain :: (TestEnv -> IO ()) -> IO () +testMain action = do + args <- parseArgs <$> getArgs + counter <- newIORef 0 + let t = TestEnv + { testCounter = counter + , testSilent = getArg readBool t "" "silent" False + , testKeepDirs = getArg readBool t "" "keep-dirs" False + , testArgs = args + } + action t + n <- readIORef counter + unless (n == 0) $ do + putStrLn ("[" <> show n <> " failures]") + hFlush stdout + exitFailure diff --git a/tests/WithCurrentDirectory.hs b/tests/WithCurrentDirectory.hs new file mode 100644 --- /dev/null +++ b/tests/WithCurrentDirectory.hs @@ -0,0 +1,28 @@ +module WithCurrentDirectory where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.Internal +import System.Directory.OsPath +import TestUtils () +import Util (TestEnv) +import qualified Util as T +import System.OsPath (()) +import qualified Data.List as List + +main :: TestEnv -> IO () +main _t = do + createDirectory dir + -- Make sure we're starting empty + T.expectEq _t () [] . List.sort =<< listDirectory dir + cwd <- getCurrentDirectory + withCurrentDirectory dir (writeFile (so testfile) contents) + -- Are we still in original directory? + T.expectEq _t () cwd =<< getCurrentDirectory + -- Did the test file get created? + T.expectEq _t () [testfile] . List.sort =<< listDirectory dir + -- Does the file contain what we expected to write? + T.expectEq _t () contents =<< readFile (so (dir testfile)) + where + testfile = "testfile" + contents = "some data\n" + dir = "dir" diff --git a/tests/Xdg.hs b/tests/Xdg.hs new file mode 100644 --- /dev/null +++ b/tests/Xdg.hs @@ -0,0 +1,65 @@ +{-# LANGUAGE CPP #-} +module Xdg where +import Prelude () +import System.Directory.Internal.Prelude +import System.Directory.OsPath +import TestUtils () +import Util (TestEnv) +import qualified Util as T +import qualified Data.List as List +import System.Environment (setEnv, unsetEnv) +import System.FilePath (searchPathSeparator) +#if !defined(mingw32_HOST_OS) +import System.OsPath (()) +#endif + +main :: TestEnv -> IO () +main _t = do + + -- smoke tests + _ <- getXdgDirectoryList XdgDataDirs + _ <- getXdgDirectoryList XdgConfigDirs + + T.expect _t () True -- avoid warnings about redundant imports + + -- setEnv, unsetEnv require base 4.7.0.0+ +#if !defined(mingw32_HOST_OS) + unsetEnv "XDG_CONFIG_HOME" + home <- getHomeDirectory + T.expectEq _t () (home ".config/mow") =<< getXdgDirectory XdgConfig "mow" +#endif + + -- unset variables, so env doesn't affect test running + unsetEnv "XDG_DATA_HOME" + unsetEnv "XDG_CONFIG_HOME" + unsetEnv "XDG_CACHE_HOME" + unsetEnv "XDG_STATE_HOME" + xdgData <- getXdgDirectory XdgData "ff" + xdgConfig <- getXdgDirectory XdgConfig "oo" + xdgCache <- getXdgDirectory XdgCache "rk" + xdgState <- getXdgDirectory XdgState "aa" + + -- non-absolute paths are ignored, and the fallback is used + setEnv "XDG_DATA_HOME" "ar" + setEnv "XDG_CONFIG_HOME" "aw" + setEnv "XDG_CACHE_HOME" "ba" + setEnv "XDG_STATE_HOME" "uw" + T.expectEq _t () xdgData =<< getXdgDirectory XdgData "ff" + T.expectEq _t () xdgConfig =<< getXdgDirectory XdgConfig "oo" + T.expectEq _t () xdgCache =<< getXdgDirectory XdgCache "rk" + T.expectEq _t () xdgState =<< getXdgDirectory XdgState "aa" + + unsetEnv "XDG_CONFIG_DIRS" + unsetEnv "XDG_DATA_DIRS" + _xdgConfigDirs <- getXdgDirectoryList XdgConfigDirs + _xdgDataDirs <- getXdgDirectoryList XdgDataDirs + +#if !defined(mingw32_HOST_OS) + T.expectEq _t () ["/etc/xdg"] _xdgConfigDirs + T.expectEq _t () ["/usr/local/share/", "/usr/share/"] _xdgDataDirs +#endif + + setEnv "XDG_DATA_DIRS" (List.intercalate [searchPathSeparator] ["/a", "/b"]) + setEnv "XDG_CONFIG_DIRS" (List.intercalate [searchPathSeparator] ["/c", "/d"]) + T.expectEq _t () ["/a", "/b"] =<< getXdgDirectoryList XdgDataDirs + T.expectEq _t () ["/c", "/d"] =<< getXdgDirectoryList XdgConfigDirs