1Timers: module
2{
3 PATH: con "/dis/lib/timers.dis";
4
5 Sec: con 1000;
6
7 Timer: adt {
8 dt: int;
9 timeout: chan of int;
10
11 start: fn(msec: int): ref Timer;
12 stop: fn(t: self ref Timer);
13 };
14
15 init: fn(gran: int): int;
16 shutdown: fn();
17};
18