shells.tcl

Go to the documentation of this file.
00001 /*  -*- tcl -*-*/
00002 /*  (C) 2006 Andreas Kupries <andreas_kupries@users.sourceforge.net>*/
00003 /** 
00004  * ###
00005  */
00006 
00007 package require  sak::test
00008 package require  sak::test::shell
00009 namespace ::sak::test::shells {}
00010 
00011 /*  ###*/
00012 
00013 ret  ::sak::test::shells (type argv) {
00014     if {[llength $argv]} {
00015     sak::test::usage Wrong # args
00016     }
00017 
00018     puts stdout [join [sak::test::shell::list] \n]
00019     return
00020 }
00021 
00022 /** 
00023  * ###
00024  */
00025 
00026 package provide sak::test::shells 1.0
00027