-- Timer.mesa
-- Last Modified On 21-Jan-82 10:56:28 By Paul Rovner

Timer: DEFINITIONS =
 { 

--TYPEs
   Handle: TYPE = REF Object;

   Object: TYPE;
     
   Seconds: TYPE = REAL;

-- PROCEDUREs

   Create: PROC RETURNS[Handle];
	 --a timer should be read or reset no less often than once every
	 --40 minutes, roughly. The implementation uses System.GetClockPulses.
   
   Read: PROC[self: Handle] RETURNS[time, deltaTime: Seconds];
         --time: the number of seconds since the timer was last created or reset
	 --deltaTime: the number of seconds since the timer was last read
   
   Reset: PROC[self: Handle];

 }.