module Config.Dyre.Compat ( customExec, getPIDString ) where
import Config.Dyre.Options ( customOptions )
#if defined(mingw32_HOST_OS) || defined(__MINGW32__)
import System.Win32
import System.Process
import System.Exit
import System.Mem
foreign import stdcall unsafe "winbase.h GetCurrentProcessId"
c_GetCurrentProcessID :: IO DWORD
getPIDString = fmap show c_GetCurrentProcessID
customExec binary mArgs = do
args <- customOptions mArgs
(_,_,_,child) <- createProcess $ CreateProcess
{ cmdspec = RawCommand binary args
, cwd = Nothing
, env = Nothing
, std_in = Inherit
, std_out = Inherit
, std_err = Inherit
, close_fds = True
}
performGC
exitCode <- waitForProcess child
case exitCode of
ExitSuccess -> c_ExitProcess 0
ExitFailure c -> c_ExitProcess (fromIntegral c)
foreign import stdcall unsafe "winbase.h ExitProcess"
c_ExitProcess :: UINT -> IO ()
#else
import System.Posix.Process ( executeFile, getProcessID )
getPIDString = fmap show getProcessID
customExec binary mArgs = do
args <- customOptions mArgs
executeFile binary False args Nothing
#endif
customExec :: FilePath -> Maybe [String] -> IO ()
getPIDString :: IO String