[66308] branches/xterm-titles/base/src/port1.0

raimue at macports.org raimue at macports.org
Thu Apr 8 17:32:18 PDT 2010


Revision: 66308
          http://trac.macports.org/changeset/66308
Author:   raimue at macports.org
Date:     2010-04-08 17:32:16 -0700 (Thu, 08 Apr 2010)
Log Message:
-----------
Use ui_phase in port1.0 in each target_start

Modified Paths:
--------------
    branches/xterm-titles/base/src/port1.0/portbuild.tcl
    branches/xterm-titles/base/src/port1.0/portchecksum.tcl
    branches/xterm-titles/base/src/port1.0/portclean.tcl
    branches/xterm-titles/base/src/port1.0/portconfigure.tcl
    branches/xterm-titles/base/src/port1.0/portdestroot.tcl
    branches/xterm-titles/base/src/port1.0/portdistfiles.tcl
    branches/xterm-titles/base/src/port1.0/portextract.tcl
    branches/xterm-titles/base/src/port1.0/portfetch.tcl
    branches/xterm-titles/base/src/port1.0/portinstall.tcl
    branches/xterm-titles/base/src/port1.0/portlint.tcl
    branches/xterm-titles/base/src/port1.0/portpatch.tcl
    branches/xterm-titles/base/src/port1.0/portsubmit.tcl
    branches/xterm-titles/base/src/port1.0/porttest.tcl

