[65857] trunk/base/src/registry2.0

[jmr at macports.org]

Revision: 65857
          http://trac.macports.org/changeset/65857
Author:   jmr at macports.org
Date:     2010-04-01 22:57:13 -0700 (Thu, 01 Apr 2010)
Log Message:
-----------
make it possible to list dependents with just a port name

Modified Paths:
--------------
    trunk/base/src/registry2.0/receipt_sqlite.tcl
    trunk/base/src/registry2.0/registry.tcl

Modified: trunk/base/src/registry2.0/receipt_sqlite.tcl
===================================================================
--- trunk/base/src/registry2.0/receipt_sqlite.tcl	2010-04-02 05:54:38 UTC (rev 65856)
+++ trunk/base/src/registry2.0/receipt_sqlite.tcl	2010-04-02 05:57:13 UTC (rev 65857)
@@ -209,9 +209,13 @@
 	set rlist [list]
 	set searchcmd "registry::entry search"
     foreach key {name version revision} {
-        append searchcmd " $key [set $key]"
+        if {[set $key] != ""} {
+            append searchcmd " $key [set $key]"
+        }
     }
-    append searchcmd " variants {$variants}"
+    if {$variants != 0} {
+        append searchcmd " variants {$variants}"
+    }
     if {[catch {set ports [eval $searchcmd]}]} {
         set ports [list]
     }

Modified: trunk/base/src/registry2.0/registry.tcl
===================================================================
--- trunk/base/src/registry2.0/registry.tcl	2010-04-02 05:54:38 UTC (rev 65856)
+++ trunk/base/src/registry2.0/registry.tcl	2010-04-02 05:57:13 UTC (rev 65857)
@@ -362,7 +362,7 @@
 }
 
 # List all the ports that depend on this port
-proc list_dependents {name {version ""} {revision ""} {variants ""}} {
+proc list_dependents {name {version ""} {revision ""} {variants 0}} {
 	global macports::registry.format
 	return [${macports::registry.format}::list_dependents $name $version $revision $variants]
 }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100401/0512e68d/attachment.html>