aboutsummaryrefslogtreecommitdiffhomepage
path: root/tests/signals001.hs
blob: 20c1d89631a6dd771335ee06722039e02157e5fe (plain)
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
{-# LANGUAGE CPP #-}

import System.Posix.Signals

#include "ghcconfig.h"

main = do
  print (testMembers emptySignalSet)
  print (testMembers emptyset)
  print (testMembers fullSignalSet)
  print (testMembers fullset)

fullset = internalAbort `addSignal`
	  realTimeAlarm `addSignal`
	  busError `addSignal`
	  processStatusChanged `addSignal`
	  continueProcess `addSignal`
	  floatingPointException `addSignal`
	  lostConnection `addSignal`
	  illegalInstruction `addSignal`
	  keyboardSignal `addSignal`
	  killProcess `addSignal`
	  openEndedPipe `addSignal`
	  keyboardTermination `addSignal`
	  segmentationViolation `addSignal`
	  softwareStop `addSignal`
	  softwareTermination `addSignal`
	  keyboardStop `addSignal`
	  backgroundRead `addSignal`
	  backgroundWrite `addSignal`
	  userDefinedSignal1 `addSignal`
	  userDefinedSignal2 `addSignal`
#if HAVE_SIGPOLL
	  pollableEvent `addSignal`
#endif
	  profilingTimerExpired `addSignal`
	  badSystemCall `addSignal`
	  breakpointTrap `addSignal`
	  urgentDataAvailable `addSignal`
	  virtualTimerExpired `addSignal`
	  cpuTimeLimitExceeded `addSignal`
	  fileSizeLimitExceeded `addSignal`
	  emptySignalSet

emptyset = internalAbort `deleteSignal`
	  realTimeAlarm `deleteSignal`
	  busError `deleteSignal`
	  processStatusChanged `deleteSignal`
	  continueProcess `deleteSignal`
	  floatingPointException `deleteSignal`
	  lostConnection `deleteSignal`
	  illegalInstruction `deleteSignal`
	  keyboardSignal `deleteSignal`
	  killProcess `deleteSignal`
	  openEndedPipe `deleteSignal`
	  keyboardTermination `deleteSignal`
	  segmentationViolation `deleteSignal`
	  softwareStop `deleteSignal`
	  softwareTermination `deleteSignal`
	  keyboardStop `deleteSignal`
	  backgroundRead `deleteSignal`
	  backgroundWrite `deleteSignal`
	  userDefinedSignal1 `deleteSignal`
	  userDefinedSignal2 `deleteSignal`
#if HAVE_SIGPOLL
	  pollableEvent `deleteSignal`
#endif
	  profilingTimerExpired `deleteSignal`
	  badSystemCall `deleteSignal`
	  breakpointTrap `deleteSignal`
	  urgentDataAvailable `deleteSignal`
	  virtualTimerExpired `deleteSignal`
	  cpuTimeLimitExceeded `deleteSignal`
	  fileSizeLimitExceeded `deleteSignal`
	  fullSignalSet
  
testMembers set = [
	  internalAbort `inSignalSet` set,
	  realTimeAlarm `inSignalSet` set,
	  busError `inSignalSet` set,
	  processStatusChanged `inSignalSet` set,
	  continueProcess `inSignalSet` set,
	  floatingPointException `inSignalSet` set,
	  lostConnection `inSignalSet` set,
	  illegalInstruction `inSignalSet` set,
	  keyboardSignal `inSignalSet` set,
	  killProcess `inSignalSet` set,
	  openEndedPipe `inSignalSet` set,
	  keyboardTermination `inSignalSet` set,
	  segmentationViolation `inSignalSet` set,
	  softwareStop `inSignalSet` set,
	  softwareTermination `inSignalSet` set,
	  keyboardStop `inSignalSet` set,
	  backgroundRead `inSignalSet` set,
	  backgroundWrite `inSignalSet` set,
	  userDefinedSignal1 `inSignalSet` set,
	  userDefinedSignal2 `inSignalSet` set,
#if HAVE_SIGPOLL
	  pollableEvent `inSignalSet` set,
#endif
	  profilingTimerExpired `inSignalSet` set,
	  badSystemCall `inSignalSet` set,
	  breakpointTrap `inSignalSet` set,
	  urgentDataAvailable `inSignalSet` set,
	  virtualTimerExpired `inSignalSet` set,
	  cpuTimeLimitExceeded `inSignalSet` set,
	  fileSizeLimitExceeded `inSignalSet` set
    ]