cmdr
Check-in [c14bea9a61]
Not logged in

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:c14bea9a619b421feb75e4bd86b6265ec5d4aab2
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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