Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Move the p-name helper command of validate::common into the parameter class, as a convenience method. |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
288c34780b54396ed7b00f7fb2d1df4c |
User & Date: | aku 2014-04-23 05:39:22.769 |
Context
2014-05-16
| ||
00:29 | cmdr::actor - New feature "common -extend", enabling extension of a block instead of overwriting it. check-in: 7ab77ead21 user: aku tags: trunk | |
2014-05-05
| ||
18:52 | cmdr::help::json, cmdr::help::tcl - Fixed handling of category with sub-categories, but no commands. Bumped to version 1.0.1. check-in: b5c4809789 user: andreask tags: trunk | |
2014-04-23
| ||
05:39 | Move the p-name helper command of validate::common into the parameter class, as a convenience method. check-in: 288c34780b user: aku tags: trunk | |
2014-04-22
| ||
06:56 | Merged branch back, making the channel v-types official. check-in: c7a27f1422 user: aku tags: trunk | |
Changes
Changes to parameter.tcl.
︙ | ︙ | |||
152 153 154 155 156 157 158 159 160 161 162 163 164 165 | if {$myiscmdline} { return "option" } return "state" } # Identification and help. Add context name into it? method name {} { return $myname } method label {} { return $mylabel } method description {{detail {}}} { if {($detail ne {}) && [dict exists $myflags $detail]} { switch -exact -- [dict get $myflags $detail] { primary {} alias { return "Alias of [my Option $myname]." } inverted { return "Complementary alias of [my Option $myname]." } } | > > > > > > > > > | 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 | if {$myiscmdline} { return "option" } return "state" } # Identification and help. Add context name into it? method name {} { return $myname } method label {} { return $mylabel } method the-name {} { if {[my type] eq "option"} { return [my flag] } else { return $mylabel } } method description {{detail {}}} { if {($detail ne {}) && [dict exists $myflags $detail]} { switch -exact -- [dict get $myflags $detail] { primary {} alias { return "Alias of [my Option $myname]." } inverted { return "Complementary alias of [my Option $myname]." } } |
︙ | ︙ | |||
1203 1204 1205 1206 1207 1208 1209 | myisundefined mynopromote # # ## ### ##### ######## ############# } # # ## ### ##### ######## ############# ##################### ## Ready | | | 1212 1213 1214 1215 1216 1217 1218 1219 | myisundefined mynopromote # # ## ### ##### ######## ############# } # # ## ### ##### ######## ############# ##################### ## Ready package provide cmdr::parameter 1.2 |
Changes to vcommon.tcl.
︙ | ︙ | |||
36 37 38 39 40 41 42 | namespace ensemble create } namespace eval ::cmdr::validate::common { namespace export \ complete-enum complete-glob ok-directory \ fail fail-unknown-thing fail-known-thing \ | | | | | | 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 | namespace ensemble create } namespace eval ::cmdr::validate::common { namespace export \ complete-enum complete-glob ok-directory \ fail fail-unknown-thing fail-known-thing \ lead-in namespace ensemble create } # # ## ### ##### ######## ############# ##################### debug define cmdr/validate/common debug level cmdr/validate/common debug prefix cmdr/validate/common {[debug caller] | } # # ## ### ##### ######## ############# ##################### ## Different forms of validation failure messages proc ::cmdr::validate::common::fail {p code type x {context {}}} { # Generic failure: "Expected foo, got x". debug.cmdr/validate/common {} append msg "Expected $type for [$p type] \"[$p the-name]\"$context," append msg " got \"$x\"" return -code error -errorcode [list CMDR VALIDATE {*}$code] $msg } proc ::cmdr::validate::common::fail-unknown-thing {p code type x {context {}}} { # Specific failure for a named thing: Expected existence, found it missing. debug.cmdr/validate/common {} append msg "Found a problem with [$p type] \"[$p the-name]\":" append msg " [lead-in $type] \"$x\" does not exist$context." append msg " Please use a different value." return -code error -errorcode [list CMDR VALIDATE {*}$code] $msg } proc ::cmdr::validate::common::fail-known-thing {p code type x {context {}}} { # Specific failure for a named thing: Expected non-existence, found a definition. debug.cmdr/validate/common {} append msg "Found a problem with [$p type] \"[$p the-name]\":" append msg " [lead-in $type] named \"$x\" already exists$context." append msg " Please use a different name." return -code error -errorcode [list CMDR VALIDATE {*}$code] $msg } # # ## ### ##### ######## ############# ##################### |
︙ | ︙ | |||
96 97 98 99 100 101 102 | set lead {An } } else { set lead {A } } return $lead$type } | < < < < < < < < | 96 97 98 99 100 101 102 103 104 105 106 107 108 109 | set lead {An } } else { set lead {A } } return $lead$type } # # ## ### ##### ######## ############# ##################### proc ::cmdr::validate::common::complete-enum {choices nocase buffer} { # As a helper function for command completion printing anything # here would mix with the output of linenoise. Do that only on # explicit request (level 10). debug.cmdr/validate/common {} 10 |
︙ | ︙ |