[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