Changeset 37253 for trunk/base/src

Timestamp:

05/31/08 22:12:23 (6 months ago)

Author:

raimue@…

Message:

port/port.tcl:
port usage <action> gives the basic usage as in port help <action> on the top
Removed hardcoded values and use action_args_const instead

Files:

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

trunk/base/src/port/port.tcl

@@ -1157 +1157 @@
 ##########################################
 
+proc action_get_usage { action } {
+    global action_array cmd_args_array
+
+    if {[info exists action_array($action)]} {
+        set cmds ""
+        if {[info exists cmd_args_array($action)]} {
+            foreach cmd $cmd_args_array($action) {
+                set name [lindex $cmd 0]
+                set argc [lindex $cmd 1]
+
+                append cmds " --$name"
+
+                for {set i 1} {$i <= $argc} {incr i} {
+                    append cmds " <arg$i>"
+                }
+            }
+        }
+        set args ""
+        set needed [action_needs_portlist $action]
+        if {[action_args_const strings] == $needed} {
+            set args " <arguments>"
+        } elseif {[action_args_const strings] == $needed} {
+            set args " <portlist>"
+        }
+
+        set ret "Usage: "
+        set len [string length $action]
+        append ret [wrap "$action$cmds$args" [expr 80 - $len] [string repeat " " [expr 8 + $len]] 0]
+        append ret "\n"
+
+        return $ret
+    }
+
+    return -1
+}
+
 proc action_usage { action portlist opts } {
-    print_usage
-    return 0
+    if {[llength $portlist] == 0} {
+        print_usage
+        return 0
+    }
+
+    foreach topic $portlist {
+        set usage [action_get_usage $topic]
+        if {$usage != -1} {
+           puts -nonewline stderr $usage
+        } else {
+            ui_error "No usage for topic $topic"
+            return 1
+        }
+    }
 }
 
 
 proc action_help { action portlist opts } {
-    global action_array cmd_args_array
     set helpfile "$macports::prefix/var/macports/port-help.tcl"
 
@@ -1188 +1235 @@
         }
 
-        if {[info exists action_array($topic)]} {
-            set cmds ""
-            if {[info exists cmd_args_array($topic)]} {
-                foreach cmd $cmd_args_array($topic) {
-                    append cmds " --$cmd"
-                }
-            }
-            set args ""
-            switch -- [action_needs_portlist $topic] {
-                1 {
-                    set args " <arguments>"
-                }
-                2 {
-                    set args " <portlist>"
-                }
-            }
-
-            puts -nonewline stderr "Usage: "
-            set len [string length $topic]
-            puts stderr [wrap "$topic$cmds$args" [expr 80 - $len] [string repeat " " [expr 8 + $len]] 0]
+        set usage [action_get_usage $topic]
+        if {$usage != -1} {
+           puts -nonewline stderr $usage
+        } else {
+            ui_error "No usage for topic $topic"
+            return 1
         }
 
@@ -2411 +2444 @@
 }
 array set action_array [list \
-    usage       [list action_usage          [action_args_const none]] \
+    usage       [list action_usage          [action_args_const strings]] \
     help        [list action_help           [action_args_const strings]] \
     \