home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / piwg / g000001.ada < prev    next >
Encoding:
Text File  |  1988-05-03  |  2.6 KB  |  85 lines
  1.  
  2. -- PERFORMANCE MEASUREMENT : function GET_LINE timing
  3.  
  4. with TEXT_IO ; use TEXT_IO ;
  5. with REMOTE_GLOBAL ; use REMOTE_GLOBAL ; -- control optimization
  6. with ITERATION ; -- obtain stable measurement
  7. with PIWG_IO ; -- output results
  8.  
  9. procedure G000001 is  -- main procedure to execute
  10.   CPU_TIME : DURATION ; -- CPU time for one feature execution
  11.   WALL_TIME : DURATION ; -- WALL time for one feature execution
  12.   CHECK_TIMES : constant := 100 ; -- inside loop count and check
  13.   ITERATION_COUNT : INTEGER ; -- set and varied by ITERATION package
  14.   STABLE : BOOLEAN ; -- true when measurement stable
  15.   SCRATCH_FILE : FILE_TYPE ;
  16.   SCRATCH_STRING : STRING ( 1..20 ) := "abcdefghijklmnopqrst";
  17.   SCRATCH_LENGTH : NATURAL ;
  18.  
  19. begin
  20. --
  21. --  Build file for " GET_LINE " test
  22. --
  23.   CREATE ( SCRATCH_FILE , OUT_FILE , "SCRATCH1" ) ;
  24.   for INSIDE_LOOP in 1 .. CHECK_TIMES loop
  25.     PUT_LINE ( SCRATCH_FILE , SCRATCH_STRING ) ;
  26.   end loop ;
  27.   CLOSE ( SCRATCH_FILE ) ;
  28.   OPEN ( SCRATCH_FILE , IN_FILE , "SCRATCH1" ) ;
  29.  
  30.   ITERATION.START_CONTROL ;  -- dummy to bring in pages on some machines
  31.  
  32.   delay 0.5 ;  -- wait for stable enviornment on some machines
  33.  
  34.   ITERATION.INITIALIZE ( ITERATION_COUNT ) ;
  35.  
  36.   loop  -- until stable measurement, ITERATION_COUNT increases each time
  37.  
  38. --
  39. -- Control loop
  40. --
  41.     ITERATION.START_CONTROL ;
  42.     for J in 1 .. ITERATION_COUNT loop
  43.       GLOBAL := 0 ;
  44.       for INSIDE_LOOP in 1 .. CHECK_TIMES loop
  45.         GLOBAL := GLOBAL + A_ONE ; 
  46.         REMOTE ;                   
  47.       end loop ;
  48.       RESET ( SCRATCH_FILE ) ;
  49.     end loop ;
  50.     ITERATION.STOP_CONTROL ( GLOBAL , CHECK_TIMES ) ;
  51.  
  52. --
  53. -- Test loop
  54. --
  55. -- establish the time for the GET_LINE pocdedure on 20 character strings
  56.  
  57.     ITERATION.START_TEST ;
  58.     for J in 1 .. ITERATION_COUNT loop
  59.       GLOBAL := 0 ;
  60.       for INSIDE_LOOP in 1 .. CHECK_TIMES loop
  61.         GLOBAL := GLOBAL + A_ONE ; 
  62.         REMOTE ;                   
  63.         GET_LINE ( SCRATCH_FILE , SCRATCH_STRING , SCRATCH_LENGTH ) ;
  64.       end loop ;
  65.       RESET ( SCRATCH_FILE ) ;
  66.     end loop ;
  67.     ITERATION.STOP_TEST ( GLOBAL , CHECK_TIMES ) ;
  68.     ITERATION.TEST_STABLE ( ITERATION_COUNT , STABLE ) ;
  69.     exit when STABLE ;
  70.   end loop ;
  71. --
  72.   ITERATION.FEATURE_TIMES ( CPU_TIME , WALL_TIME ) ;
  73.  
  74.   CLOSE ( SCRATCH_FILE ) ;
  75. --
  76. -- Printout
  77. --
  78.   PIWG_IO.PIWG_OUTPUT ( "G000001" , "Input/Output" ,
  79.                         CPU_TIME , WALL_TIME , ITERATION_COUNT ,
  80.      " TEXT_IO.GET_LINE reading 20 characters, time measured " ,
  81.      " A scratch file is written, then read and reset " ,
  82.      " " ) ;
  83.  
  84. end G000001 ;
  85.