72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
+
-
+
+
+
|
}
if {[llength $argv] > 1} {
set cpu [lindex $argv 1]
}
puts "Extensions available for OS=$os, CPU=$cpu:"
foreach teapotserver $teapotservers {
array set exts [::teapotclient::get_extensions $teapotservers $os $cpu]
array set exts [::teapotclient::get_extensions $teapotserver $os $cpu]
}
foreach ext [lsort -dictionary [array names exts]] {
set extinfo $exts($ext)
set extvers [list]
foreach extinfoitem $extinfo {
set extinfoitemvers [lindex $extinfoitem 0]
if {[lsearch -exact $extvers $extinfoitemvers] == -1} {
|