55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
-
-
+
+
+
+
|
}
if {[llength $argv] > 1} {
set cpu [lindex $argv 1]
}
puts "Extensions available for OS=$os, CPU=$cpu:"
set extsinfo [::teapotclient::get_extensions $teapotservers $os $cpu]
foreach {ext extinfo} $extsinfo {
array set exts [::teapotclient::get_extensions $teapotservers $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} {
lappend extvers $extinfoitemvers
}
}
|