Eskil

    # a sub directory was given.
    # Locate fossil root for the given directory.
    set info [exec fossil info]
    regexp -line {local-root:\s*(\S.*)} $info -> root
    set root [file normalize $root]
    cd $root





















    # Getting files via artifact
    set artifact [exec fossil artifact $rev]
    set commitTime 0
    set cTime now
    foreach line [split $artifact \n] {
        # Expected format in a line:
        # F tests/left.txt c1572b3809a1ba6ab2de9307c96b1cfeefdcf0ba
        # D 2015-02-23T23:30:07.509
        if {[regexp {D (.*)} $line -> cTime]} {
            # Remove decimals and middle T
            regsub {\.\d+} $cTime "" cTime
            regsub {T} $cTime " " cTime
            set commitTime [clock scan $cTime -gmt 1]
        }
        if {[regexp {F (\S+) (\S+)} $line -> fName fSha]} {
            # File names can have spaces, coded with \s
            set fName [string map {\\s " "} $fName]
            dict set finfo $fName sha $fSha
            dict set finfo $fName mtimestr $cTime ;# Anything
            dict set finfo $fName type file
            dict set finfo $fName isfile 1
            dict set finfo $fName isdir 0
            # TBD: Delay calling whatis until size is needed
            # Expected format in a line:
            # size:    629 bytes
            set whatis [exec fossil whatis $fSha]
            regexp {size:\s+(\d+)} $whatis -> fSize
            dict set finfo $fName size $fSize

            # 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
                dict set finfo $parentStr isdir 1
                dict set finfo $parentStr type directory
                set parentStr [file join $parentStr $dirPath]
            }
        }
    }

    # Getting files via http fileage to aquire file times
    set html [exec fossil http << "GET /fileage?name=$rev"]
    regexp {Files in.*} $html html
    regexp {\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}} $html cTime2
    set commitTime2 [clock scan $cTime2 -gmt 1]
    #puts "CT $commitTime  CT2 $commitTime2"
    foreach row [regexp -all -inline {<tr>.*?</tr>} $html] {
        set cols [regexp -all -inline {<td>(.*?)</td>} $row]
        set col1 [string trim [lindex $cols 1]]
        set col2 [string trim [lindex $cols 3]]
        # First column is age, in readable format
        # e.g. "current" "36.4 minutes" "97.0 days" "1.06 years"
        if {$col1 eq ""} continue
        if {$col1 eq "current"} {
            set fTime $commitTime
        } else {
            set value [lindex $col1 0]
            set unit [lindex $col1 1]
            switch -glob $unit {
                second* {
                    set value [expr {int($value)}]
                    set unit second
                }
                minute* {
                    set value [expr {int($value*60)}]
                    set unit second
                }
                hour* {
                    set value [expr {int($value*60*60)}]
                    set unit second
                }
                day* {
                    set value [expr {int($value*60*60*24)}]
                    set unit second
                }
                year* {
                    set value [expr {int($value*60*60*24*365)}]
                    set unit second
                }
                default {
                    puts "Unhandled unit: $unit in '$col1'"
                    set value [expr {int($value)}]
                }
            }
            set fTime [expr {$commitTime - $value}]
        }
        #puts "AGE $col1 -> $fTime"

        # Second column is file names, separated by <br>
        # Remove links
        regsub -all {<a .*?>} $col2 "" col2
        regsub -all {</a>} $col2 "" col2
        regsub -all {\n} $col2 "" col2
        regsub -all {<br>} $col2 "\n" col2
        set col2 [string trim $col2]
        foreach fName [split $col2 \n] {
            #puts $fName
            dict set finfo $fName mtime $fTime
        }
    }

    cd $oldpwd

    # Generate a mount point.
    set tail [string range $dir [string length $root] end]
    set mountpoint "${root} ($rev)"

    dict set mpoints $mountpoint "finfo" $finfo