Changeset 2232 for trunk/tsuite

Timestamp:

07/19/08 09:37:32 (6 months ago)

Author:

gary

Message:

clean up run_programs.pl script - make gcc the default

Files:

• trunk/tsuite/programs/run_programs.pl (modified) (3 diffs)

trunk/tsuite/programs/run_programs.pl

@@ -1 +1 @@
 #!usr/bin/perl -w
-#This progarm reads in the names of all the program files 
-#in run_programs.dat and compiles and links them
+# This progarm reads in the names of all the program files 
+# in the file run_programs.da, compiles and links them, then runs the tests
 
 # 1 for gcc, 0 for icc
-$UseGcc = 0; # icc
+$UseGcc = 0; # icl - a special case
 $UseGcc = 1; # g++
 
-# location of source and object files
+# location of source files
 $DirSource  = "../../../source/";
 
@@ -26 +26 @@
 open(RSOM,"$rsome") or die "could not open $rsome \n";
 
-#Reading in the input file names that are to be executed
+# read the program names that are to be executed, each is in a directory of the same name
 while($r=<RSOM>)
 {
@@ -34 +34 @@
      $r=~s/\n//;  #removing any newline characters
      chdir( $r ) or die "could not change to $r \n";
-     $out=$r;     #giving name of output file same as the input file.
-     $out=~s/\.in/.out/gi;
      # compile the program
-     print "Compiling $out\n";
+     print "Compiling $r\n";
      if( $UseGcc )
      {
-        system( "g++  $out.cpp -I \"$DirSource\" \"$DirObject\"/*.o  -lm  ");
+        system( "g++  $r.cpp -I \"$DirSource\" \"$DirObject\"/*.o  -lm  ");
         $exec = "a.exe" ;
      }
      else
      {
-        system( "icl  $out.cpp /I\"$DirSource\" \"$DirObject\"*.obj  ");
-        $exec = "$out.exe" ;
+        system( "icl  $r.cpp /I\"$DirSource\" \"$DirObject\"*.obj  ");
+        $exec = "$r.exe" ;
      }
-     print "done.\n now execute it.\n";
+     print "done.\n now execute $exec \n";
      system( "$exec");
      chdir( ".." ) or die "could not return home \n";