Re: Stopwatch project

[Matthew Heaney <matthew_heaney@acm.org>]

"Brian A Crawford" <brianc@billybob.demon.co.uk> writes:

> I have found on page 914-915 of 'Ada as a Second Language'  a package called
> Stopwatch but find no example on how to use it (and the fact that it is on
> page 914 is not lost on a beginner :-) ).
> 
> Any help would be extremely greatly appreciated.

Here is a test driver.  It does something similar to what you want, but
without using Get_Immediate.

My run-time is broken, so when I run this program, it dumps core.  Try
it yourself and see if it works.

Matt
<mailto:matthew_heaney@acm.org>



--STX
with Stopwatch;
with Ada.Text_IO; use Ada.Text_IO;

procedure Test_Stopwatch is

   C : Character;

begin

   Main:
   loop

      Get (C);

      case C is
         when 'r' | 'R' =>
            Stopwatch.Reset;
            Put_Line ("Stopwatch has been reset.");

         when ' ' =>
            Stopwatch.Start;
            Put_Line ("Stopwatch has been started.");

         when 's' | 'S' =>
            Stopwatch.Stop;
            Put_Line
              ("Stopwatch stopped; total time is " &
               Duration'Image (Stopwatch.Total_Time) &
               ".");

         when 'x' | 'X' =>
            exit Main;

         when others =>
            Put_Line ("Bad input.");

      end case;

   end loop Main;

end Test_Stopwatch;