signal/test.icl

   1 module test
   2
   3 import StdEnv
   4 import Data.Error
   5 import System.Signal
   6 import System.OSError
   7
   8 Start w
   9         = case signalInstall 2 w of
  10                 (Error (_, m), w) = "signalInstall: " +++ toString m
  11                 (Ok h, w)
  12                         #! w = sleep 5 w
  13                         = case signalPoll h w of
  14                                 (Error m, h, w) = "signalPoll: " +++ m
  15                                 (Ok s, h, w) = "signalState: " +++ toString s
  16
  17 sleep :: !Int !*env -> (!Int, !*env)
  18 sleep _ _ = code {
  19                 ccall sleep "I:I:A"
  20         }