[29207] trunk/base/src/port

[source_changes at macosforge.org]

Revision: 29207
          http://trac.macosforge.org/projects/macports/changeset/29207
Author:   jmpp at macports.org
Date:     2007-09-17 08:26:12 -0700 (Mon, 17 Sep 2007)

Log Message:
-----------

All these macports1.0 clients use the default ui_prefix implementation, so no need to duplicate
all that code in each of them.

Modified Paths:
--------------
    trunk/base/src/port/port.tcl
    trunk/base/src/port/portindex.tcl
    trunk/base/src/port/portmirror.tcl

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2007-09-17 15:22:31 UTC (rev 29206)
+++ trunk/base/src/port/port.tcl	2007-09-17 15:26:12 UTC (rev 29207)
@@ -46,24 +46,6 @@
 # ui_options(ports_verbose) - If set, output info messages (ui_info)
 # ui_options(ports_quiet) - If set, don't output "standard messages"
 
-# UI Callback
-proc ui_prefix {priority} {
-    switch $priority {
-        debug {
-            return "DEBUG: "
-        }
-        error {
-            return "Error: "
-        }
-        warn {
-            return "Warning: "
-        }
-        default {
-            return ""
-        }
-    }
-}
-
 proc ui_channels {priority} {
     global ui_options
     switch $priority {

Modified: trunk/base/src/port/portindex.tcl
===================================================================
--- trunk/base/src/port/portindex.tcl	2007-09-17 15:22:31 UTC (rev 29206)
+++ trunk/base/src/port/portindex.tcl	2007-09-17 15:26:12 UTC (rev 29207)
@@ -28,24 +28,6 @@
 # ui_options(ports_verbose) - If set, output info messages (ui_info)
 # ui_options(ports_quiet) - If set, don't output "standard messages"
 
-# UI Callback
-proc ui_prefix {priority} {
-    switch $priority {
-        debug {
-            return "DEBUG: "
-        }
-        error {
-            return "Error: "
-        }
-        warn {
-            return "Warning: "
-        }
-        default {
-            return ""
-        }
-    }
-}
-
 proc ui_channels {priority} {
     switch $priority {
         debug {

Modified: trunk/base/src/port/portmirror.tcl
===================================================================
--- trunk/base/src/port/portmirror.tcl	2007-09-17 15:22:31 UTC (rev 29206)
+++ trunk/base/src/port/portmirror.tcl	2007-09-17 15:26:12 UTC (rev 29207)
@@ -25,25 +25,6 @@
 # ui_options(ports_verbose) - If set, output info messages (ui_info)
 # ui_options(ports_quiet) - If set, don't output "standard messages"
 
-
-# UI Callback
-proc ui_prefix {priority} {
-    switch $priority {
-        debug {
-            return "DEBUG: "
-        }
-        error {
-            return "Error: "
-        }
-        warn {
-            return "Warning: "
-        }
-        default {
-            return ""
-        }
-    }
-}
-
 proc ui_channels {priority} {
     switch $priority {
         debug {

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