Eskil

Check-in [56ecf49b6c]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Handle deleted files in GIT vcsvfs.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 56ecf49b6c9f7d2b294fe03ef294738d3643744e493ea4a3c33fdc8c72a19c1d
User & Date: peter 2018-10-02 23:55:14.505
Context
2018-10-03
00:07
Updated changes check-in: 0e7b597e58 user: peter tags: trunk
2018-10-02
23:55
Handle deleted files in GIT vcsvfs. check-in: 56ecf49b6c user: peter tags: trunk
2018-09-23
21:27
Upgraded tablelist to 6.3 check-in: 94322fbb2e user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/vcsvfs.tcl.
︙︙
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]
            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








|








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 $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
︙︙