[43730] trunk/base/src/port1.0/portutil.tcl

[toby at macports.org]

Revision: 43730
          http://trac.macports.org/changeset/43730
Author:   toby at macports.org
Date:     2008-12-13 18:58:49 -0800 (Sat, 13 Dec 2008)
Log Message:
-----------
remove option_deprecate etc (unused code)

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

Modified: trunk/base/src/port1.0/portutil.tcl
===================================================================
--- trunk/base/src/port1.0/portutil.tcl	2008-12-14 02:51:58 UTC (rev 43729)
+++ trunk/base/src/port1.0/portutil.tcl	2008-12-14 02:58:49 UTC (rev 43730)
@@ -177,44 +177,6 @@
 }
 
 ##
-# Print a warning for deprecated ports
-#
-# @param args list of ports to be exported
-proc warn_deprecated_option {option action args} {
-    global portname $option $newoption
-
-    ui_warn "Port $portname using deprecated option \"$option\"."
-}
-
-proc warn_superseded_option {option newport action args} {
-    global portname $option $newoption
-
-    if {$action != "read"} {
-        $newoption [set $option]
-    } else {
-        ui_warn "Port $portname using deprecated option \"$option\"."
-        $option [set $newoption]
-    }
-}
-
-
-##
-# Causes a warning to be printed when an option is set or accessed
-#
-# @param option name of the option
-# @param newoption name of a superseding option
-proc option_deprecate {option {newoption ""} } {
-    # If a new option is specified, default the option to {${newoption}}
-    # Display a warning
-    if {$newoption != ""} {
-        option_proc $option warn_deprecated_option $option
-    } else {
-        option_proc $option warn_superseded_option $option $newoption
-    }
-
-}
-
-##
 # Registers a proc to be called when an option is changed
 #
 # @param option the name of the option
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20081213/bd15c1ad/attachment.html>