Check-in [f44cf7fbe1]
Overview
Comment:Fixed typo in matchindir

Added missing seek

Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:f44cf7fbe126a8494b6d1b0818c5571e4b6ae87f
User & Date: rkeene on 2010-09-26 04:51:04
Other Links: manifest | tags
Context
2010-09-26
04:51
KitCreator 0.4.0.x check-in: fbf10d2c4e user: rkeene tags: trunk, 0.4.0
04:51
Fixed typo in matchindir

Added missing seek check-in: f44cf7fbe1 user: rkeene tags: trunk

04:50
Initial dir2c.tcl check-in: 1471135306 user: rkeene tags: trunk
Changes

Modified kitdll/buildsrc/kitdll-0.0/cvfs.tcl from [aa949e8f6f] to [94451bedbe].

   128    128   
   129    129   	set chaninfo(pos) $pos
   130    130   
   131    131   	set ::vfs::kitdll::chandata([list $hashkey $chanId]) [array get chaninfo]
   132    132   
   133    133   	return $data
   134    134   }
          135  +
          136  +proc ::vfs::kitdll::chanop_seek {hashkey chanId offset origin} {
          137  +	array set chaninfo $::vfs::kitdll::chandata([list $hashkey $chanId])
          138  +
          139  +	set pos $chaninfo(pos)
          140  +	set len $chaninfo(len)
          141  +
          142  +	switch -- $origin {
          143  +		"start" - "0" {
          144  +			set pos $offset
          145  +		}
          146  +		"current" - "1" {
          147  +			set pos [expr {$pos + $offset}]
          148  +		}
          149  +		"end" - "2" {
          150  +			set pos [expr {$len + $offset}]
          151  +		}
          152  +	}
          153  +
          154  +	if {$pos < 0} {
          155  +		set pos 0
          156  +	}
          157  +
          158  +	if {$pos > $len} {
          159  +		set pos $len
          160  +	}
          161  +
          162  +	set chaninfo(pos) $pos
          163  +	set ::vfs::kitdll::chandata([list $hashkey $chanId]) [array get chaninfo]
          164  +
          165  +	return $pos
          166  +}
   135    167   
   136    168   #### VFS operation handlers
   137    169   proc ::vfs::kitdll::vfsop_stat {hashkey root relative actualpath} {
   138    170   	catch {
   139    171   		set ret [::vfs::kitdll::data::getMetadata $hashkey $relative]
   140    172   	}
   141    173   
................................................................................
   185    217   		}
   186    218   
   187    219   		if {[string index $actualpath end] == "/"} {
   188    220   			set child "${actualpath}${child}"
   189    221   		} else {
   190    222   			set child "${actualpath}/${child}"
   191    223   		}
   192         -		if {[string index $child end] == ""} {
          224  +		if {[string index $child end] == "/"} {
   193    225   			set child [string range $child 0 end-1]
   194    226   		}
   195    227   
   196    228   		if {![info exists metadata(type)]} {
   197    229   			continue
   198    230   		}
   199    231