98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
| set argsArray($arg) true
}
}
1 {
set argToExecute {
incr idx
if {$idx >= [llength $args]} {
return -code error "incorrect usage: $arg requires an argument"
}
set argValue [lindex $args $idx]
lappend @[email protected] $arg $argValue
set argsArray($arg) $argValue
}
}
default {
|
|
| 98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
| set argsArray($arg) true
}
}
1 {
set argToExecute {
incr idx
if {$idx >= [llength $args]} {
return -code error "\"$arg\" option must be followed by value"
}
set argValue [lindex $args $idx]
lappend @[email protected] $arg $argValue
set argsArray($arg) $argValue
}
}
default {
|