Differences From Artifact [aa949e8f6f]:
- File
kitdll/buildsrc/kitdll-0.0/cvfs.tcl
— part of check-in
[a9fb6a2bd7]
at
2010-09-26 04:50:52
on branch trunk
— Removed partial symlink implementation from KitDLL
Reorganized KitDLL code (user: rkeene, size: 7474) [annotate] [blame] [check-ins using]
To Artifact [94451bedbe]:
- File
kitdll/buildsrc/kitdll-0.0/cvfs.tcl
— part of check-in
[f44cf7fbe1]
at
2010-09-26 04:51:04
on branch trunk
— Fixed typo in matchindir
Added missing seek (user: rkeene, size: 8028) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
128 129 130 131 132 133 134 135 136 137 138 139 140 141 |
set chaninfo(pos) $pos
set ::vfs::kitdll::chandata([list $hashkey $chanId]) [array get chaninfo]
return $data
}
#### VFS operation handlers
proc ::vfs::kitdll::vfsop_stat {hashkey root relative actualpath} {
catch {
set ret [::vfs::kitdll::data::getMetadata $hashkey $relative]
}
| > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 |
set chaninfo(pos) $pos
set ::vfs::kitdll::chandata([list $hashkey $chanId]) [array get chaninfo]
return $data
}
proc ::vfs::kitdll::chanop_seek {hashkey chanId offset origin} {
array set chaninfo $::vfs::kitdll::chandata([list $hashkey $chanId])
set pos $chaninfo(pos)
set len $chaninfo(len)
switch -- $origin {
"start" - "0" {
set pos $offset
}
"current" - "1" {
set pos [expr {$pos + $offset}]
}
"end" - "2" {
set pos [expr {$len + $offset}]
}
}
if {$pos < 0} {
set pos 0
}
if {$pos > $len} {
set pos $len
}
set chaninfo(pos) $pos
set ::vfs::kitdll::chandata([list $hashkey $chanId]) [array get chaninfo]
return $pos
}
#### VFS operation handlers
proc ::vfs::kitdll::vfsop_stat {hashkey root relative actualpath} {
catch {
set ret [::vfs::kitdll::data::getMetadata $hashkey $relative]
}
|
| ︙ | ︙ | |||
185 186 187 188 189 190 191 |
}
if {[string index $actualpath end] == "/"} {
set child "${actualpath}${child}"
} else {
set child "${actualpath}/${child}"
}
| | | 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 |
}
if {[string index $actualpath end] == "/"} {
set child "${actualpath}${child}"
} else {
set child "${actualpath}/${child}"
}
if {[string index $child end] == "/"} {
set child [string range $child 0 end-1]
}
if {![info exists metadata(type)]} {
continue
}
|
| ︙ | ︙ |