[project @ 2002-08-29 05:11:41 by ross]

The functions rawSystem, withArgs and withProgName aren't supported
by Hugs yet.

diff --git a/System/Cmd.hs b/System/Cmd.hs
index b4bb038..f5c85ec 100644 (file)
--- a/System/Cmd.hs
+++ b/System/Cmd.hs
@@ -14,7 +14,9 @@
 
 module System.Cmd
     ( system,        -- :: String -> IO ExitCode
+#ifndef __HUGS__
       rawSystem,     -- :: String -> IO ExitCode
+#endif
     ) where
 
 import Prelude
@@ -66,7 +68,6 @@ system cmd =
         n  -> return (ExitFailure n)
 
 foreign import ccall unsafe "systemCmd" primSystem :: CString -> IO Int
-#endif  /* __HUGS__ */
 
 {- | 
 The same as 'system', but bypasses the shell.  Will behave more portably between
@@ -84,3 +85,4 @@ rawSystem cmd =
 
 foreign import ccall unsafe "rawSystemCmd" primRawSystem :: CString -> IO Int
 
+#endif  /* __HUGS__ */

diff --git a/System/Environment.hs b/System/Environment.hs
index 02c11a7..99b25bb 100644 (file)
--- a/System/Environment.hs
+++ b/System/Environment.hs
@@ -17,8 +17,10 @@ module System.Environment
       getArgs,      -- :: IO [String]
       getProgName,   -- :: IO String
       getEnv,        -- :: String -> IO String
+#ifndef __HUGS__
       withArgs,
       withProgName,
+#endif
   ) where
 
 import Prelude
@@ -114,7 +116,6 @@ getEnv name =
 
 foreign import ccall unsafe "getenv"
    c_getenv :: CString -> IO (Ptr CChar)
-#endif  /* __HUGS__ */
 
 {-|
 @withArgs args act@ - while executing action @act@, have 'System.getArgs'
@@ -155,3 +156,4 @@ setArgs argv = do
 
 foreign import ccall unsafe "setProgArgv" 
   setArgsPrim  :: Int -> Ptr CString -> IO ()
+#endif  /* __HUGS__ */