372 |
send_user "\t--host \[string\]\t\tThe canonical config name of the host machine\n" |
send_user "\t--host \[string\]\t\tThe canonical config name of the host machine\n" |
373 |
send_user "\t--host_board \[name\]\tThe host board to use\n" |
send_user "\t--host_board \[name\]\tThe host board to use\n" |
374 |
send_user "\t--target \[string\]\tThe canonical config name of the target board\n" |
send_user "\t--target \[string\]\tThe canonical config name of the target board\n" |
375 |
send_user "\t--status (-st)\t\tSet the exit status to fail on Tcl errors\n" |
send_user "\t--status (-sta)\t\tSet the exit status to fail on Tcl errors\n" |
376 |
send_user "\t--debug (-de)\t\tSet expect debugging ON\n" |
send_user "\t--debug (-de)\t\tSet expect debugging ON\n" |
377 |
send_user "\t--help (-he)\t\tPrint help text\n" |
send_user "\t--help (-he)\t\tPrint help text\n" |
378 |
send_user "\t--mail \[name(s)\]\tWhom to mail the results to\n" |
send_user "\t--mail \[name(s)\]\tWhom to mail the results to\n" |
439 |
"--ob*" - |
"--ob*" - |
440 |
"--ou*" - |
"--ou*" - |
441 |
"--sr*" - |
"--sr*" - |
442 |
"--st*" - |
"--str*" - |
443 |
"--ta*" - |
"--ta*" - |
444 |
"--di*" - |
"--di*" - |
445 |
"--to*" { |
"--to*" { |
469 |
continue |
continue |
470 |
} |
} |
471 |
|
|
|
"--st*" { |
|
|
set exit_error 1 |
|
|
continue |
|
|
} |
|
|
|
|
472 |
"--sr*" { # (--srcdir) where the testsuite source code lives |
"--sr*" { # (--srcdir) where the testsuite source code lives |
473 |
set srcdir $optarg |
set srcdir $optarg |
474 |
continue |
continue |
983 |
"--ob*" - |
"--ob*" - |
984 |
"--ou*" - |
"--ou*" - |
985 |
"--sr*" - |
"--sr*" - |
986 |
"--st*" - |
"--str*" - |
987 |
"--ta*" - |
"--ta*" - |
988 |
"--di*" - |
"--di*" - |
989 |
"--to*" { |
"--to*" { |
1113 |
continue |
continue |
1114 |
} |
} |
1115 |
|
|
1116 |
"--st*" { # (--strace) expect trace level |
"--str*" { # (--strace) expect trace level |
1117 |
set tracelevel $optarg |
set tracelevel $optarg |
1118 |
strace $tracelevel |
strace $tracelevel |
1119 |
verbose "Source Trace level is now $tracelevel" |
verbose "Source Trace level is now $tracelevel" |
1120 |
continue |
continue |
1121 |
} |
} |
1122 |
|
|
1123 |
|
"--sta*" { # (--status) exit status flag |
1124 |
|
set exit_error 1 |
1125 |
|
verbose "Tcl errors will set an ERROR exit status" |
1126 |
|
continue |
1127 |
|
} |
1128 |
|
|
1129 |
"--tool_opt*" { |
"--tool_opt*" { |
1130 |
continue |
continue |
1131 |
} |
} |
1443 |
# notices the error. |
# notices the error. |
1444 |
global exit_status exit_error |
global exit_status exit_error |
1445 |
# exit error is set by a command line option |
# exit error is set by a command line option |
1446 |
set exit_status $exit_error |
if { $exit_status == 0 } { |
1447 |
|
set exit_status $exit_error |
1448 |
|
} |
1449 |
# We can't call `perror' here, it resets `errorInfo' |
# We can't call `perror' here, it resets `errorInfo' |
1450 |
# before we want to look at it. Also remember that perror |
# before we want to look at it. Also remember that perror |
1451 |
# increments `errcnt'. If we do call perror we'd have to |
# increments `errcnt'. If we do call perror we'd have to |