ChangeLogTag:Thu Dec 13 18:18:42 2000 Darrell Brunsch <brunsch@uci.edu>

5 files changed, 121 insertions, 24 deletions

diff --git a/ChangeLog b/ChangeLog
index 77932bfe966..a9fc3b2c503 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,32 @@
+Thu Dec 13 18:18:42 2000  Darrell Brunsch <brunsch@uci.edu>
+
+        * bin/PerlACE/ConfigList.pm: (added)
+        * bin/PerlACE/Process.pm: (added)
+        * bin/PerlACE/Process_Unix.pm: (added)
+        * bin/PerlACE/Process_Win32.pm: (added)
+        * bin/PerlACE/Run_Test.pm: (added)
+
+          These are a couple of Perl modules that will be used
+          to simplify current run_test.pl's and the auto_builds
+          and to allow us to run tests on Win32 for configurations
+          that output executables into subdirs (Win32 Release,
+          Win32 Static *, Borland).  The conversion of scripts over 
+          to the new style will occur in separate checkins.
+
+          ConfigList provides a more powerful *.lst format for
+          specifying test lists.  Process is a newer version of
+          the old bin/Process.pm that has a different interface
+          and a couple of extra methods for common tasks for
+          our scripts.  And Run_Test.pm will replace the 
+          bin/ACEutils.pm and be the main module for our 
+          run_test.pl scripts.  It contains some common subroutines
+          and automatically parses some arguments via ARGV.
+
+        * docs/run_test.txt: (added)
+
+          A bit of documentation on how new run_test.pl's will
+          look.
+
 Wed Dec 13 18:15:03 2000  Carlos O'Ryan  <coryan@uci.edu>
 
 	* ace/CDR_Stream.h:
diff --git a/ChangeLogs/ChangeLog-02a b/ChangeLogs/ChangeLog-02a
index 77932bfe966..a9fc3b2c503 100644
--- a/ChangeLogs/ChangeLog-02a
+++ b/ChangeLogs/ChangeLog-02a
@@ -1,3 +1,32 @@
+Thu Dec 13 18:18:42 2000  Darrell Brunsch <brunsch@uci.edu>
+
+        * bin/PerlACE/ConfigList.pm: (added)
+        * bin/PerlACE/Process.pm: (added)
+        * bin/PerlACE/Process_Unix.pm: (added)
+        * bin/PerlACE/Process_Win32.pm: (added)
+        * bin/PerlACE/Run_Test.pm: (added)
+
+          These are a couple of Perl modules that will be used
+          to simplify current run_test.pl's and the auto_builds
+          and to allow us to run tests on Win32 for configurations
+          that output executables into subdirs (Win32 Release,
+          Win32 Static *, Borland).  The conversion of scripts over 
+          to the new style will occur in separate checkins.
+
+          ConfigList provides a more powerful *.lst format for
+          specifying test lists.  Process is a newer version of
+          the old bin/Process.pm that has a different interface
+          and a couple of extra methods for common tasks for
+          our scripts.  And Run_Test.pm will replace the 
+          bin/ACEutils.pm and be the main module for our 
+          run_test.pl scripts.  It contains some common subroutines
+          and automatically parses some arguments via ARGV.
+
+        * docs/run_test.txt: (added)
+
+          A bit of documentation on how new run_test.pl's will
+          look.
+
 Wed Dec 13 18:15:03 2000  Carlos O'Ryan  <coryan@uci.edu>
 
 	* ace/CDR_Stream.h:
