Return to ts_timer.adb CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / System

Annotation of OpenXM_contrib/PHC/Ada/System/ts_timer.adb, Revision 1.1.1.1

1.1       maekawa     1: with text_io,integer_io;            use text_io,integer_io;
                      2: with Timing_Package;                use Timing_Package;
                      3:
                      4: procedure ts_timer is
                      5:
                      6: -- DESCRIPTION :
                      7: --   Test of timing package on computing sums of natural numbers.
                      8: --   Do "time ts_timer" when running this program to see whether
                      9: --   the UNIX timer gives the same results as the printed times.
                     10:
                     11:   n,m,acc : natural;
                     12:   timer,totaltimer : timing_widget;
                     13:
                     14: begin
                     15:   new_line;
                     16:   put_line("Test of timer on computation of sums and products.");
                     17:   new_line;
                     18:   tstart(totaltimer);
                     19:   put("Give number of sums     : "); get(n);
                     20:   put("Give number of products : "); get(m);
                     21:   tstart(timer);
                     22:   acc := 0;
                     23:   for i in 1..n loop
                     24:     acc := acc + 1;
                     25:   end loop;
                     26:   tstop(timer);
                     27:   new_line;
                     28:   put("1 + 1 + .. + 1 : "); put(acc); new_line;
                     29:   print_times(timer,"calculating the sum");
                     30:   new_line;
                     31:   tstart(timer);
                     32:   acc := 1;
                     33:   for i in 1..m loop
                     34:     acc:= acc*acc;
                     35:   end loop;
                     36:   tstop(timer);
                     37:   put("1 * 1 * .. * 1 : "); put(acc); new_line;
                     38:   print_times(timer,"calculating the product");
                     39:   new_line;
                     40:   tstop(totaltimer);
                     41:   print_times(totaltimer,"the whole program");
                     42:   new_line;
                     43: end ts_timer;