Check-in [b358be54cd]
Overview
Comment:Fixed issue with globbing a single file or directory
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: b358be54cd88ee07fae857fb2433909d641a748c
User & Date: rkeene on 2010-09-30 16:19:48
Other Links: manifest | tags
References
2010-09-30
16:22 Ticket [faa590a5fa] Create KitDLL status still Verified with 1 other change artifact: 4c17589ba5 user: rkeene
Context
2010-09-30
16:20
Updated to cleanup wish if built check-in: dc8f5f22bf user: rkeene tags: trunk
16:19
Fixed issue with globbing a single file or directory check-in: b358be54cd user: rkeene tags: trunk
09:25
Added Tk support

Added wish test driver

Fixed issue with stripping KitDLL

Minor cleanup check-in: 2dbaa7246a user: rkeene tags: trunk

Changes

Modified kitdll/buildsrc/kitdll-0.0/vfs_kitdll.tcl from [6c31406284] to [662da588b0].

182
183
184
185
186
187
188
189
190
191
192
193
194
195

196
197
198

199
200
201
202
203
204
205
	}

	if {![info exists metadata]} {
		return [list]
	}

	if {$pattern == ""} {

		set children [list $relative]
	} else {
		set children [::vfs::kitdll::data::getChildren $hashkey $relative]
	}

	foreach child $children {

		if {![string match $pattern $child]} {
			continue
		}


		unset -nocomplain metadata
		catch {
			array set metadata [::vfs::kitdll::data::getMetadata $hashkey $child]
		}

		if {[string index $root end] == "/"} {







<






>



>







182
183
184
185
186
187
188

189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
	}

	if {![info exists metadata]} {
		return [list]
	}

	if {$pattern == ""} {

		set children [list $relative]
	} else {
		set children [::vfs::kitdll::data::getChildren $hashkey $relative]
	}

	foreach child $children {
		if {$pattern != ""} {
		if {![string match $pattern $child]} {
			continue
		}
		}

		unset -nocomplain metadata
		catch {
			array set metadata [::vfs::kitdll::data::getMetadata $hashkey $child]
		}

		if {[string index $root end] == "/"} {