1# -*- tcl -*- 2# Implementation of 'doc'. 3 4# Available variables 5# * argv - Cmdline arguments 6# * base - Location of sak.tcl = Top directory of Tcllib distribution 7# * cbase - Location of all files relevant to this command. 8# * sbase - Location of all files supporting the SAK. 9 10package require sak::util 11package require sak::test 12 13if {![llength $argv]} { 14 sak::test::usage Command missing 15} 16 17set cmd [lindex $argv 0] 18set argv [lrange $argv 1 end] 19 20if {[catch {package require sak::test::$cmd} msg]} { 21 sak::test::usage Unknown command \"$cmd\" : \ 22 \n $::errorInfo 23} 24 25sak::test::$cmd $argv 26 27## 28# ### 29