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