TclTLS
Check-in [4e441206d6]
Login
HomeTimelineDownloadBrowse SourceBranchesTagsTicketsWiki
Overview
Comment:Updated error message to be consistent with "lsearch" output under similar failures
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | feature-0d4541b86d-autoservername
Files: files | file ages | folders
SHA1: 4e441206d6429be00aee828b3c00da38373e0281
User & Date: rkeene on 2016-12-14 16:03:34
Other Links: branch diff | manifest | tags
Context
2016-12-14
16:08
Updated test suite with new error message results Closed-Leaf check-in: 8863101cbe user: rkeene tags: feature-0d4541b86d-autoservername
16:03
Updated error message to be consistent with "lsearch" output under similar failures check-in: 4e441206d6 user: rkeene tags: feature-0d4541b86d-autoservername
14:07
Consolidated rules for parsing options and now verify them in tls::init as well check-in: 98b60c41b6 user: rkeene tags: feature-0d4541b86d-autoservername
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified tls.tcl from [0371a07398] to [04fbf290ac].

︙︙
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 @VAR@ $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 @VAR@ $arg $argValue
                    set argsArray($arg) $argValue
                }
            }
            default {
︙︙

Powered by Fossil · RSS