Add `-jameson' option.

[rocl] / elite-editor

diff --git a/elite-editor b/elite-editor
index 631e30d..e92578e 100755 (executable)
--- a/elite-editor
+++ b/elite-editor
@@ -1,6 +1,6 @@
 #! /usr/bin/wish
 #
-# $Id: elite-editor,v 1.5 2003/03/01 17:47:07 mdw Exp $
+# $Id: elite-editor,v 1.6 2003/03/02 12:28:14 mdw Exp $
 
 package require "elite" "1.0.0"
 
@@ -1166,12 +1166,23 @@ wm withdraw .
 
 if {[llength $argv]} {
   foreach a $argv {
-    set g [parse-galaxy-spec $a]
-    if {[llength $g]} {
-      destructure {ng g} $g
-      map-new $ng $g
-    } else {
-      cmdr-load $a
+    switch -glob -- $a {
+      "-jameson" {
+       cmdr-new
+      }
+      "-*" {
+       puts stderr "$argv0: unknown option: $a"
+       exit 1
+      }
+      default {
+       set g [parse-galaxy-spec $a]
+       if {[llength $g]} {
+         destructure {ng g} $g
+         map-new $ng $g
+       } else {
+         cmdr-load $a
+       }
+      }
     }
   }
 } else {