diff options
Diffstat (limited to 'tcllib/support/devel/sak/readme/cmd.tcl')
| -rw-r--r-- | tcllib/support/devel/sak/readme/cmd.tcl | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/tcllib/support/devel/sak/readme/cmd.tcl b/tcllib/support/devel/sak/readme/cmd.tcl new file mode 100644 index 0000000..21315d2 --- /dev/null +++ b/tcllib/support/devel/sak/readme/cmd.tcl @@ -0,0 +1,38 @@ +# -*- tcl -*- +# Implementation of 'readme'. + +# Available variables +# * argv - Cmdline arguments +# * base - Location of sak.tcl = Top directory of Tcllib distribution +# * cbase - Location of all files relevant to this command. +# * sbase - Location of all files supporting the SAK. + +package require sak::util +package require sak::readme + +set raw 0 +set log 0 +set stem {} +set tclv {} +set format txt + +while {[llength $argv]} { + switch -exact -- [set o [lindex $argv 0]] { + -md { + set argv [lrange $argv 1 end] + set format md + } + default { + sak::readme::usage + } + } +} + +if {[llength $argv]} { + sak::readme::usage +} + +sak::readme::run $format + +## +# ### |