diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2016-10-27 19:39:39 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2016-10-27 19:39:39 (GMT) |
commit | ea28451286d3ea4a772fa174483f9a7a66bb1ab3 (patch) | |
tree | 6ee9d8a7848333a7ceeee3b13d492e40225f8b86 /tcllib/support/devel/sak/test/cmd.tcl | |
parent | b5ca09bae0d6a1edce939eea03594dd56383f2c8 (diff) | |
parent | 7c621da28f07e449ad90c387344f07a453927569 (diff) | |
download | blt-ea28451286d3ea4a772fa174483f9a7a66bb1ab3.zip blt-ea28451286d3ea4a772fa174483f9a7a66bb1ab3.tar.gz blt-ea28451286d3ea4a772fa174483f9a7a66bb1ab3.tar.bz2 |
Merge commit '7c621da28f07e449ad90c387344f07a453927569' as 'tcllib'
Diffstat (limited to 'tcllib/support/devel/sak/test/cmd.tcl')
-rw-r--r-- | tcllib/support/devel/sak/test/cmd.tcl | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/tcllib/support/devel/sak/test/cmd.tcl b/tcllib/support/devel/sak/test/cmd.tcl new file mode 100644 index 0000000..5622a16 --- /dev/null +++ b/tcllib/support/devel/sak/test/cmd.tcl @@ -0,0 +1,28 @@ +# -*- tcl -*- +# Implementation of 'doc'. + +# Available variables +# * argv - Cmdline arguments +# * base - Location of sak.tcl = Top directory of Tcllib distribution +# * cbase - Location of all files relevant to this command. +# * sbase - Location of all files supporting the SAK. + +package require sak::util +package require sak::test + +if {![llength $argv]} { + sak::test::usage Command missing +} + +set cmd [lindex $argv 0] +set argv [lrange $argv 1 end] + +if {[catch {package require sak::test::$cmd} msg]} { + sak::test::usage Unknown command \"$cmd\" : \ + \n $::errorInfo +} + +sak::test::$cmd $argv + +## +# ### |