-- Copyright (C) 1984, 1987  by Xerox Corporation. All rights reserved. 
-- CpuIdleDummyImpl.mesa
-- Last edited by: Hoffman 27-Mar-84 11:03:48
-- Cut down for use on DayBreak, Tim Diebert  9-Jul-87 15:13:47 


DIRECTORY
  CpuIdle
  ;
  
CpuIdleDummyImpl: PROGRAM
  EXPORTS CpuIdle =
  BEGIN
  
  cycleCount: LONG CARDINAL ¬ 0;
  
  GetRawCpuUtilization: PUBLIC PROCEDURE RETURNS [LONG CARDINAL] =
    BEGIN
    RETURN[1];
    END;
    
  GetSmoothedCpuUtilization: PUBLIC PROCEDURE RETURNS [CARDINAL] =
    BEGIN
    RETURN[1];
    END;
    
  GetCalibration: PUBLIC PROCEDURE RETURNS[
    cyclesPerSecond, pulsesPerSecond: LONG CARDINAL, calibrateDone: BOOLEAN] =
    BEGIN
    RETURN[100, 100, TRUE];
    END;
    
  GetCycles: PUBLIC PROCEDURE RETURNS[cycles: LONG CARDINAL] =
    BEGIN
    cycleCount ¬ cycleCount + 1;
    RETURN[cycleCount];
    END;


  CourierConnections: PROCEDURE RETURNS [CARDINAL] = INLINE
    BEGIN RETURN[1] END;
    

  -- Mainline Code
  
  END..