1# -*- tcl -*- 2# Implementation of 'note'. 3 4# Available variables 5# * argv - Cmdline arguments 6# * base - Location of sak.tcl = Top directory of Tcllib distribution 7# * cbase - Location of all files relevant to this command. 8# * sbase - Location of all files supporting the SAK. 9 10package require sak::util 11package require sak::note 12 13set raw 0 14set log 0 15set stem {} 16set tclv {} 17 18if {![llength $argv]} { 19 sak::note::show 20 return 21} 22if {[llength $argv] < 3} { 23 sak::note::usage 24} 25foreach {m p} $argv break 26set notes [lrange $argv 2 end] 27 28sak::note::run $m $p $notes 29 30## 31# ### 32