home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / piwg / a000042.ada < prev    next >
Encoding:
Text File  |  1988-05-03  |  1.3 KB  |  43 lines
  1. -- This is one of a number of optional PIWG_IO bodies.
  2. -- This body is for systems that have TEXT_IO and want either
  3. -- screen or printed output.
  4.  
  5. with TEXT_IO ; use TEXT_IO ;
  6. with DURATION_IO ;  --  A000001.ADA or A000002.ADA
  7.  
  8. package body PIWG_IO is -- A000042.ADA
  9.  
  10.   procedure PIWG_OUTPUT ( TESTNAME : in STRING ;
  11.                           CLASSNAME : in STRING ;
  12.                           CPU_DELTA : in DURATION ;
  13.                           WALL_DELTA : in DURATION ;
  14.                           NUM_OF_ITERATIONS : in INTEGER ;
  15.                           TEST_DESC_1 : in STRING ;
  16.                           TEST_DESC_2 : in STRING ;
  17.                           TEST_DESC_3 : in STRING ) is
  18.   begin
  19.     NEW_LINE ;
  20.     PUT ( "Test Name:   " ) ;
  21.     PUT ( TESTNAME ) ;
  22.     PUT ( "                        Class Name:  " ) ;
  23.     PUT_LINE ( CLASSNAME ) ;
  24.  
  25.     PUT ( "CPU Time:   " ) ;
  26.     DURATION_IO.PUT ( CPU_DELTA , 6 , 1 ) ;
  27.     PUT_LINE ( "  microseconds " ) ;
  28.  
  29.     PUT ( "Wall Time:  " ) ;
  30.     DURATION_IO.PUT ( WALL_DELTA , 6 , 1 ) ;
  31.     PUT ( "  microseconds.         Iteration Count:  " ) ;
  32.     PUT_LINE ( INTEGER'IMAGE( NUM_OF_ITERATIONS )) ;
  33.  
  34.     PUT_LINE ( "Test Description:" ) ;
  35.     PUT_LINE ( TEST_DESC_1 ) ;
  36.     PUT_LINE ( TEST_DESC_2 ) ;
  37.     PUT_LINE ( TEST_DESC_3 ) ;
  38.     NEW_LINE ( 2 ) ;
  39.  
  40.   end PIWG_OUTPUT ;
  41.  
  42. end PIWG_IO ;
  43.