[47308] trunk/base/src/macports1.0/macports.tcl

[perry at macports.org]

Revision: 47308
          http://trac.macports.org/changeset/47308
Author:   perry at macports.org
Date:     2009-02-25 13:22:59 -0800 (Wed, 25 Feb 2009)
Log Message:
-----------
macports1.0/macports.tcl - Added macports::variants_descriptions.

Modified Paths:
--------------
    trunk/base/src/macports1.0/macports.tcl

Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl	2009-02-25 20:52:02 UTC (rev 47307)
+++ trunk/base/src/macports1.0/macports.tcl	2009-02-25 21:22:59 UTC (rev 47308)
@@ -341,6 +341,7 @@
     global macports::rsync_options
     global macports::rsync_server
     global macports::variants_conf
+    global macports::variants_descriptions
     global macports::xcodebuildcmd
     global macports::xcodeversion
     global macports::configureccache
@@ -435,6 +436,19 @@
         set sources_default [lindex $sources end]
     }
 
+    set default_source_url [lindex $sources_default 0]
+    if {[macports::getprotocol $default_source_url] eq "file"} {
+        set variants_descriptions [macports::getportdir $default_source_url]
+    } else {
+        set variants_descriptions [macports::getsourcepath $default_source_url]
+    }
+    set variants_descriptions [file join $variants_descriptions \
+                               "_resources/port1.0/variant_descriptions.conf"]
+    if {![file exists $variants_descriptions]} {
+        set variants_descriptions {}
+        ui_warn "variant_descriptions.conf was not found ($default_source_url). No descriptions will be shown for global variants."
+    }
+
     if {![info exists sources]} {
         if {[file isdirectory ports]} {
             set sources "file://[pwd]/ports"
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090225/6f95ae1a/attachment.html>