/usr/lib/hugs/packages/base/System/Cmd.hs is in libhugs-base-bundled 98.200609.21-5.4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 | -----------------------------------------------------------------------------
-- |
-- Module : System.Cmd
-- Copyright : (c) The University of Glasgow 2001
-- License : BSD-style (see the file libraries/base/LICENSE)
--
-- Maintainer : libraries@haskell.org
-- Stability : provisional
-- Portability : portable
--
-- Executing an external command.
--
-----------------------------------------------------------------------------
module System.Cmd
( system, -- :: String -> IO ExitCode
rawSystem, -- :: FilePath -> [String] -> IO ExitCode
) where
import Prelude
import System.Exit ( ExitCode )
import Hugs.System
-- ---------------------------------------------------------------------------
-- system
{-|
Computation @system cmd@ returns the exit code
produced when the operating system processes the command @cmd@.
This computation may fail with
* @PermissionDenied@: The process has insufficient privileges to
perform the operation.
* @ResourceExhausted@: Insufficient resources are available to
perform the operation.
* @UnsupportedOperation@: The implementation does not support
system calls.
On Windows, 'system' is implemented using Windows's native system
call, which ignores the @SHELL@ environment variable, and always
passes the command to the Windows command interpreter (@CMD.EXE@ or
@COMMAND.COM@), hence Unixy shell tricks will not work.
-}
{-|
The computation @'rawSystem' cmd args@ runs the operating system command
@cmd@ in such a way that it receives as arguments the @args@ strings
exactly as given, with no funny escaping or shell meta-syntax expansion.
It will therefore behave more portably between operating systems than 'system'.
The return codes and possible failures are the same as for 'system'.
-}
rawSystem :: String -> [String] -> IO ExitCode
-- crude fallback implementation: could do much better than this under Unix
rawSystem cmd args = system (unwords (map translate (cmd:args)))
translate :: String -> String
translate str = '\'' : foldr escape "'" str
where escape '\'' = showString "'\\''"
escape c = showChar c
|