home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / piwg / a000041.ada < prev    next >
Encoding:
Text File  |  1988-05-03  |  1.4 KB  |  29 lines
  1. -- This is the universal specification for collecting output
  2. -- Various bodies supplied on the distribution tape include :
  3. --  A000042.ADA for screen or printed output
  4. --  A000043.ADA for saving results on disk
  5. --  A000044.ADA for saving result in memory ( No TEXT_IO )
  6. --
  7. --  CPU_DELTA and WALL_DELTA come from the package ITERATION.
  8. --  These values are the time for one feature, in microseconds, of type
  9. --  duration. Thus the limit is 86,400 microseconds.
  10.  
  11. package PIWG_IO is -- A000041.ADA
  12.  
  13.   SAVE_CPU_TIME : DURATION := 0.0 ; -- find this location in memory if using
  14.   SAVE_WALL_TIME : DURATION := 0.0 ; -- A000044.ADA as body.
  15.  
  16.   procedure PIWG_OUTPUT ( TESTNAME : in STRING ; -- only 12 characters saved
  17.                           CLASSNAME : in STRING ; -- only 12 characters saved
  18.                           CPU_DELTA : in DURATION ; -- scaled microseconds
  19.                           WALL_DELTA : in DURATION ; -- scaled microseconds
  20.                           NUM_OF_ITERATIONS : in INTEGER ;
  21.                           TEST_DESC_1 : in STRING ; -- only 80 characters saved
  22.                           TEST_DESC_2 : in STRING ; -- only 80 characters saved
  23.                           TEST_DESC_3 : in STRING ) ; -- ditto
  24.  
  25. -- Note that subtypes are not used because the calling programs would all
  26. -- have to supply exactly the correct length strings for all parameters.
  27.  
  28. end PIWG_IO ;
  29.