800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
|
$self SetNodeStatus $node equal
return
}
#puts "$rightfull checked since in change list"
}
set equal [CompareFiles $leftfull $rightfull]
if {$equal} {
$self SetNodeStatus $node equal
} else {
$self SetNodeStatus $node change
}
}
# List files under a directory node
# Returns status for the new node
|
|
|
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
|
$self SetNodeStatus $node equal
return
}
#puts "$rightfull checked since in change list"
}
set equal [CompareFiles $leftfull $rightfull]
if {$equal} {
$self SetNodeStatus $node "equal"
} else {
$self SetNodeStatus $node change
}
}
# List files under a directory node
# Returns status for the new node
|