zsnes/Macros/FolderTest.tcl

@@ -0,0 +1,40 @@
+#!CVSGUI1.0 --folder --name "Clean-up merging files"
+
+global numDeleted
+set numDeleted 0
+
+proc iterate {dirName} {
+	if {[string compare cvs [string tolower $dirName]] == 0} {
+		return
+	}
+
+	set oldDir [pwd]
+	cd $dirName
+	cvsout "Entering $dirName\n"
+
+	set dirList [glob -nocomplain *]
+	set dirSize [llength $dirList]
+	for {set j 0} {$j < $dirSize} {incr j} {
+		set fileName [lindex $dirList $j]
+		if {[file isdirectory $fileName]} {
+			iterate $fileName
+		} elseif {[file isfile $fileName]} {
+			if {[string compare [string range $fileName 0 1] ".#"] == 0} {
+				cvsout "*** deleting -> " "'" $dirName / $fileName "'" ...\n
+				file delete $fileName
+				global numDeleted
+				incr numDeleted
+			}
+		}
+	}
+	cd $oldDir
+}
+
+set selList [cvssel]
+set selSize [llength $selList]
+
+for {set i 0} {$i < $selSize} {incr i} {
+	iterate [lindex $selList $i]
+}
+cvsout "Done !\n"
+cvsout "$numDeleted file(s) deleted !\n"