1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
#!CVSGUI1.0 --selection --name "Selection sample"
set selList [cvsbrowser get]
set selSize [llength $selList]
cvsout "Hello, this is a sample macro !\n"
cvsout "Total selected : " $selSize "\n\n"
for {set i 0} {$i < $selSize} {incr i} {
#file tail
#file dirname
set file [lindex $selList $i]
cvsbrowser info $file fileInfo
cvsout "Info for " $file "\n"
cvsout "--> Name : " $fileInfo(name) "\n"
cvsout "--> Kind : " $fileInfo(kind) "\n"
cvsout "--> Path : " $fileInfo(path) "\n"
cvsout "--> Missing : " $fileInfo(missing) "\n"
cvsout "--> Unknown : " $fileInfo(unknown) "\n"
cvsout "--> Ignored : " $fileInfo(ignored) "\n"
cvsout "--> Locked : " $fileInfo(locked) "\n"
cvsout "--> Modified : " $fileInfo(modified) "\n"
cvsout "--> Status : " $fileInfo(status) "\n"
if {[string compare $fileInfo(kind) "file"] == 0} {
cvsout "--> Revision : " $fileInfo(revision) "\n"
cvsout "--> Timestamp : " $fileInfo(timestamp) "\n"
if {! $fileInfo(missing)} {
cvsout "--> File modtime : " [cvsfilemodtime $file] "\n"
} {}
cvsout "--> Option : " $fileInfo(option) "\n"
cvsout "--> Tag : " $fileInfo(tag) "\n"
cvsout "--> Conflict : " $fileInfo(conflict) "\n"
}
cvsout "\n"
}
|
