[51658] branches/images-and-archives/base

[blb at macports.org]

Revision: 51658
          http://trac.macports.org/changeset/51658
Author:   blb at macports.org
Date:     2009-05-30 00:36:51 -0700 (Sat, 30 May 2009)
Log Message:
-----------
Remove 'port location'

Modified Paths:
--------------
    branches/images-and-archives/base/doc/port.1
    branches/images-and-archives/base/src/port/port-help.tcl
    branches/images-and-archives/base/src/port/port.tcl

Modified: branches/images-and-archives/base/doc/port.1
===================================================================
--- branches/images-and-archives/base/doc/port.1	2009-05-30 07:23:41 UTC (rev 51657)
+++ branches/images-and-archives/base/doc/port.1	2009-05-30 07:36:51 UTC (rev 51658)
@@ -318,8 +318,6 @@
 .Ar portname .
 .Ss installed
 List all installed ports.
-.Ss location
-Print the install location of a given port.
 .Ss contents
 Lists the files installed by
 .Ar portname .

Modified: branches/images-and-archives/base/src/port/port-help.tcl
===================================================================
--- branches/images-and-archives/base/src/port/port-help.tcl	2009-05-30 07:23:41 UTC (rev 51657)
+++ branches/images-and-archives/base/src/port/port-help.tcl	2009-05-30 07:36:51 UTC (rev 51658)
@@ -166,10 +166,6 @@
 Interface to launchctl(1) for ports providing startup items
 }
 
-set porthelp(location) {
-Returns the install location for each of the given ports
-}
-
 set porthelp(mdmg) {
 Creates a dmg containing an mpkg for each of the given ports and their dependencies
 }

Modified: branches/images-and-archives/base/src/port/port.tcl
===================================================================
--- branches/images-and-archives/base/src/port/port.tcl	2009-05-30 07:23:41 UTC (rev 51657)
+++ branches/images-and-archives/base/src/port/port.tcl	2009-05-30 07:36:51 UTC (rev 51658)
@@ -1688,36 +1688,6 @@
 }
 
 
-proc action_location { action portlist opts } {
-    set status 0
-    if {[require_portlist portlist]} {
-        return 1
-    }
-    foreachport $portlist {
-        if { [catch {set ilist [registry_installed $portname [composite_version $portversion [array get variations]]]} result] } {
-            global errorInfo
-            ui_debug "$errorInfo"
-            break_softcontinue "port location failed: $result" 1 status
-        } else {
-            # set portname again since the one we were passed may not have had the correct case
-            set portname [lindex $ilist 0]
-            set version [lindex $ilist 1]
-            set revision [lindex $ilist 2]
-            set variants [lindex $ilist 3]
-        }
-
-        set ref [registry::open_entry $portname $version $revision $variants]
-        set imagedir [registry::property_retrieve $ref imagedir]
-        if {![macports::ui_isset ports_quiet]} {
-            puts "Port $portname ${version}_${revision}${variants} is installed as an image in:"
-        }
-        puts $imagedir
-    }
-    
-    return $status
-}
-
-
 proc action_notes { action portlist opts } {
     if {[require_portlist portlist]} {
         return 1
@@ -2915,7 +2885,6 @@
     echo        [list action_echo           [action_args_const ports]] \
     \
     info        [list action_info           [action_args_const ports]] \
-    location    [list action_location       [action_args_const ports]] \
     notes       [list action_notes          [action_args_const ports]] \
     provides    [list action_provides       [action_args_const strings]] \
     \
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090530/a2c91e4d/attachment.html>