94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
if {[$pi eval info proc FileCompare] ne ""} {
dict set pinfo dir 1
}
return $pi
}
proc printPlugin {plugin} {
set src [LocatePlugin $plugin]
if {$src eq ""} {
printPlugins
return
}
set ch [open $src]
puts -nonewline [read $ch]
close $ch
}
proc listPlugins {} {
set dirs [PluginSearchPath]
set result {}
|
|
|
>
>
>
>
>
>
>
>
>
|
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
if {[$pi eval info proc FileCompare] ne ""} {
dict set pinfo dir 1
}
return $pi
}
proc printPlugin {plugin {short 0}} {
set src [LocatePlugin $plugin]
if {$src eq ""} {
printPlugins
return
}
set ch [open $src]
set lines [split [read $ch] \n]
foreach line $lines {
set line [string trim $line]
if {$short} {
if {![string match "#*" $line]} {
break
}
}
puts $line
}
close $ch
}
proc listPlugins {} {
set dirs [PluginSearchPath]
set result {}
|