From 99cccd623b63570df4d33cbe335faaee323826df Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 21 Nov 2002 11:32:45 +0000
Subject: [PATCH] [project @ 2002-11-21 11:32:45 by simonpj] Add rawSystem
 back in for benefit of pre-504 compilers on Win32

---
 ghc/compiler/main/SysTools.lhs |   52 +++++++++++++++++++++++++++++++---------
 1 file changed, 41 insertions(+), 11 deletions(-)

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index a6f7bf9..d217469 100644
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -71,18 +71,14 @@ import Util		( global, notNull )
 import CmdLineOpts	( dynFlag, verbosity )
 
 import EXCEPTION	( throwDyn )
-#if __GLASGOW_HASKELL__ > 408
-import qualified EXCEPTION as Exception ( catch )
-#else
-import EXCEPTION        ( catchAllIO )
-#endif
-
 import DATA_IOREF	( IORef, readIORef, writeIORef )
 import DATA_INT
     
 import Monad		( when, unless )
 import System		( ExitCode(..), exitWith, getEnv, system )
-import IO
+import IO		( try, catch,
+			  openFile, hPutChar, hPutStrLn, hPutStr, hClose, hFlush, IOMode(..),
+			  stderr )
 import Directory	( doesFileExist, removeFile )
 
 #include "../includes/config.h"
@@ -110,9 +106,21 @@ import CString		( CString, peekCString )
 #if __GLASGOW_HASKELL__ > 504
 import System.Cmd       ( rawSystem )
 #else
-import SystemExts       ( rawSystem )
+
+	-- For Win32 and GHC <= 504
+	-- rawSystem is defined in this module
+	-- We just need an import
+#if __GLASGOW_HASKELL__ < 503
+import PrelIOBase( ioException, IOException(..), IOErrorType(InvalidArgument) )
+#else				
+import GHC.IOBase( ioException, IOException(..), IOErrorType(InvalidArgument) )
 #endif
-#else
+import CError   ( throwErrnoIfMinus1 )
+import CString	( withCString )
+#endif
+
+#else /* Not Win32 */
+
 import System		( system )
 #endif
 \end{code}
@@ -667,7 +675,7 @@ removeTmpFiles verb fs
 	     ("Deleting: " ++ unwords fs)
 	     (mapM_ rm fs)
   where
-    rm f = removeFile f `catch` 
+    rm f = removeFile f `IO.catch` 
 		(\_ignored -> 
 		    when (verb >= 2) $
 		      hPutStrLn stderr ("Warning: deleting non-existent " ++ f)
@@ -729,7 +737,7 @@ traceCmd phase_name cmd_line action
 	; unless n $ do {
 
 	   -- And run it!
-	; action `catch` handle_exn verb
+	; action `IO.catch` handle_exn verb
 	}}
   where
     handle_exn verb exn = do { when (verb >= 2) (hPutStr   stderr "\n")
@@ -868,3 +876,25 @@ quote s = s
 #endif
 
 \end{code}
+
+This next blob is in System.Cmd after 5.04, but until then it needs
+to be here (for Win32 only).
+
+\begin{code}
+#if defined(mingw32_HOST_OS)
+#if __GLASGOW_HASKELL__ <= 504
+
+rawSystem :: String -> IO ExitCode
+rawSystem "" = ioException (IOError Nothing InvalidArgument "rawSystem" "null command" Nothing)
+rawSystem cmd =
+  withCString cmd $ \s -> do
+    status <- throwErrnoIfMinus1 "rawSystem" (primRawSystem s)
+    case status of
+        0  -> return ExitSuccess
+        n  -> return (ExitFailure n)
+
+foreign import ccall "rawSystemCmd" unsafe primRawSystem :: CString -> IO Int
+
+#endif
+#endif
+\end{code}
\ No newline at end of file
-- 
1.7.10.4