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.960
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
Unified Diff Ignore Whitespace Patch
Changes to actor.tcl.
192
193
194
195
196
197
198

199



200
201
202
203
204
205
206
	    # 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 {}







>
|
>
>
>







192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
	    # 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 {}
370
371
372
373
374
375
376
377

    ##
    # # ## ### ##### ######## #############
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::actor 1.3







|
374
375
376
377
378
379
380
381

    ##
    # # ## ### ##### ######## #############
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::actor 1.3.1