1
2
3
4
5
6
7
8
9
10
11
12
|
#! /usr/bin/env tclsh
lappend auto_path [file join [file dirname [info script]] .. lib]
package require teapotclient
puts "The following extensions are available:"
foreach {extension extensioninfo} [::teapotclient::get_extensions \
[list teapot.activestate.com] \
{*} {*}] {
puts " $extension [join $extensioninfo {, }]"
}
|
|
|
1
2
3
4
5
6
7
8
9
10
11
12
|
#! /usr/bin/env tclsh
lappend auto_path [file join [file dirname [info script]] .. lib]
package require teapotclient
puts "The following extensions are available:"
foreach {extension extensioninfo} [::teapotclient::get_extensions \
teapot.activestate.com \
{*} {*}] {
puts " $extension [join $extensioninfo {, }]"
}
|