1
2
3
4
5
6
7
8
9
10
|
#! /usr/bin/env tclsh
set teapotservers [list teapot.activestate.com]
lappend auto_path [file join [file dirname [info script]] lib]
package require teapotclient
proc print_help {} {
puts stderr "Usage: teapot-client get <dir> <os> <cpu> <packages...>"
|
|
|
1
2
3
4
5
6
7
8
9
10
|
#! /usr/bin/env tclsh
set teapotservers [list teapot.activestate.com teapot.rkeene.org]
lappend auto_path [file join [file dirname [info script]] lib]
package require teapotclient
proc print_help {} {
puts stderr "Usage: teapot-client get <dir> <os> <cpu> <packages...>"
|
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
}
if {[llength $argv] > 1} {
set cpu [lindex $argv 1]
}
puts "Extensions available for OS=$os, CPU=$cpu:"
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} {
|
>
|
>
>
|
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 $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} {
|