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