Modified: branches/xterm-titles/base/src/port1.0/portbuild.tcl
===================================================================
--- branches/xterm-titles/base/src/port1.0/portbuild.tcl	2010-04-09 00:30:52 UTC (rev 66307)
+++ branches/xterm-titles/base/src/port1.0/portbuild.tcl	2010-04-09 00:32:16 UTC (rev 66308)
@@ -141,9 +141,7 @@
 }
 
 proc portbuild::build_start {args} {
-    global UI_PREFIX
-
-    ui_msg "$UI_PREFIX [format [msgcat::mc "Building %s"] [option name]]"
+    ui_phase build "[format [msgcat::mc "Building %s"] [option name]]"
 }
 
 proc portbuild::build_main {args} {

Modified: branches/xterm-titles/base/src/port1.0/portchecksum.tcl
===================================================================
--- branches/xterm-titles/base/src/port1.0/portchecksum.tcl	2010-04-09 00:30:52 UTC (rev 66307)
+++ branches/xterm-titles/base/src/port1.0/portchecksum.tcl	2010-04-09 00:32:16 UTC (rev 66308)
@@ -177,9 +177,7 @@
 # Target prerun procedure; simply prints a message about what we're doing.
 #
 proc portchecksum::checksum_start {args} {
-    global UI_PREFIX
-
-    ui_msg "$UI_PREFIX [format [msgcat::mc "Verifying checksum(s) for %s"] [option name]]"
+    ui_phase checksum "[format [msgcat::mc "Verifying checksum(s) for %s"] [option name]]"
 }
 
 # checksum_main

Modified: branches/xterm-titles/base/src/port1.0/portclean.tcl
===================================================================
--- branches/xterm-titles/base/src/port1.0/portclean.tcl	2010-04-09 00:30:52 UTC (rev 66307)
+++ branches/xterm-titles/base/src/port1.0/portclean.tcl	2010-04-09 00:32:16 UTC (rev 66308)
@@ -50,9 +50,7 @@
 set_ui_prefix
 
 proc portclean::clean_start {args} {
-    global UI_PREFIX
-
-    ui_msg "$UI_PREFIX [format [msgcat::mc "Cleaning %s"] [option name]]"
+    ui_phase clean "[format [msgcat::mc "Cleaning %s"] [option name]]"
 }
 
 proc portclean::clean_main {args} {

Modified: branches/xterm-titles/base/src/port1.0/portconfigure.tcl
===================================================================
--- branches/xterm-titles/base/src/port1.0/portconfigure.tcl	2010-04-09 00:30:52 UTC (rev 66307)
+++ branches/xterm-titles/base/src/port1.0/portconfigure.tcl	2010-04-09 00:32:16 UTC (rev 66308)
@@ -189,7 +189,7 @@
 proc portconfigure::configure_start {args} {
     global UI_PREFIX configure.compiler
     
-    ui_msg "$UI_PREFIX [format [msgcat::mc "Configuring %s"] [option name]]"
+    ui_phase configure "[format [msgcat::mc "Configuring %s"] [option name]]"
 
     set name ""
     switch -exact ${configure.compiler} {

Modified: branches/xterm-titles/base/src/port1.0/portdestroot.tcl
===================================================================
--- branches/xterm-titles/base/src/port1.0/portdestroot.tcl	2010-04-09 00:30:52 UTC (rev 66307)
+++ branches/xterm-titles/base/src/port1.0/portdestroot.tcl	2010-04-09 00:32:16 UTC (rev 66308)
@@ -88,12 +88,12 @@
 set_ui_prefix
 
 proc portdestroot::destroot_start {args} {
-    global UI_PREFIX prefix name porturl destroot os.platform destroot.clean portsharepath
+    global prefix name porturl destroot os.platform destroot.clean portsharepath
     global destroot.umask destroot.asroot euid egid
     global applications_dir frameworks_dir
     variable oldmask
 
-    ui_msg "$UI_PREFIX [format [msgcat::mc "Staging %s into destroot"] ${name}]"
+    ui_phase destroot "[format [msgcat::mc "Staging %s into destroot"] ${name}]"
 
     # start gsoc08-privileges
     if { [getuid] == 0 && [geteuid] != 0 } {

Modified: branches/xterm-titles/base/src/port1.0/portdistfiles.tcl
===================================================================
--- branches/xterm-titles/base/src/port1.0/portdistfiles.tcl	2010-04-09 00:30:52 UTC (rev 66307)
+++ branches/xterm-titles/base/src/port1.0/portdistfiles.tcl	2010-04-09 00:32:16 UTC (rev 66308)
@@ -48,8 +48,8 @@
 set_ui_prefix
 
 proc portdistfiles::distfiles_start {args} {
-    global UI_PREFIX name
-    ui_msg "$UI_PREFIX [format [msgcat::mc "Distfiles for %s"] ${name}]"
+    global name
+    ui_phase distfiles "$UI_PREFIX [format [msgcat::mc "Distfiles for %s"] ${name}]"
 }
 
 proc portdistfiles::distfiles_main {args} {

Modified: branches/xterm-titles/base/src/port1.0/portextract.tcl
===================================================================
--- branches/xterm-titles/base/src/port1.0/portextract.tcl	2010-04-09 00:30:52 UTC (rev 66307)
+++ branches/xterm-titles/base/src/port1.0/portextract.tcl	2010-04-09 00:32:16 UTC (rev 66308)
@@ -110,9 +110,7 @@
 }
 
 proc portextract::extract_start {args} {
-    global UI_PREFIX
-
-    ui_msg "$UI_PREFIX [format [msgcat::mc "Extracting %s"] [option name]]"
+    ui_phase extract "[format [msgcat::mc "Extracting %s"] [option name]]"
 }
 
 proc portextract::extract_main {args} {

Modified: branches/xterm-titles/base/src/port1.0/portfetch.tcl
===================================================================
--- branches/xterm-titles/base/src/port1.0/portfetch.tcl	2010-04-09 00:30:52 UTC (rev 66307)
+++ branches/xterm-titles/base/src/port1.0/portfetch.tcl	2010-04-09 00:32:16 UTC (rev 66308)
@@ -548,9 +548,8 @@
 }
 
 proc portfetch::fetch_start {args} {
-    global UI_PREFIX name
-
-    ui_msg "$UI_PREFIX [format [msgcat::mc "Fetching %s"] $name]"
+    global name
+    ui_phase fetch "[format [msgcat::mc "Fetching %s"] $name]"
 }
 
 # Main fetch routine

Modified: branches/xterm-titles/base/src/port1.0/portinstall.tcl
===================================================================
--- branches/xterm-titles/base/src/port1.0/portinstall.tcl	2010-04-09 00:30:52 UTC (rev 66307)
+++ branches/xterm-titles/base/src/port1.0/portinstall.tcl	2010-04-09 00:32:16 UTC (rev 66308)
@@ -57,9 +57,9 @@
 set_ui_prefix
 
 proc portinstall::install_start {args} {
-    global UI_PREFIX name version revision portvariants
+    global name version revision portvariants
     global prefix registry_open registry.format registry.path
-    ui_msg "$UI_PREFIX [format [msgcat::mc "Installing %s @%s_%s%s"] $name $version $revision $portvariants]"
+    ui_phase install "[format [msgcat::mc "Installing %s @%s_%s%s"] $name $version $revision $portvariants]"
     
     # start gsoc08-privileges
     if { ![file writable $prefix] } {

Modified: branches/xterm-titles/base/src/port1.0/portlint.tcl
===================================================================
--- branches/xterm-titles/base/src/port1.0/portlint.tcl	2010-04-09 00:30:52 UTC (rev 66307)
+++ branches/xterm-titles/base/src/port1.0/portlint.tcl	2010-04-09 00:32:16 UTC (rev 66308)
@@ -89,8 +89,8 @@
 
 
 proc portlint::lint_start {args} {
-    global UI_PREFIX name
-    ui_msg "$UI_PREFIX [format [msgcat::mc "Verifying Portfile for %s"] ${name}]"
+    global name
+    ui_phase lint "[format [msgcat::mc "Verifying Portfile for %s"] ${name}]"
 }
 
 proc portlint::lint_main {args} {

Modified: branches/xterm-titles/base/src/port1.0/portpatch.tcl
===================================================================
--- branches/xterm-titles/base/src/port1.0/portpatch.tcl	2010-04-09 00:30:52 UTC (rev 66307)
+++ branches/xterm-titles/base/src/port1.0/portpatch.tcl	2010-04-09 00:32:16 UTC (rev 66308)
@@ -75,7 +75,7 @@
         return 0
     }
 
-    ui_msg "$UI_PREFIX [format [msgcat::mc "Applying patches to %s"] [option name]]"
+    ui_phase patch "[format [msgcat::mc "Applying patches to %s"] [option name]]"
 
     foreach patch [option patchfiles] {
         set patch_file [getdistname $patch]

Modified: branches/xterm-titles/base/src/port1.0/portsubmit.tcl
===================================================================
--- branches/xterm-titles/base/src/port1.0/portsubmit.tcl	2010-04-09 00:30:52 UTC (rev 66307)
+++ branches/xterm-titles/base/src/port1.0/portsubmit.tcl	2010-04-09 00:32:16 UTC (rev 66308)
@@ -152,13 +152,13 @@
         close $fd
     }
     if {$portsource == ""} {
-        ui_msg "$UI_PREFIX Submitting $name-$version"
+        ui_phase submit "Submitting $name-$version"
         puts -nonewline "URL: "
         flush stdout
         gets stdin portsource
     }
 
-    ui_msg "$UI_PREFIX Submitting $name-$version to $portsource"
+    ui_phase submit "Submitting $name-$version to $portsource"
 
     puts -nonewline "Username: "
     flush stdout

Modified: branches/xterm-titles/base/src/port1.0/porttest.tcl
===================================================================
--- branches/xterm-titles/base/src/port1.0/porttest.tcl	2010-04-09 00:30:52 UTC (rev 66307)
+++ branches/xterm-titles/base/src/port1.0/porttest.tcl	2010-04-09 00:32:16 UTC (rev 66308)
@@ -26,8 +26,8 @@
 set_ui_prefix
 
 proc porttest::test_start {args} {
-    global UI_PREFIX name
-    ui_msg "$UI_PREFIX [format [msgcat::mc "Testing %s"] ${name}]"
+    global name
+    ui_phase test "[format [msgcat::mc "Testing %s"] ${name}]"
 }
 
 proc porttest::test_main {args} {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100408/bf16ce16/attachment-0001.html>


More information about the macports-changes mailing list