diff --git a/ChangeLogs/ChangeLog-03a b/ChangeLogs/ChangeLog-03a
index 77932bfe966..a9fc3b2c503 100644
--- a/ChangeLogs/ChangeLog-03a
+++ b/ChangeLogs/ChangeLog-03a
@@ -1,3 +1,32 @@
+Thu Dec 13 18:18:42 2000  Darrell Brunsch <brunsch@uci.edu>
+
+        * bin/PerlACE/ConfigList.pm: (added)
+        * bin/PerlACE/Process.pm: (added)
+        * bin/PerlACE/Process_Unix.pm: (added)
+        * bin/PerlACE/Process_Win32.pm: (added)
+        * bin/PerlACE/Run_Test.pm: (added)
+
+          These are a couple of Perl modules that will be used
+          to simplify current run_test.pl's and the auto_builds
+          and to allow us to run tests on Win32 for configurations
+          that output executables into subdirs (Win32 Release,
+          Win32 Static *, Borland).  The conversion of scripts over 
+          to the new style will occur in separate checkins.
+
+          ConfigList provides a more powerful *.lst format for
+          specifying test lists.  Process is a newer version of
+          the old bin/Process.pm that has a different interface
+          and a couple of extra methods for common tasks for
+          our scripts.  And Run_Test.pm will replace the 
+          bin/ACEutils.pm and be the main module for our 
+          run_test.pl scripts.  It contains some common subroutines
+          and automatically parses some arguments via ARGV.
+
+        * docs/run_test.txt: (added)
+
+          A bit of documentation on how new run_test.pl's will
+          look.
+
 Wed Dec 13 18:15:03 2000  Carlos O'Ryan  <coryan@uci.edu>
 
 	* ace/CDR_Stream.h:
diff --git a/bin/PerlACE/ConfigList.pm b/bin/PerlACE/ConfigList.pm
index dbfcee5b70b..f2546d844d9 100644
--- a/bin/PerlACE/ConfigList.pm
+++ b/bin/PerlACE/ConfigList.pm
@@ -4,10 +4,31 @@ package PerlACE::ConfigList;
 use strict;
 use FileHandle;
 
+@PerlACE::ConfigList::Configs = ();
+
+my @new_argv = ();
+
+for(my $i = 0; $i <= $#ARGV; ++$i) {
+    if ($ARGV[$i] eq '-Config') {  
+        if (defined $ARGV[$i + 1]) {
+            push @PerlACE::ConfigList::Configs, $ARGV[++$i];
+        }
+        else {
+            print STDERR "You must pass a configuration with Config\n";
+            exit(1);
+        }
+    }
+    else {
+        push @new_argv, $ARGV[$i];
+    }
+}
+@ARGV = @new_argv;
+
+
 sub new () 
 {
     my $self = {};
-    @{$self->{MY_CONFIGS}} = @::CONFIGS;
+    @{$self->{MY_CONFIGS}} = @PerlACE::ConfigList::Configs;
     bless $self;
     return $self;
 }
diff --git a/bin/PerlACE/Run_Test.pm b/bin/PerlACE/Run_Test.pm
index f41bfccf8bc..08ab4fa22f2 100644
--- a/bin/PerlACE/Run_Test.pm
+++ b/bin/PerlACE/Run_Test.pm
@@ -3,35 +3,24 @@
 # This module contains a few miscellanous functions and some
 # startup ARGV processing that is used by all tests.
 
-# @todo Move config into Config
-@CONFIGS = ();
-
 use PerlACE::Process;
+use PerlACE::ConfigList;
+
 package PerlACE;
+use Cwd;
 
-sub CheckForConfig
+sub LocalFile ($)
 {
-    my @new_argv = ();
-
-    for($i = 0; $i <= $#ARGV; ++$i) {
-        if ($ARGV[$i] eq '-Config') {  
-            if (defined $ARGV[$i + 1]) {
-                push @::CONFIGS, $ARGV[++$i];
-            }
-            else {
-              print STDERR "You must pass a directory with Config\n";
-              exit(1);
-            }
-        }
-        else {
-            push @new_argv, $ARGV[$i];
-        }
-    }
-    @ARGV = @new_argv;
-}
+    my $file = shift;
 
-CheckForConfig ();
+    my $newfile = getcwd () . '/' . $file;
 
+    if ($^O eq "MSWin32") {
+        $newfile =~ s/\//\\/g;
+    }
+
+    return $newfile;
+}
 
 
 # Returns a unique id, uid for unix, last digit of IP for NT