16 lines
444 B
Haskell
16 lines
444 B
Haskell
|
import System.Posix.Signals
|
||
|
|
import System.Posix.Unistd
|
||
|
|
|
||
|
|
main = do
|
||
|
|
putStrLn "Blocking real time alarms."
|
||
|
|
blockSignals (addSignal realTimeAlarm reservedSignals)
|
||
|
|
putStrLn "Scheduling an alarm in 2 seconds..."
|
||
|
|
scheduleAlarm 2
|
||
|
|
putStrLn "Sleeping 5 seconds."
|
||
|
|
sleep 5
|
||
|
|
putStrLn "Woken up"
|
||
|
|
ints <- getPendingSignals
|
||
|
|
putStrLn "Checking pending interrupts for RealTimeAlarm"
|
||
|
|
print (inSignalSet realTimeAlarm ints)
|
||
|
|
|