help/cmd.tcl

Go to the documentation of this file.
00001 /*  -*- tcl -*-*/
00002 /*  Implementation of 'help'.*/
00003 
00004 /*  Available variables*/
00005 /*  * argv  - Cmdline arguments*/
00006 
00007 if {[llength $argv] > 2} {
00008     puts stderr "Usage: $argv0 help ?topic?"
00009     exit 1
00010 }
00011 
00012 package require sak::help
00013 
00014 if {[llength $argv] == 1} {
00015     /*  Argument is a topic.*/
00016     /*  Locate text for the topic.*/
00017 
00018     sak::help::print [sak::help::on [lindex $argv 0]]
00019     return
00020 }
00021 
00022 sak::help::print [sak::help::alltopics]
00023 
00024 /** 
00025  * ###
00026