[65021] trunk/base/src/port/port.tcl

[raimue at macports.org]

Revision: 65021
          http://trac.macports.org/changeset/65021
Author:   raimue at macports.org
Date:     2010-03-19 09:18:59 -0700 (Fri, 19 Mar 2010)
Log Message:
-----------
port: Mark currently selected version

Modified Paths:
--------------
    trunk/base/src/port/port.tcl

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2010-03-19 15:54:23 UTC (rev 65020)
+++ trunk/base/src/port/port.tcl	2010-03-19 16:18:59 UTC (rev 65021)
@@ -2094,15 +2094,28 @@
                                 "arguments. Extra arguments will be ignored."]
             }
 
+            if {[catch {mportselect show $group} selected_version]} {
+                ui_warn "Unable to get active selected version: $selected_version"
+            }
+
             # On error mportselect returns with the code 'error'.
             if {[catch {mportselect $command $group} versions]} {
                 ui_error "The 'list' command failed: $versions"
                 return 1
             }
 
-            puts "Available Versions:"
+            if {![macports::ui_isset ports_quiet] && [isatty stdout]} {
+                puts "Available versions:"
+            }
             foreach v $versions {
-                puts "\t$v"
+                if {![macports::ui_isset ports_quiet] && [isatty stdout]} {
+                    puts -nonewline "\t"
+                }
+                if {$selected_version == $v} {
+                    puts "$v (active)"
+                } else {
+                    puts "$v"
+                }
             }
             return 0
         }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100319/6daa08a0/attachment.html>