home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / piwg / g000002.ada < prev    next >
Encoding:
Text File  |  1988-05-03  |  2.9 KB  |  95 lines
  1.  
  2. -- PERFORMANCE MEASUREMENT : function GET 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 G000002 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.   SCRATCH_CHAR : CHARACTER := 'a' ;
  19. --
  20.  
  21. begin
  22. --
  23. --  Build file for "GET" test
  24. --
  25.   CREATE ( SCRATCH_FILE , OUT_FILE , "SCRATCH2" ) ;
  26.   for INSIDE_LOOP in 1 .. CHECK_TIMES loop
  27.     PUT_LINE ( SCRATCH_FILE , SCRATCH_STRING ) ;
  28.   end loop ;
  29.   CLOSE ( SCRATCH_FILE ) ;
  30.   OPEN ( SCRATCH_FILE , IN_FILE , "SCRATCH2" ) ;
  31.  
  32.   ITERATION.START_CONTROL ;  -- dummy to bring in pages on some machines
  33.  
  34.   delay 0.5 ;  -- wait for stable enviornment on some machines
  35.  
  36.   ITERATION.INITIALIZE ( ITERATION_COUNT ) ;
  37.  
  38.   loop  -- until stable measurement, ITERATION_COUNT increases each time
  39.  
  40. --
  41. -- Control loop
  42. --
  43.     ITERATION.START_CONTROL ;
  44.     for J in 1 .. ITERATION_COUNT loop
  45.       GLOBAL := 0 ;
  46.       for INSIDE_LOOP in 1 .. CHECK_TIMES loop
  47.         GLOBAL := GLOBAL + A_ONE ; 
  48.         REMOTE ;                   
  49. --        GET ( SCRATCH_FILE , SCRATCH_CHAR ) ; -- measured
  50.         for I in 1..20 loop
  51.           SCRATCH_STRING ( I ) := SCRATCH_CHAR ;
  52.         end loop ;
  53.       end loop ;
  54.       RESET ( SCRATCH_FILE ) ;
  55.     end loop ;
  56.     ITERATION.STOP_CONTROL ( GLOBAL , CHECK_TIMES ) ;
  57.  
  58.  
  59. --
  60. -- Test loop
  61. --
  62. -- establish the time for the GET pocdedure on 20 character strings
  63.  
  64.     ITERATION.START_TEST ;
  65.     for J in 1 .. ITERATION_COUNT loop
  66.       GLOBAL := 0 ;
  67.       for INSIDE_LOOP in 1 .. CHECK_TIMES loop
  68.         GLOBAL := GLOBAL + A_ONE ; 
  69.         REMOTE ;                   
  70.         for I in 1..20 loop
  71.           GET ( SCRATCH_FILE , SCRATCH_CHAR ) ;
  72.           SCRATCH_STRING ( I ) := SCRATCH_CHAR ;
  73.         end loop ;
  74.       end loop ;
  75.       RESET ( SCRATCH_FILE ) ;
  76.     end loop ;
  77.     ITERATION.STOP_TEST ( GLOBAL , CHECK_TIMES ) ;
  78.     ITERATION.TEST_STABLE ( ITERATION_COUNT , STABLE ) ;
  79.     exit when STABLE ;
  80.   end loop ;
  81. --
  82.   ITERATION.FEATURE_TIMES ( CPU_TIME , WALL_TIME ) ;
  83.  
  84.   CLOSE ( SCRATCH_FILE ) ;
  85. --
  86. -- Printout
  87. --
  88.   PIWG_IO.PIWG_OUTPUT ( "G000002" , "Input/Output" ,
  89.                         CPU_TIME , WALL_TIME , ITERATION_COUNT ,
  90.      " TEXT_IO.GET called 20 times per line, time measured " ,
  91.      " a scratch file is written, then read and reset " ,
  92.      " Compare to G000001 for about same number of characters " ) ;
  93.  
  94. end G000002 ;
  95.