1# -*- tcl -*- 2# Implementation of 'help'. 3 4# Available variables 5# * argv - Cmdline arguments 6 7if {[llength $argv] > 2} { 8 puts stderr "Usage: $argv0 help ?topic?" 9 exit 1 10} 11 12package require sak::help 13 14if {[llength $argv] == 1} { 15 # Argument is a topic. 16 # Locate text for the topic. 17 18 sak::help::print [sak::help::on [lindex $argv 0]] 19 return 20} 21 22sak::help::print [sak::help::alltopics] 23 24## 25# ### 26