zsnes/Macros/FastModSearch.tcl

@@ -0,0 +1,56 @@
+#!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
+
+	for {set j 0} {$j < $selSize} {incr j} {
+		set file [lindex $selList $j]
+		browsit info $file fileInfo2
+
+		if {[string compare $fileInfo2(kind) "file"] == 0} {
+			if {$fileInfo2(modified) == 1} {
+				if {$printFlag == 1} {
+					cvsout "In $dirName :\n"
+					set printFlag 0
+				}
+				cvserr "    $fileInfo2(name) is modified\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 "Done !\n"
+cvsout "$numFound file(s) found !\n"