repositories
/
clean-tests.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
bc33213bbaa9ebc8a57a8290b0625947e31506e4
[clean-tests.git]
/
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
}