home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 August / PCWorld_2000-08_cd.bin / Software / TemaCD / wincvs / data1.cab / Example_Files / Macros / FolderTest.tcl < prev    next >
Encoding:
Text File  |  1999-03-23  |  943 b   |  41 lines
  1. #!CVSGUI1.0 --folder --name "Clean-up merging files"
  2.  
  3. global numDeleted
  4. set numDeleted 0
  5.  
  6. proc iterate {dirName} {
  7.     if {[string compare cvs [string tolower $dirName]] == 0} {
  8.         return
  9.     }
  10.  
  11.     set oldDir [pwd]
  12.     cd $dirName
  13.     cvsout "Entering $dirName\n"
  14.  
  15.     set dirList [glob -nocomplain *]
  16.     set dirSize [llength $dirList]
  17.     for {set j 0} {$j < $dirSize} {incr j} {
  18.         set fileName [lindex $dirList $j]
  19.         if {[file isdirectory $fileName]} {
  20.             iterate $fileName
  21.         } elseif {[file isfile $fileName]} {
  22.             if {[string compare [string range $fileName 0 1] ".#"] == 0} {
  23.                 cvsout "*** deleting -> " "'" $dirName / $fileName "'" ...\n
  24.                 file delete $fileName
  25.                 global numDeleted
  26.                 incr numDeleted
  27.             }
  28.         }
  29.     }
  30.     cd $oldDir
  31. }
  32.  
  33. set selList [cvssel]
  34. set selSize [llength $selList]
  35.  
  36. for {set i 0} {$i < $selSize} {incr i} {
  37.     iterate [lindex $selList $i]
  38. }
  39. cvsout "Done !\n"
  40. cvsout "$numDeleted file(s) deleted !\n"
  41.