Eskil

}

# Sort file names
proc Fsort {l} {
    lsort -dictionary $l
}

set ::profList [list CompareFiles eskil::rev::SVN::mount]
proc InitProf {} {
    foreach n $::profList {
        trace add execution $n {enter} [list DoProfEnter $n]
        trace add execution $n {leave} [list DoProfLeave $n]
    }
    set ::prof(start) [clock milliseconds]
}
proc DoProfEnter {point args} {
    set ::prof($point,enter) [clock milliseconds]
}
proc DoProfLeave {point args} {
    set dur [expr { [clock milliseconds] - $::prof($point,enter)}]
    incr ::prof($point,dur) $dur
}
proc EndProf {} {
    set ::prof(end) [clock milliseconds]
    set ::prof(dur) [expr {$::prof(end) - $::prof(start)}]
    foreach n $::profList {
        trace remove execution $n {enter} [list DoProfEnter $n]
        trace remove execution $n {leave} [list DoProfLeave $n]
    }
    parray ::prof
}

# Compare two files or dirs
# Return true if equal
proc CompareFiles {file1 file2} {
    if {[catch {file lstat $file1 stat1}]} {
        return 0
    }
    if {[catch {file lstat $file2 stat2}]} {

    }

    switch $::Pref(dir,comparelevel) {
        2 -
        1 { # Check contents internally
            set bufsz 65536
            set eq 2 ;# 2 = equal this far, 1 = equal, 0 = not equal
            DoProfEnter OpenFile1
            set ch1 [open $file1 r]
            DoProfLeave OpenFile1
            DoProfEnter OpenFile2
            set ch2 [open $file2 r]
            DoProfLeave OpenFile2
            if {$::Pref(dir,comparelevel) == 2} {
                fconfigure $ch1 -translation binary
                fconfigure $ch2 -translation binary
            }
            # Allow a plugin to do its thing
            if {$anyPlugin} {
                #puts "PLUGIN!"

                } else {
                    if {![string equal $f1 $f2]} {
                        set eq 0
                    }
                }
            }
            while {$eq == 2 && ![eof $ch1] && ![eof $ch2]} {
                DoProfEnter ReadIt
                set f1 [read $ch1 $bufsz]
                set f2 [read $ch2 $bufsz]
                DoProfLeave ReadIt
                if {$nocase} {
                    if {![string equal -nocase $f1 $f2]} {
                        set eq 0
                    }
                } else {
                    if {![string equal $f1 $f2]} {
                        set eq 0
                    }
                }
            }
            if {$eq == 2 && (![eof $ch1] || ![eof $ch2])} {
                set eq 0
            }
            # Errors during close are not interesting
            DoProfEnter Close
            catch {close $ch1}
            catch {close $ch2}
            DoProfLeave Close
        }
    }
    return [expr {$eq != 0}]
}

# Returns the contents of a directory as a sorted list of full file paths.
proc DirContents {dir} {

            set DebugCh ""
            set DebugTime {}
        }
        # Uncomment to activate debug logging
        #set DebugCh [open ~/dirdiff.log a]
        #$self DlogTablelist
        $self Dlog RESTART
        InitProf
        set AfterId ""
        set IdleQueue {}
        set ScheduledRestart 0
        array unset IdleQueueArr
        set protect {left 0 right 0}

        # Directory Diff only supports one plugin.

            } else {
                set statusvar "$rightfull  ($count)"
            }

            $self Dlog Reschedule
            set AfterId [after $AfterTime [mymethod UpdateIdle]]
        } else {
            EndProf
            $self Dlog DONE
            set statusvar ""
            set AfterId ""
        }
    }

    method SetNodeStatus {node status} {