31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
lappend dirs [file join $::thisDir .. plugins]
foreach dir $dirs {
set files [list [file join $dir $plugin]]
lappend files [file join $dir $plugin.tcl]
foreach file $files {
if {![file exists $file]} continue
if {![file readable $file]} continue
set ch [open $file r]
set data [read $ch 20]
close $ch
if {[string match "##Eskil Plugin*" $data]} {
set src $file
break
|
>
|
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
lappend dirs [file join $::thisDir .. plugins]
foreach dir $dirs {
set files [list [file join $dir $plugin]]
lappend files [file join $dir $plugin.tcl]
foreach file $files {
if {![file exists $file]} continue
if {![file isfile $file]} continue
if {![file readable $file]} continue
set ch [open $file r]
set data [read $ch 20]
close $ch
if {[string match "##Eskil Plugin*" $data]} {
set src $file
break
|
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
if {$usenew1} {
set ::diff($top,leftFileB) $::diff($top,leftFile)
set ::diff($top,leftFile) $out1
} else {
set ::diff($top,leftFileD) $out1
#set ::diff($top,leftLabel) "$::diff($top,RevFile) $tag"
}
if {$usenew1} {
set ::diff($top,rightFileB) $::diff($top,rightFile)
set ::diff($top,rightFile) $out2
} else {
set ::diff($top,rightFileD) $out2
#set ::diff($top,rightLabel) $::diff($top,RevFile)
}
}
|
|
|
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
if {$usenew1} {
set ::diff($top,leftFileB) $::diff($top,leftFile)
set ::diff($top,leftFile) $out1
} else {
set ::diff($top,leftFileD) $out1
#set ::diff($top,leftLabel) "$::diff($top,RevFile) $tag"
}
if {$usenew2} {
set ::diff($top,rightFileB) $::diff($top,rightFile)
set ::diff($top,rightFile) $out2
} else {
set ::diff($top,rightFileD) $out2
#set ::diff($top,rightLabel) $::diff($top,RevFile)
}
}
|