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