example-1.tcl at [3913113214]

File client/examples/example-1.tcl artifact 4ace071797 part of check-in 3913113214


#! /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 {, }]"
                }