home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 August / PCWorld_2000-08_cd.bin / Software / TemaCD / wincvs / data1.cab / Example_Files / Macros / SelectionTest.tcl < prev    next >
Encoding:
Text File  |  1999-03-23  |  1.2 KB  |  34 lines
  1. #!CVSGUI1.0 --selection  --name "Selection sample"
  2.  
  3. set selList [cvsbrowser get]
  4. set selSize [llength $selList]
  5.  
  6. cvsout "Hello, this is a sample macro !\n"
  7. cvsout "Total selected : " $selSize "\n\n"
  8. for {set i 0} {$i < $selSize} {incr i} {
  9.     #file tail
  10.     #file dirname
  11.     set file [lindex $selList $i]
  12.     cvsbrowser info $file fileInfo
  13.  
  14.     cvsout "Info for " $file "\n"
  15.     cvsout "--> Name :         " $fileInfo(name) "\n"
  16.     cvsout "--> Kind :         " $fileInfo(kind) "\n"
  17.     cvsout "--> Path :         " $fileInfo(path) "\n"
  18.     cvsout "--> Missing :      " $fileInfo(missing) "\n"
  19.     cvsout "--> Unknown :      " $fileInfo(unknown) "\n"
  20.     cvsout "--> Ignored :      " $fileInfo(ignored) "\n"
  21.     cvsout "--> Locked :       " $fileInfo(locked) "\n"
  22.     cvsout "--> Modified :     " $fileInfo(modified) "\n"
  23.     cvsout "--> Status :       " $fileInfo(status) "\n"
  24.  
  25.     if {[string compare $fileInfo(kind) "file"] == 0} {
  26.         cvsout "--> Revision :     " $fileInfo(revision) "\n"
  27.         cvsout "--> Timestamp :    " $fileInfo(timestamp) "\n"
  28.         cvsout "--> Option :       " $fileInfo(option) "\n"
  29.         cvsout "--> Tag :          " $fileInfo(tag) "\n"
  30.         cvsout "--> Conflict :     " $fileInfo(conflict) "\n"
  31.     }
  32.     cvsout "\n"
  33. }
  34.