[49854] trunk/base

toby at macports.org toby at macports.org
Sun Apr 19 00:41:46 PDT 2009


Revision: 49854
          http://trac.macports.org/changeset/49854
Author:   toby at macports.org
Date:     2009-04-19 00:41:46 -0700 (Sun, 19 Apr 2009)
Log Message:
-----------
remove variant_unset and variant_undef, they are not used anywhere

Modified Paths:
--------------
    trunk/base/doc/portfile.7
    trunk/base/src/port1.0/portutil.tcl

Modified: trunk/base/doc/portfile.7
===================================================================
--- trunk/base/doc/portfile.7	2009-04-19 07:36:48 UTC (rev 49853)
+++ trunk/base/doc/portfile.7	2009-04-19 07:41:46 UTC (rev 49854)
@@ -1904,9 +1904,6 @@
 .It Ic variant_set Ar variant
 Set the given
 .Ar variant .
-.It Ic variant_unset Ar variant
-Unset the given
-.Ar variant .
 .It Va variable Ns - Ns Ic append Ar item
 Append
 .Ar item

Modified: trunk/base/src/port1.0/portutil.tcl
===================================================================
--- trunk/base/src/port1.0/portutil.tcl	2009-04-19 07:36:48 UTC (rev 49853)
+++ trunk/base/src/port1.0/portutil.tcl	2009-04-19 07:41:46 UTC (rev 49854)
@@ -544,39 +544,6 @@
     set variations($name) +
 }
 
-# variant_unset name
-# Clear variant for current portfile
-proc variant_unset {name} {
-    global variations
-    
-    set variations($name) -
-}
-
-# variant_undef name
-# Undefine a variant for the current portfile.
-proc variant_undef {name} {
-    global variations PortInfo
-    
-    # Remove it from the list of selected variations.
-    array unset variations $name
-
-    # Remove the variant from the portinfo.
-    if {[info exists PortInfo(variants)]} {
-        set variant_index [lsearch -exact $PortInfo(variants) $name]
-        if {$variant_index >= 0} {
-            set new_list [lreplace $PortInfo(variants) $variant_index $variant_index]
-            if {"$new_list" == {}} {
-                unset PortInfo(variants) 
-            } else {
-                set PortInfo(variants) $new_list
-            }
-        }
-    }
-    
-    # And from the dlist.
-    variant_remove_ditem $name
-}
-
 # variant_remove_ditem name
 # Remove variant name's ditem from the all_variants dlist
 proc variant_remove_ditem {name} {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090419/4ce95603/attachment.html>


More information about the macports-changes mailing list