[project @ 1996-01-08 20:28:12 by partain]

[ghc-hetmet.git] / ghc / misc / examples / posix / po009 / Main.hs

diff --git a/ghc/misc/examples/posix/po009/Main.hs b/ghc/misc/examples/posix/po009/Main.hs
new file mode 100644 (file)
index 0000000..9707c58
--- /dev/null
+++ b/ghc/misc/examples/posix/po009/Main.hs
@@ -0,0 +1,14 @@
+import LibPosix
+
+main =
+    putStr "Blocking real time alarms.\n" >>
+    blockSignals (addSignal realTimeAlarm emptySignalSet) >>
+    putStr "Scheduling an alarm in 2 seconds...\n" >>
+    scheduleAlarm 2 >>
+    putStr "Sleeping 5 seconds.\n" >>
+    sleep 5 >>
+    getPendingSignals >>= \ ints ->
+    putStr "Checking pending interrupts for RealTimeAlarm\n" >>
+    putText (inSignalSet realTimeAlarm ints) >>
+    putChar '\n'
+