Overview
| Comment: | Fixed typo in previous commit |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
a48b533f86c12a9cd38c23b52c615331 |
| User & Date: | rkeene on 2014-09-12 05:39:19 |
| Other Links: | manifest | tags |
Context
|
2014-09-13
| ||
| 05:15 | Updated to commit package change as a single transaction check-in: 86819aa4e1 user: rkeene tags: trunk | |
|
2014-09-12
| ||
| 05:39 | Fixed typo in previous commit check-in: a48b533f86 user: rkeene tags: trunk | |
| 05:34 | Updated to deal with files with commas in the name check-in: 90dbb9682c user: rkeene tags: trunk | |
Changes
Modified appfsd.tcl from [5c768f9af5] to [ca9b582274].
| ︙ | ︙ | |||
255 256 257 258 259 260 261 |
set work [lrange $work 2 end]
switch -- $fileInfo(type) {
"file" {
set fileInfo(size) [lindex $work 0]
set fileInfo(perms) [lindex $work 1]
set fileInfo(sha1) [lindex $work 2]
| | | | 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 |
set work [lrange $work 2 end]
switch -- $fileInfo(type) {
"file" {
set fileInfo(size) [lindex $work 0]
set fileInfo(perms) [lindex $work 1]
set fileInfo(sha1) [lindex $work 2]
set work [lrange $work 3 end]
}
"symlink" {
set fileInfo(source) [lindex $work 0]
set work [lrange $work 1 end]
}
}
set fileInfo(name) [join $work ","]
set fileInfo(name) [split [string trim $fileInfo(name) "/"] "/"]
set fileInfo(directory) [join [lrange $fileInfo(name) 0 end-1] "/"]
set fileInfo(name) [lindex $fileInfo(name) end]
|
| ︙ | ︙ |