[project @ 2001-06-28 14:15:04 by simonmar]
[packages/pretty.git] / System / Cmd.hsc
1 -----------------------------------------------------------------------------
2 -- 
3 -- Module      :  System.Cmd
4 -- Copyright   :  (c) The University of Glasgow 2001
5 -- License     :  BSD-style (see the file libraries/core/LICENSE)
6 -- 
7 -- Maintainer  :  libraries@haskell.org
8 -- Stability   :  provisional
9 -- Portability :  portable
10 --
11 -- $Id: Cmd.hsc,v 1.1 2001/06/28 14:15:04 simonmar Exp $
12 --
13 -- Executing a command.
14 --
15 -----------------------------------------------------------------------------
16
17 module System.Cmd
18     ( system        -- :: String -> IO ExitCode
19     ) where
20
21 import Prelude
22
23 import System.Exit
24 import Foreign.C
25
26 #ifdef __GLASGOW_HASKELL__
27 import GHC.IOBase
28 #endif
29
30 #include "HsCore.h"
31
32 -- ---------------------------------------------------------------------------
33 -- system
34
35 -- Computation `system cmd' returns the exit code
36 -- produced when the operating system processes the command `cmd'.
37
38 -- This computation may fail with
39 --   PermissionDenied 
40 --      The process has insufficient privileges to perform the operation.
41 --   ResourceExhausted
42 --      Insufficient resources are available to perform the operation.  
43 --   UnsupportedOperation
44 --      The implementation does not support system calls.
45
46 system :: String -> IO ExitCode
47 system "" = ioException (IOError Nothing InvalidArgument "system" "null command" Nothing)
48 system cmd =
49   withUnsafeCString cmd $ \s -> do
50     status <- throwErrnoIfMinus1 "system" (primSystem s)
51     case status of
52         0  -> return ExitSuccess
53         n  -> return (ExitFailure n)
54
55 foreign import ccall "systemCmd" unsafe primSystem :: UnsafeCString -> IO Int