appl/svc/httpd/alarms.m


1
2
3
4
5
6
7
8
9
10
11

Alarms: module{
	PATH:  		con	"/dis/svc/httpd/alarms.dis";	

	Alarm: adt{
		alchan: chan of int;
		pid: int;
		stop: fn(a: self Alarm); 
		alarm: fn(time: int): Alarm;
	};
	
};