Go to Package Interface

WITH Ada.Calendar;
PACKAGE BODY CPUClock IS

  -- this body is compatible with Ada compilers whose output
  -- runs on single-user IBM-PC-family and Apple Macintosh computers

  SavedTime : Ada.Calendar.Time;

  PROCEDURE ResetCPUTime IS
  BEGIN
    SavedTime := Ada.Calendar.Clock;
  END ResetCPUTime;

  FUNCTION CPUTime RETURN CPUSecond IS
  BEGIN
    RETURN CPUSecond (Ada.Calendar."-"(Ada.Calendar.Clock,SavedTime));
  END CPUTime;

BEGIN -- initialization of package

  -- this statement is executed once, when the package is elaborated,
  -- i.e., just before its client program starts executing

  ResetCPUTime;

END CPUClock;