From 4c6cac6e9141a4233c357cf45057de30327586d0 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 24 Sep 2004 12:23:31 +0000
Subject: *** empty log message ***

---
 starkit/main.tcl | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 starkit/main.tcl

(limited to 'starkit/main.tcl')

diff --git a/starkit/main.tcl b/starkit/main.tcl
new file mode 100644
index 0000000..724f807
--- /dev/null
+++ b/starkit/main.tcl
@@ -0,0 +1,35 @@
+
+package require starkit
+
+set method [starkit::startup]
+if { $method eq "sourced"} return
+
+array set help {
+    demo { Launch a package demo
+
+	Usage: demo package
+    }
+}
+
+set action [lindex $argv 0]
+set path [file dirname [info script]]
+
+set validActions [array names help]
+if { $action eq "" ||
+     ($action eq "help" && [llength $argv] == 1 &&
+      [lsearch $validActions $action] < 0) } {
+    puts "Specify one of the following commands:\n"
+    foreach c [array names help] {
+	puts -nonewline " $c"
+    }
+    puts "\n\nFor more information, type: $argv0 help ?command?"
+    exit
+} elseif { $action eq "help" } {
+    set cmd [lindex $argv 1]
+    puts $help($cmd)
+    exit
+}
+
+set argv [lrange $argv 1 end]
+
+source [file join $path $action.tcl]
-- 
cgit v1.1