41 lines
903 B
Tcl
41 lines
903 B
Tcl
#!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"
|