module test

import StdEnv
import Data.Error
import System.Signal
import System.OSError

import code from "bork."

Start w
	= case signalInstall 2 w of
		(Error (_, m), w) = "signalInstall: " +++ toString m
		(Ok h, w)
			#! w = sleep 5 w
			= case signalPoll h w of
				(Error m, h, w) = "signalPoll: " +++ m
				(Ok s, h, w) = "signalState: " +++ toString s

sleep :: !Int !*env -> (!Int, !*env)
sleep _ _ = code {
		ccall sleep "I:I:A"
	}