doc/cmd.tcl

Go to the documentation of this file.

/*  -*- tcl -*-*/
/*  Implementation of 'doc'.*/

/*  Available variables*/
/*  * argv  - Cmdline arguments*/
/*  * base  - Location of sak.tcl = Topd directory of Tcllib distribution*/
/*  * cbase - Location of all files relevant to this command.*/
/*  * sbase - Location of all files supporting the SAK.*/

if {![llength $argv]} {
     format =  * 
} else {
     format =  [lindex $argv 0]*
     argv =    [lrange $argv 1 end]
}

package require sak::util
if {![sak::util::checkModules argv]} return

 matches =  0
foreach f {html nroff tmml text wiki latex dvi ps pdf list validate} {
    if {![string match $format $f]} continue
    incr matches
}
if {!$matches} {
    puts "  No format matching \"$format\""
    return
}

/*  ###*/

package require sak::doc

foreach f {html nroff tmml text wiki latex dvi ps pdf list validate} {
    if {![string match $format $f]} continue
    sak::doc::$f $argv
}

/** 
 * ###