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 |
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
....
1203
1204
1205
1206
1207
1208
1209
1210
|
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]." }
}
................................................................................
myisundefined mynopromote
# # ## ### ##### ######## #############
}
# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::parameter 1.1
|
>
>
>
>
>
>
>
>
>
|
|
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
....
1212
1213
1214
1215
1216
1217
1218
1219
|
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]." }
}
................................................................................
myisundefined mynopromote
# # ## ### ##### ######## #############
}
# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::parameter 1.2
|
Changes to vcommon.tcl.
36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 .. 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 .. 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 |
namespace ensemble create
}
namespace eval ::cmdr::validate::common {
namespace export \
complete-enum complete-glob ok-directory \
fail fail-unknown-thing fail-known-thing \
p-name lead-in
namespace ensemble create
}
# # ## ### ##### ######## ############# #####################
debug define cmdr/validate/common
debug level cmdr/validate/common
................................................................................
# # ## ### ##### ######## ############# #####################
## 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-name $p]\"$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-name $p]\":"
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-name $p]\":"
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
}
# # ## ### ##### ######## ############# #####################
................................................................................
set lead {An }
} else {
set lead {A }
}
return $lead$type
}
proc ::cmdr::validate::common::p-name {p} {
if {[$p type] eq "option"} {
return [$p flag]
} else {
return [$p label]
}
}
# # ## ### ##### ######## ############# #####################
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
|
| | | | < < < < < < < < |
36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 .. 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 .. 96 97 98 99 100 101 102 103 104 105 106 107 108 109 |
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
................................................................................
# # ## ### ##### ######## ############# #####################
## 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
}
# # ## ### ##### ######## ############# #####################
................................................................................
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
|