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