AppFS
Check-in [a48b533f86]
Login
HomeTimelineFilesBranchesTagsTicketsWiki
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: a48b533f86c12a9cd38c23b52c615331f119f001
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
Hide Diffs Side-by-Side Diffs Show Whitespace Changes Patch

Modified appfsd.tcl from [5c768f9af5] to [ca9b582274].

︙
255
256
257
258
259
260
261
262

263
264
265
266

267
268
269
270
271
272
273

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 3 end]
					set work [lrange $work 3 end]
				}
				"symlink" {
					set fileInfo(source) [lindex $work 0]
					set work [lrange 1 end]
					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]
︙