diff options
| author | sewardj <unknown> | 1999-11-22 10:56:05 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 1999-11-22 10:56:05 +0000 |
| commit | 00c10872f24368fcc38d210b1a990cebe9e71c36 (patch) | |
| tree | 30dad10d25e9b9f13ecbdc335c921878ba0dbfa7 /ghc/interpreter/lib | |
| parent | dfe1bcf198e1908d6ee9057ecda58677685d2f6b (diff) | |
| download | haskell-00c10872f24368fcc38d210b1a990cebe9e71c36.tar.gz | |
[project @ 1999-11-22 10:56:03 by sewardj]
Implement System.system, System.exitWith for Hugs.
Diffstat (limited to 'ghc/interpreter/lib')
| -rw-r--r-- | ghc/interpreter/lib/Prelude.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/ghc/interpreter/lib/Prelude.hs b/ghc/interpreter/lib/Prelude.hs index e2a9302e90..965fbedd3e 100644 --- a/ghc/interpreter/lib/Prelude.hs +++ b/ghc/interpreter/lib/Prelude.hs @@ -117,7 +117,8 @@ module Prelude ( ,nh_stdin,nh_stdout,nh_stderr,copy_String_to_cstring,nh_open ,nh_free,nh_close,nh_errno,nh_flush,nh_read,primIntToChar ,unsafeInterleaveIO,nh_write,primCharToInt, - nullAddr, incAddr, isNullAddr, nh_filesize, nh_iseof, + nullAddr, incAddr, isNullAddr, + nh_filesize, nh_iseof, nh_system, nh_exitwith, nh_getPID, Word, primGtWord, primGeWord, primEqWord, primNeWord, @@ -1734,6 +1735,9 @@ foreign import "nHandle" "nh_load" nh_load :: Addr -> IO Char foreign import "nHandle" "nh_getenv" nh_getenv :: Addr -> IO Addr foreign import "nHandle" "nh_filesize" nh_filesize :: FILE_STAR -> IO Int foreign import "nHandle" "nh_iseof" nh_iseof :: FILE_STAR -> IO Int +foreign import "nHandle" "nh_system" nh_system :: Addr -> IO Int +foreign import "nHandle" "nh_exitwith" nh_exitwith :: Int -> IO () +foreign import "nHandle" "nh_getPID" nh_getPID :: IO Int copy_String_to_cstring :: String -> IO Addr copy_String_to_cstring s |