Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | cmdr::actor - New feature "common -extend", enabling extension of a block instead of overwriting it. |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
7ab77ead21640a4cbd9456355fcb9860 |
User & Date: | aku 2014-05-16 00:29:39.066 |
Original Comment: | cmdr::actor - New feature "common -extend", enabling extension of a block instead of ovrwriting it. |
References
2014-05-28
| ||
23:33 | cmdr::actor, cmdr::officer - Fix bug introduced with revision [7ab77ead21]. The option handling added to "actor::set" in that revision means that the command "my set *command* ..." storing the actual command line (i.e. user information) can break, trying to interpret application specific option information as something for the internal command. Fixed by adding "--" to "actor::set"s option handling, and using it for the breakable command to force interpretation of the user data as such. check-in: cd7539eb28 user: andreask tags: trunk | |
Context
2014-05-16
| ||
00:44 | Fix inadvertent split of trunk check-in: 8ff369076f user: andreask tags: trunk | |
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-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 | |
Changes
Changes to actor.tcl.
︙ | ︙ | |||
163 164 165 166 167 168 169 | return [$mysuper get $key] } # ... and fail if we are at the top. return -code error -errorcode {CMDR STORE UNKNOWN} \ "Expected known key for get, got \"$key\"" } | | > > > > > > > > > > > > > > > > > > > | 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 | return [$mysuper get $key] } # ... and fail if we are at the top. return -code error -errorcode {CMDR STORE UNKNOWN} \ "Expected known key for get, got \"$key\"" } method set {key args} { debug.cmdr/actor {} set extend 0 while {[string match -* [lindex $args 0]]} { set args [lassign $args o] switch -exact -- $o { -extend {set extend 1} default { return -code error -errorcode {CMDR SET UNKNOWN OPTION} \ "Unknown option \"$o\", expcted -extend" } } } if {[llength $args] != 1} { return -code error -errorcode {CMDR SET WRONG-ARGS} \ "Expected one argument." } set data [lindex $args 0] if {$extend} { set data [my get $key]$data } dict set mystore $key $data return } method lappend {key data} { debug.cmdr/actor {} catch { set value [my get $key] } |
︙ | ︙ | |||
341 342 343 344 345 346 347 | ## # # ## ### ##### ######## ############# } # # ## ### ##### ######## ############# ##################### ## Ready | | | 360 361 362 363 364 365 366 367 | ## # # ## ### ##### ######## ############# } # # ## ### ##### ######## ############# ##################### ## Ready package provide cmdr::actor 1.3 |