aboutsummaryrefslogtreecommitdiff
path: root/runtest.exp
diff options
context:
space:
mode:
authorRob Savoye <rob@welcomehome.org>2001-09-12 22:31:36 +0000
committerRob Savoye <rob@welcomehome.org>2001-09-12 22:31:36 +0000
commit1f449230d7601cdfc87d9ccb8902cb327984abbe (patch)
tree1c020515e7037f98bc91ddb689b8ad4a7a5af7a9 /runtest.exp
parente77af0ef603a6cfd7c3c4c904b310ea94d40411a (diff)
downloaddejagnu-1f449230d7601cdfc87d9ccb8902cb327984abbe.zip
dejagnu-1f449230d7601cdfc87d9ccb8902cb327984abbe.tar.gz
dejagnu-1f449230d7601cdfc87d9ccb8902cb327984abbe.tar.bz2
* Makefile.am: Add a clean-local target, and nuke example and
testsuite from SUBDIRS, so they don't get built via "make all". * Makefile: All Makefiles regenerated. * debian/changelog: Update version for 1.4.2 release. * redhat/dejagnu.spec: Update version for 1.4.2 release.
Diffstat (limited to 'runtest.exp')
-rwxr-xr-xruntest.exp33
1 files changed, 17 insertions, 16 deletions
diff --git a/runtest.exp b/runtest.exp
index 8f69a3e..78808f6 100755
--- a/runtest.exp
+++ b/runtest.exp
@@ -333,7 +333,7 @@ proc search_and_load_file { type filelist dirlist } {
foreach dir $dirlist {
foreach initfile $filelist {
- verbose "Looking for $type ${dir}/${initfile}" 1
+ verbose "Looking for $type ${dir}/${initfile}" 2
if [file exists ${dir}/${initfile}] {
set found 1
set error ""
@@ -507,7 +507,6 @@ for { set i 0 } { $i < $argc } { incr i } {
"--di*" {
set cmdline_dir_to_run $optarg
- puts "cmdline_dir_to_run = $cmdline_dir_to_run"
continue
}
@@ -516,6 +515,20 @@ for { set i 0 } { $i < $argc } { incr i } {
incr verbose
continue
}
+
+ "[A-Z0-9_-.]*=*" { # process makefile style args like CC=gcc, etc...
+ if [regexp "^(\[A-Z0-9_-\]+)=(.*)$" $option junk var val] {
+ set $var $val
+ verbose "$var is now $val"
+ append makevars "set $var $val;" ;# FIXME: Used anywhere?
+ unset junk var val
+ } else {
+ send_error "Illegal variable specification:\n"
+ send_error "$option\n"
+ }
+ continue
+ }
+
}
}
verbose "Verbose level is $verbose"
@@ -552,7 +565,7 @@ if [string match "" $logname] {
#
proc lookfor_file { dir name } {
foreach x ".. ../.. ../../.. ../../../.." {
- verbose "$dir/$name"
+ verbose "$dir/$name" 2
if [file exists $dir/$name] {
return $dir/$name;
}
@@ -1146,19 +1159,6 @@ for { set i 0 } { $i < $argc } { incr i } {
continue
}
- "[A-Z0-9_-.]*=*" { # process makefile style args like CC=gcc, etc...
- if [regexp "^(\[A-Z0-9_-\]+)=(.*)$" $option junk var val] {
- set $var $val
- verbose "$var is now $val"
- append makevars "set $var $val;" ;# FIXME: Used anywhere?
- unset junk var val
- } else {
- send_error "Illegal variable specification:\n"
- send_error "$option\n"
- }
- continue
- }
-
"--he*" { # (--help) help text
usage;
exit 0
@@ -1177,6 +1177,7 @@ for { set i 0 } { $i < $argc } { incr i } {
exit 1
}
}
+
}
#