[25937] branches/dp2mp-move/base/src/port1.0/portsubmit.tcl

[source_changes at macosforge.org]

Revision: 25937
          http://trac.macosforge.org/projects/macports/changeset/25937
Author:   jmpp at macports.org
Date:     2007-06-06 18:21:27 -0700 (Wed, 06 Jun 2007)

Log Message:
-----------
Merge jberry's r25812: Add variant descriptions to portpkg meta data format.

Modified Paths:
--------------
    branches/dp2mp-move/base/src/port1.0/portsubmit.tcl

Modified: branches/dp2mp-move/base/src/port1.0/portsubmit.tcl
===================================================================
--- branches/dp2mp-move/base/src/port1.0/portsubmit.tcl	2007-06-07 01:19:55 UTC (rev 25936)
+++ branches/dp2mp-move/base/src/port1.0/portsubmit.tcl	2007-06-07 01:21:27 UTC (rev 25937)
@@ -157,7 +157,22 @@
 		
 			# TODO: variants has platforms in it
 			if {[info exists PortInfo(variants)]} {
-				putlist $sd variants variant $PortInfo(variants)
+				if {[info exists PortInfo(variant_desc)]} {
+					array set descs $PortInfo(variant_desc)
+				} else {
+					array set descs ""
+				}
+	
+				puts $sd "<variants>"
+				foreach v $PortInfo(variants) {
+					puts $sd "<variant>"
+						putel $sd name $v
+						if {[info exists descs($v)]} {
+							putel $sd description $descs($v)
+						}
+					puts $sd "</variant>"
+				}
+				puts $sd "</variants>"
 			} else {
 				putel $sd variants ""
 			}

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070606/c78ec624/attachment.html