projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2004-09-07 15:35:41 by stolz]
[ghc-base.git]
/
System
/
Posix
/
Signals.hsc
diff --git
a/System/Posix/Signals.hsc
b/System/Posix/Signals.hsc
index
7369f69
..
e5a5532
100644
(file)
--- a/
System/Posix/Signals.hsc
+++ b/
System/Posix/Signals.hsc
@@
-51,6
+51,12
@@
module System.Posix.Signals (
virtualTimerExpired, sigVTALRM,
cpuTimeLimitExceeded, sigXCPU,
fileSizeLimitExceeded, sigXFSZ,
virtualTimerExpired, sigVTALRM,
cpuTimeLimitExceeded, sigXCPU,
fileSizeLimitExceeded, sigXFSZ,
+#if HAVE_SIGINFO
+ infoEvent, sigINFO,
+#endif
+#if HAVE_SIGWINCH
+ windowChange, sigWINCH,
+#endif
-- * Sending signals
raiseSignal,
-- * Sending signals
raiseSignal,
@@
-148,6
+154,12
@@
sigURG = (#const SIGURG) :: CInt
sigVTALRM = (#const SIGVTALRM) :: CInt
sigXCPU = (#const SIGXCPU) :: CInt
sigXFSZ = (#const SIGXFSZ) :: CInt
sigVTALRM = (#const SIGVTALRM) :: CInt
sigXCPU = (#const SIGXCPU) :: CInt
sigXFSZ = (#const SIGXFSZ) :: CInt
+#if HAVE_SIGINFO
+sigINFO = (#const SIGINFO) :: CInt
+#endif
+#if HAVE_SIGWINCH
+sigWINCH = (#const SIGWINCH) :: CInt
+#endif
#else
foreign import ccall unsafe "__hsposix_SIGABRT" sigABRT :: CInt
foreign import ccall unsafe "__hsposix_SIGALRM" sigALRM :: CInt
#else
foreign import ccall unsafe "__hsposix_SIGABRT" sigABRT :: CInt
foreign import ccall unsafe "__hsposix_SIGALRM" sigALRM :: CInt
@@
-179,6
+191,12
@@
foreign import ccall unsafe "__hsposix_SIGURG" sigURG :: CInt
foreign import ccall unsafe "__hsposix_SIGVTALRM" sigVTALRM :: CInt
foreign import ccall unsafe "__hsposix_SIGXCPU" sigXCPU :: CInt
foreign import ccall unsafe "__hsposix_SIGXFSZ" sigXFSZ :: CInt
foreign import ccall unsafe "__hsposix_SIGVTALRM" sigVTALRM :: CInt
foreign import ccall unsafe "__hsposix_SIGXCPU" sigXCPU :: CInt
foreign import ccall unsafe "__hsposix_SIGXFSZ" sigXFSZ :: CInt
+#if HAVE_SIGINFO
+foreign import ccall unsafe "__hsposix_SIGINFO" sigINFO :: CInt
+#endif
+#if HAVE_SIGWINCH
+foreign import ccall unsafe "__hsposix_SIGWINCH" sigWINCH :: CInt
+#endif
#endif /* __HUGS__ */
internalAbort ::Signal
#endif /* __HUGS__ */
internalAbort ::Signal
@@
-267,6
+285,16
@@
cpuTimeLimitExceeded = sigXCPU
fileSizeLimitExceeded :: Signal
fileSizeLimitExceeded = sigXFSZ
fileSizeLimitExceeded :: Signal
fileSizeLimitExceeded = sigXFSZ
+#if HAVE_SIGINFO
+infoEvent :: Signal
+infoEvent = sigINFO
+#endif
+
+#if HAVE_SIGWINCH
+windowChange :: Signal
+windowChange = sigWINCH
+#endif
+
-- -----------------------------------------------------------------------------
-- Signal-related functions
-- -----------------------------------------------------------------------------
-- Signal-related functions