processevent.dcl 379 Bytes
Newer Older
Peter Achten's avatar
Peter Achten committed
1
2
3
4
5
6
7
8
9
10
11
12
13
definition module processevent


//	Clean Object I/O library, version 1.2

//	processevent defines the DeviceEventFunction for the process device.
//	This function is placed in a separate module because it is platform dependent.


import	deviceevents
from	iostate	import PSt, IOSt


14
processEvent :: !SchedulerEvent !(PSt .l) -> (!Bool,!Maybe DeviceEvent,!SchedulerEvent,!PSt .l)