466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
|
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
|
-
+
|
# This is a file
dict set finfo $fName isfile 1
dict set finfo $fName isdir 0
dict set finfo $fName "type" file
dict set finfo $fName "sha" $sha
dict set finfo $fName "size" $size
# TBD: Delay this call until mtime is needed?
set mtime [exec git log --pretty=format:%ct -n 1 $fName]
set mtime [exec git log --pretty=format:%ct -n 1 $rev -- $fName]
dict set finfo $fName "mtime" $mtime
}
# Mark all known directory paths and build up file tree info
set parentStr ""
foreach dirPath [file split $fName] {
dict set finfo $parentStr child $dirPath 1
dict set finfo $parentStr isfile 0
|