File client/examples/example-1.tcl artifact 4ace071797 part of check-in d0d93dc47e
#! /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 {, }]" }