Changeset 14585 for trunk/base

Timestamp:

Oct 12, 2005, 10:35:01 PM (19 years ago)

Author:

jberry

Message:

Conspire to give the user version information if they ask for "--version"
(which is an extremely common idiom). We can't just give them the information,
since dportinit hasn't been called at the point where we process arguments,
but default "action" to "version" for this case (assuming they won't also
have asked for an action), and emit a warning message for good measure.

File:

• trunk/base/src/port/port.tcl (modified) (2 diffs)

trunk/base/src/port/port.tcl

@@ -3 +3 @@
 exec @TCLSH@ "$0" "$@"
 # port.tcl
-# $Id: port.tcl,v 1.131 2005/10/12 22:21:20 jberry Exp $
+# $Id: port.tcl,v 1.132 2005/10/12 22:35:01 jberry Exp $
 #
 # Copyright (c) 2004 Robert Shaw <rshaw@opendarwin.org>
@@ -1073 +1073 @@
                 break
         } elseif {[string index $arg 1] == "-"} {
-                # Process long args -- we don't support any for now
-                print_usage; exit 1
+                # Process long arguments
+                switch -- $arg {
+                        --version       { puts {(please use "version" to get version information)}; set action "version" }
+                        default         { print_usage; exit 1 }
+                }
         } else {
                 # Process short arg(s)