Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Rename "_find" to "internal_find" instead of diddling with export. |
---|---|
Timelines: | family | ancestors | descendants | both | trunk | release | release-1-1 | v1.1 | cmdr-1-1 |
Files: | files | file ages | folders |
SHA1: |
a2da845671653f1621125a74c4e0dbc7 |
User & Date: | andreask 2014-02-07 20:39:33.711 |
Context
2014-02-12
| ||
23:29 | Extended the set of common validation types, added "double". Bumped cmdr::validate to 1.2 check-in: c843b9c1dd user: andreask tags: trunk | |
2014-02-07
| ||
20:39 | Rename "_find" to "internal_find" instead of diddling with export. check-in: a2da845671 user: andreask tags: cmdr-1-1, release, release-1-1, trunk, v1.1 | |
18:23 | Oops. Have to export method "_find" for proper operation (in the recursion). check-in: 98315e9657 user: andreask tags: trunk | |
Changes
Changes to officer.tcl.
︙ | ︙ | |||
137 138 139 140 141 142 143 | method find {words} { # Resolve chain of words (command name path) to the actor # responsible for that command, starting from the current # actor. This is very much a convenience method built on top # of lookup (see above). | | < | | | 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 | method find {words} { # Resolve chain of words (command name path) to the actor # responsible for that command, starting from the current # actor. This is very much a convenience method built on top # of lookup (see above). my internal_find $words {} } method internal_find {words prefix} { if {![llength $words]} { return [self] } set word [lindex $words 0] if {[llength $words] <= 1} { return [my lookup $word] } [my lookup $word] internal_find \ [lrange $words 1 end] \ [linsert $prefix end $word] } method has {name} { debug.cmdr/officer {} my Setup |
︙ | ︙ |
Changes to private.tcl.
︙ | ︙ | |||
67 68 69 70 71 72 73 | set myhandler {} return } # # ## ### ##### ######## ############# method find {words} { | | < | | | 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 | set myhandler {} return } # # ## ### ##### ######## ############# method find {words} { my internal_find $words {} } method internal_find {words prefix} { if {![llength $words]} { return [self] } # Privates do not have subordinates to look up. # We now have a bad command name argument to help. set word [lindex $words 0] return -code error \ -errorcode [list CMDR ACTION BAD $word] \ "The command \"$prefix\" has no sub-commands, unexpected word \"$word\"" } # # ## ### ##### ######## ############# |
︙ | ︙ |