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: |
f44cf7fbe126a8494b6d1b0818c5571e |
| 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 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
}
|
| ︙ | ︙ |