/[dejagnu]/dejagnu/runtest.exp
ViewVC logotype

Diff of /dejagnu/runtest.exp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by rsavoye, Sun Oct 7 04:10:28 2001 UTC revision 1.9 by rsavoye, Fri Apr 26 04:22:42 2002 UTC
# Line 53  set xfail_flag  0 Line 53  set xfail_flag  0
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
# Line 158  proc verbose { args } { Line 160  proc verbose { args } {
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
# Line 1159  for { set i 0 } { $i < $argc } { incr i Line 1163  for { set i 0 } { $i < $argc } { incr i
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      

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26