Ticket #36179: port.diff

port.tcl

@@ -2503 +2503 @@
 
 proc action_select { action portlist opts } {
     ui_debug "action_select \[$portlist] \[$opts]..."
-
-    # Error out if no group is specified.
-    if {[llength $portlist] < 1} {
-        ui_error "port select \[--list|--set|--show] <group> \[<version>]"
-        return 1
-    }
-    set group [lindex $portlist 0]
+        
+        set group [lindex $portlist 0]
 
     array set opts_array $opts
     set commands [array names opts_array ports_select_*]
     array unset opts_array
+        
+        # Error out if no group is specified or command is not --summary.
+    if {[llength $portlist] < 1 && [string map {ports_select_ ""} [lindex $commands 0]] != "summary"} {
+        ui_error "port select \[--list|--set|--show|--summary] \<group> \[<version>]"
+        return 1
+    }
+    
     # If no command (--set, --show, --list) is specified *but* more than one
     # argument is specified, default to the set command.
     if {[llength $commands] < 1 && [llength $portlist] > 1} {
@@ -2601 +2603 @@
                          "'$selected_version'."]
             return 0
         }
+        summary {
+                if {[llength $portlist] > 0} {
+                ui_warn [concat "The 'summary' command does not expect any " \
+                                "arguments. Extra arguments will be ignored."]
+            }
+
+            if {[catch {mportselect $command} portgroups]} {
+                ui_error "The 'summary' command failed: $portgroups"
+                return 1
+            }
+            puts "Portgroups\tOptions" 
+            foreach pg $portgroups {
+                ui_notice $pg
+                if {[catch {mportselect list $pg} versions]} {
+                ui_error "The list of versions could not be obtained: $versions"
+                return 1
+                }
+                foreach v $versions {
+                ui_notice -nonewline "\t"
+                if {[{mportselect show $pg} selected_version] == $v} {
+                    ui_msg "$v (active)"
+                } else {
+                    ui_msg "$v"
+                }
+            }
+            return 0
+                }
+        }
         default {
             ui_error "An unknown command '$command' was specified."
             return 1
@@ -4294 +4325 @@
     clean       {all archive dist work logs}
     mirror      {new}
     lint        {nitpick}
-    select      {list set show}
+    select      {list set show summary}
     log         {{phase 1} {level 1}}
     upgrade     {force enforce-variants no-replace no-rev-upgrade}
     rev-upgrade {id-loadcmd-check}