Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | cmdr::actor - Fixed issue with -extend of common blocks. The extended block can be missing. Then the operation is a plain set. Bumped to version 1.3.1 |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
c14bea9a619b421feb75e4bd86b6265e |
| User & Date: | andreask 2015-03-06 01:54:15 |
Context
|
2015-03-06
| ||
| 20:44 | Fix bug in history mgmt for a save-file in a directory. Ensure that the directory exists before writing/creating the file itself. check-in: 06c0827602 user: andreask tags: trunk | |
| 01:55 | Drafts of new validation types: iso8601 date/time values check-in: d7efe5a253 user: andreask tags: more-vtypes | |
| 01:54 | cmdr::actor - Fixed issue with -extend of common blocks. The extended block can be missing. Then the operation is a plain set. Bumped to version 1.3.1 check-in: c14bea9a61 user: andreask tags: trunk | |
|
2015-03-05
| ||
| 23:32 | Fixed typo in comment check-in: fe7c7e9c1f user: andreask tags: trunk | |
Changes
Changes to actor.tcl.
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
...
370
371
372
373
374
375
376
377
|
# aliased as 'common'.
set cmd [lindex [dict get [info frame -1] cmd] 0]
return -code error -errorcode {CMDR SET WRONG-ARGS} \
"wrong # args: should be \"$cmd key ?-extend? data\""
}
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 {}
................................................................................
##
# # ## ### ##### ######## #############
}
# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::actor 1.3
|
>
|
>
>
>
|
|
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
...
374
375
376
377
378
379
380
381
|
# aliased as 'common'.
set cmd [lindex [dict get [info frame -1] cmd] 0]
return -code error -errorcode {CMDR SET WRONG-ARGS} \
"wrong # args: should be \"$cmd key ?-extend? data\""
}
set data [lindex $args 0]
if {$extend} {
if {[my has $key]} {
set data [my get $key]$data
}
# Note how -extend is a no-op if the block to extend does
# not exist yet, and falls back to plain 'set'.
}
dict set mystore $key $data
return
}
method lappend {key data} {
debug.cmdr/actor {}
................................................................................
##
# # ## ### ##### ######## #############
}
# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::actor 1.3.1
|