Differences From Artifact [0371a07398]:
- File tls.tcl — part of check-in [98b60c41b6] at 2016-12-14 14:07:51 on branch feature-0d4541b86d-autoservername — Consolidated rules for parsing options and now verify them in tls::init as well (user: rkeene, size: 10608) [annotate] [blame] [check-ins using]
To Artifact [04fbf290ac]:
- File tls.tcl — part of check-in [4e441206d6] at 2016-12-14 16:03:34 on branch feature-0d4541b86d-autoservername — Updated error message to be consistent with "lsearch" output under similar failures (user: rkeene, size: 10607) [annotate] [blame] [check-ins using] [more...]
| ︙ | ︙ | |||
98 99 100 101 102 103 104 | set argsArray($arg) true
}
}
1 {
set argToExecute {
incr idx
if {$idx >= [llength $args]} {
| | | 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 {
|
| ︙ | ︙ |