signal/test.icl

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