53 |
set xfail_prms 0 |
set xfail_prms 0 |
54 |
set sum_file "" ;# name of the file that contains the summary log |
set sum_file "" ;# name of the file that contains the summary log |
55 |
set base_dir "" ;# the current working directory |
set base_dir "" ;# the current working directory |
56 |
|
set xml_file "" ;# name of the xml output if requested |
57 |
|
set xml 0 ;# flag for requesting xml |
58 |
set logname "" ;# the users login name |
set logname "" ;# the users login name |
59 |
set prms_id 0 ;# GNATS prms id number |
set prms_id 0 ;# GNATS prms id number |
60 |
set bug_id 0 ;# optional bug id number |
set bug_id 0 ;# optional bug id number |
160 |
set newline 0 |
set newline 0 |
161 |
} elseif { [lindex $args $i] == "-log" } { |
} elseif { [lindex $args $i] == "-log" } { |
162 |
set logfile 1 |
set logfile 1 |
163 |
|
} elseif { [lindex $args $i] == "-x" } { |
164 |
|
set xml 1 |
165 |
} elseif { [string index [lindex $args $i] 0] == "-" } { |
} elseif { [string index [lindex $args $i] 0] == "-" } { |
166 |
clone_output "ERROR: verbose: illegal argument: [lindex $args $i]" |
clone_output "ERROR: verbose: illegal argument: [lindex $args $i]" |
167 |
return |
return |
1163 |
continue |
continue |
1164 |
} |
} |
1165 |
|
|
1166 |
|
"--x*" { |
1167 |
|
set xml 1 |
1168 |
|
verbose "XML logging turned on" |
1169 |
|
continue |
1170 |
|
} |
1171 |
|
|
1172 |
"--he*" { # (--help) help text |
"--he*" { # (--help) help text |
1173 |
usage; |
usage; |
1174 |
exit 0 |
exit 0 |