module Workaround
(
renameFile
, setExecutable
, getCurrentDirectory
, installHandler
, raiseSignal
, Handler(..)
, Signal
, sigINT
, sigHUP
, sigABRT
, sigALRM
, sigTERM
, sigPIPE
) where
#ifdef WIN32
import qualified System.Directory ( renameFile, getCurrentDirectory, removeFile )
import qualified Control.Exception ( block )
import qualified System.IO.Error ( isDoesNotExistError, ioError, catch )
#else
import System.Posix.Signals(installHandler, raiseSignal, Handler(..), Signal,
sigINT, sigHUP, sigABRT, sigALRM, sigTERM, sigPIPE)
import System.Directory ( renameFile, getCurrentDirectory )
import System.Posix.Files (fileMode,getFileStatus, setFileMode,
setFileCreationMask,
ownerReadMode, ownerWriteMode, ownerExecuteMode,
groupReadMode, groupWriteMode, groupExecuteMode,
otherReadMode, otherWriteMode, otherExecuteMode)
import Data.Bits ( (.&.), (.|.), complement )
#endif
#ifdef WIN32
data Handler = Default
| Ignore
| Catch (IO ())
type Signal = Int
installHandler :: Signal
-> Handler
-> Maybe ()
-> IO ()
installHandler _ _ _ = return ()
raiseSignal :: Signal -> IO ()
raiseSignal _ = return ()
sigINT :: Signal
sigINT = 0
sigHUP :: Signal
sigHUP = 0
sigABRT :: Signal
sigABRT = 0
sigTERM :: Signal
sigTERM = 0
sigPIPE :: Signal
sigPIPE = 0
sigALRM :: Signal
sigALRM = 0
renameFile :: FilePath
-> FilePath
-> IO ()
renameFile old new = Control.Exception.block $
System.Directory.renameFile old new
`System.IO.Error.catch` \_ ->
do System.Directory.removeFile new
`System.IO.Error.catch`
(\e -> if System.IO.Error.isDoesNotExistError e
then return ()
else System.IO.Error.ioError e)
System.Directory.renameFile old new
setExecutable :: FilePath
-> Bool
-> IO ()
setExecutable _ _ = return ()
getCurrentDirectory :: IO FilePath
getCurrentDirectory = do
d <- System.Directory.getCurrentDirectory
return $ map rb d
where
rb '\\' = '/'
rb c = c
#else
setExecutable :: FilePath
-> Bool
-> IO ()
setExecutable f ex = do
st <- getFileStatus f
umask <- setFileCreationMask 0
_ <- setFileCreationMask umask
let rw = fileMode st .&.
(ownerReadMode .|. ownerWriteMode .|.
groupReadMode .|. groupWriteMode .|.
otherReadMode .|. otherWriteMode)
total = if ex then rw .|.
((ownerExecuteMode .|. groupExecuteMode .|. otherExecuteMode)
.&. complement umask)
else rw
setFileMode f total
#endif