Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Cross-reference usage of *prefix* in actors. Extended actor base to allow complete clearance of a common block along a chain of actors up to the root. |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
576b7640c76d067231c83c5ceb51bb10 |
| User & Date: | andreask 2014-04-15 19:56:53.682 |
Context
|
2014-04-15
| ||
| 20:45 | Tweaks to the history mgmt: Documented semantics of limits. Nicer output on changes and current. Allow application to overide initial default limits. Ensure saving of initial limits on first use. check-in: 16470ccbc4 user: andreask tags: trunk | |
| 19:56 | Cross-reference usage of *prefix* in actors. Extended actor base to allow complete clearance of a common block along a chain of actors up to the root. check-in: 576b7640c7 user: andreask tags: trunk | |
| 19:42 | Added hooks for history mgmt, plus helper package to the system. Known issue: *prefix* handling for recursion (aliases). check-in: 639bdf2ae3 user: andreask tags: trunk | |
Changes
Changes to actor.tcl.
| ︙ | ︙ | |||
182 183 184 185 186 187 188 189 190 191 192 193 194 195 |
}
method unset {key} {
debug.cmdr/actor {}
dict unset mystore $key
return
}
method history-via {cmd} {
debug.cmdr/actor {}
set myhistory $cmd
return
}
| > > > > > > > > | 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 |
}
method unset {key} {
debug.cmdr/actor {}
dict unset mystore $key
return
}
method unset-all {key} {
debug.cmdr/actor {}
dict unset mystore $key
if {$mysuper eq {}} return
$mysuper unset-all $key
return
}
method history-via {cmd} {
debug.cmdr/actor {}
set myhistory $cmd
return
}
|
| ︙ | ︙ |
Changes to officer.tcl.
| ︙ | ︙ | |||
468 469 470 471 472 473 474 475 476 477 478 479 480 481 |
debug.cmdr/officer {/default}
[my lookup [my default]] do {*}$args
debug.cmdr/officer {/done default}
return
}
if {[catch {
set prefix " [my get *prefix*] "
}]} { set prefix "" }
return -code error \
-errorcode [list CMDR DO UNKNOWN $cmd] \
"Unknown command \"[string trimleft $prefix]$cmd\". Please use 'help[string trimright $prefix]' to see the list of available commands."
} finally {
| > | 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 |
debug.cmdr/officer {/default}
[my lookup [my default]] do {*}$args
debug.cmdr/officer {/done default}
return
}
# See also private::FullCmd
if {[catch {
set prefix " [my get *prefix*] "
}]} { set prefix "" }
return -code error \
-errorcode [list CMDR DO UNKNOWN $cmd] \
"Unknown command \"[string trimleft $prefix]$cmd\". Please use 'help[string trimright $prefix]' to see the list of available commands."
} finally {
|
| ︙ | ︙ |
Changes to private.tcl.
| ︙ | ︙ | |||
120 121 122 123 124 125 126 127 128 129 130 131 132 133 |
set myconfig [cmdr::config create config [self] $myarguments]
return
}
# # ## ### ##### ######## #############
method FullCmd {cmd} {
if {[catch {
set prefix "[my get *prefix*] "
}]} { set prefix "" }
return $prefix$cmd
}
method do {args} {
| > | 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 |
set myconfig [cmdr::config create config [self] $myarguments]
return
}
# # ## ### ##### ######## #############
method FullCmd {cmd} {
# See also officer::Do
if {[catch {
set prefix "[my get *prefix*] "
}]} { set prefix "" }
return $prefix$cmd
}
method do {args} {
|
| ︙ | ︙ |