69 |
set multipass "" ;# list of passes and var settings |
set multipass "" ;# list of passes and var settings |
70 |
set errno ""; ;# |
set errno ""; ;# |
71 |
set exit_error 0 ;# Toggle for whether to set the exit status |
set exit_error 0 ;# Toggle for whether to set the exit status |
72 |
;# on Tcl bugs in test case drivers. |
;# on Tcl bugs in test case drivers. |
73 |
# |
# |
74 |
# These describe the host and target environments. |
# These describe the host and target environments. |
75 |
# |
# |
1177 |
exit 0 |
exit 0 |
1178 |
} |
} |
1179 |
|
|
1180 |
"[A-Z0-9_-.]*=*" { # skip makefile style args like CC=gcc, etc... (processed in first pass) |
"[A-Z0-9_-.]*=*" { # skip makefile style args like CC=gcc, etc... (processed in first pass) |
1181 |
continue |
continue |
1182 |
} |
} |
1183 |
|
|
1184 |
default { |
default { |
1185 |
if [info exists tool] { |
if [info exists tool] { |
1311 |
# If we can't load the tool init file, this must be a simple natively hosted |
# If we can't load the tool init file, this must be a simple natively hosted |
1312 |
# test suite, so we use the default procs for Unix. |
# test suite, so we use the default procs for Unix. |
1313 |
if { [search_and_load_file "library file" default.exp [list $libdir $libdir/config [file dirname [file dirname $srcdir]]/dejagnu/config $srcdir/config . [file dirname [file dirname [file dirname $srcdir]]]/dejagnu/config]] == 0 } { |
if { [search_and_load_file "library file" default.exp [list $libdir $libdir/config [file dirname [file dirname $srcdir]]/dejagnu/config $srcdir/config . [file dirname [file dirname [file dirname $srcdir]]]/dejagnu/config]] == 0 } { |
1314 |
send_error "ERROR: Couldn't find default tool init file.\n" |
send_error "ERROR: Couldn't find default tool init file.\n" |
1315 |
exit 1 |
exit 1 |
1316 |
} |
} |
1317 |
} |
} |
1318 |
} |
} |
1505 |
{SIGINT {interrupted by user}} \ |
{SIGINT {interrupted by user}} \ |
1506 |
{SIGQUIT {interrupted by user}} \ |
{SIGQUIT {interrupted by user}} \ |
1507 |
{SIGSEGV {segmentation violation}}" { |
{SIGSEGV {segmentation violation}}" { |
1508 |
set signal [lindex $sig 0] |
set signal [lindex $sig 0] |
1509 |
set str [lindex $sig 1] |
set str [lindex $sig 1] |
1510 |
trap "send_error \"got a \[trap -name\] signal, $str \\n\"; log_and_exit;" $signal |
trap "send_error \"got a \[trap -name\] signal, $str \\n\"; log_and_exit;" $signal |
1511 |
verbose "setting trap for $signal to $str" 1 |
verbose "setting trap for $signal to $str" 1 |
1512 |
} |
} |
1513 |
unset signal str sig |
unset signal str sig |
1514 |
} |
} |
1599 |
regsub -all "\(\[^/\]\)//*" $srcdir "\\1/" srcdir |
regsub -all "\(\[^/\]\)//*" $srcdir "\\1/" srcdir |
1600 |
|
|
1601 |
if ![info exists target_list] { |
if ![info exists target_list] { |
1602 |
# Make sure there is at least one target machine. It's probably a Unix box, |
# Make sure there is at least one target machine. It's probably a Unix box, |
1603 |
# but that's just a guess. |
# but that's just a guess. |
1604 |
set target_list { "unix" } |
set target_list { "unix" } |
1605 |
} else { |
} else { |
1606 |
verbose "target list is $target_list" |
verbose "target list is $target_list" |
1635 |
|
|
1636 |
setup_target_hook $current_target_name $current_target |
setup_target_hook $current_target_name $current_target |
1637 |
|
|
1638 |
# If multiple passes requested, set them up. Otherwise prepare just one. |
# If multiple passes requested, set them up. Otherwise prepare just one. |
1639 |
# The format of `MULTIPASS' is a list of elements containing |
# The format of `MULTIPASS' is a list of elements containing |
1640 |
# "{ name var1=value1 ... }" where `name' is a generic name for the pass and |
# "{ name var1=value1 ... }" where `name' is a generic name for the pass and |
1641 |
# currently has no other meaning. |
# currently has no other meaning. |
1642 |
|
|
1643 |
global env |
global env |
1644 |
|
|
1649 |
set multipass { "" } |
set multipass { "" } |
1650 |
} |
} |
1651 |
|
|
1652 |
# If PASS is specified, we want to run only the tests specified. |
# If PASS is specified, we want to run only the tests specified. |
1653 |
# Its value should be a number or a list of numbers that specify |
# Its value should be a number or a list of numbers that specify |
1654 |
# the passes that we want to run. |
# the passes that we want to run. |
1655 |
if [info exists PASS] { |
if [info exists PASS] { |
1656 |
set pass $PASS |
set pass $PASS |
1657 |
} else { |
} else { |