1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
#!CVSGUI1.0 --selection --name "Fast search modified"
global numFound
set numFound 0
proc iterate {dirName} {
cvsentries $dirName browsit
set selList [browsit get]
set selSize [llength $selList]
set toRecurse {}
set printFlag 1
set printPrefix 1
set stateOld 0
for {set j 0} {$j < $selSize} {incr j} {
set file [lindex $selList $j]
browsit info $file fileInfo2
if {[string compare $fileInfo2(kind) "file"] == 0} {
set modified $fileInfo2(modified)
if {$modified == 1 || $fileInfo2(missing) == 1} {
if {$printFlag == 1} {
cvsout "In $dirName :\n"
set printFlag 0
}
if {$modified == 1} {
set stateNew 1
} else {
set stateNew 2
}
if {$stateOld != $stateNew} {
set stateOld $stateNew
if {$stateNew == 1} {
cvserr " modified: "
} else {
cvserr " missing: "
}
} else {
cvserr " "
}
cvserr "$fileInfo2(name)\n"
global numFound
incr numFound
}
}
if {[string compare $fileInfo2(kind) "folder"] == 0 && $fileInfo2(missing) == 0 && $fileInfo2(unknown) == 0} {
lappend toRecurse $file
}
}
set selRecurse [llength $toRecurse]
for {set j 0} {$j < $selRecurse} {incr j} {
set file [lindex $toRecurse $j]
iterate $file
}
}
set selList [cvsbrowser get]
set selSize [llength $selList]
cvsout "Looking for modified files...\n"
for {set i 0} {$i < $selSize} {incr i} {
set file [lindex $selList $i]
cvsbrowser info $file fileInfo
if {[string compare $fileInfo(kind) "folder"] == 0 && $fileInfo(missing) == 0 && $fileInfo(unknown) == 0} {
iterate $file
}
}
cvsout "$numFound file(s) found.\n"
|
