chiark / gitweb /
Add `-jameson' option.
authormdw <mdw>
Sun, 2 Mar 2003 12:28:14 +0000 (12:28 +0000)
committermdw <mdw>
Sun, 2 Mar 2003 12:28:14 +0000 (12:28 +0000)
README
elite-editor

diff --git a/README b/README
index 14659d3..88aae48 100644 (file)
--- a/README
+++ b/README
@@ -360,7 +360,7 @@ RIGHT ON COMMAND-LINE
 
 3. The graphical editor
 
-  elite-editor [GALAXY | FILE]
+  elite-editor [GALAXY | FILE | -jameson]
 
        Starts the RIGHT ON COMMAND-LINE Commander Editor and Map.  This
        is a Tk program -- you'll need that installed to run it.
@@ -450,7 +450,7 @@ RIGHT ON COMMAND-LINE
        unrewarding) or pirates (risky and tedious), and start trading
        food and other cheap items.
 
-$Id: README,v 1.4 2003/03/01 17:47:07 mdw Exp $
+$Id: README,v 1.5 2003/03/02 12:28:14 mdw Exp $
 \f
 Local variables:
 mode: text
index 631e30d..e92578e 100755 (executable)
@@ -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 {