Skip to content
Permalink
Browse files

Properly segregate the output of everything so that it can be easily …

…detected.

git-svn-id: https://svn.macports.org/repository/macports/trunk/base@4600 d073be05-634f-4543-b044-5fe20cf6d1d6
  • Loading branch information
Jordan K. Hubbard
Jordan K. Hubbard committed Jan 12, 2004
1 parent 1cb45d6 commit 7b5d4ed4ecc69e89e52e4789a99cf1a4aa54832f
Showing with 12 additions and 6 deletions.
  1. +12 −6 src/port/buildall.tcl
@@ -7,7 +7,7 @@ package require darwinports
dportinit
package require Pextlib

global target
global target uniquestr

# UI Instantiations - These custom versions go to a debugging log.
#
@@ -29,30 +29,32 @@ proc ui_isset {val} {
# UI Callback

proc ui_puts {messagelist} {
global uniquestr

set channel [open "/tmp/portbuild.out" w+ 0644]
array set message $messagelist
switch $message(priority) {
debug {
if {[ui_isset ports_debug]} {
close $channel
set channel [open "/tmp/portdebug.out" a+ 0664]
set str "DEBUG: $message(data)"
set str "${uniquestr}DEBUG: $message(data)"
} else {
close $channel
return
}
}
info {
set str "OUT: $message(data)"
set str "${uniquestr}OUT: $message(data)"
}
msg {
set str "OUT: $message(data)"
set str "${uniquestr}OUT: $message(data)"
}
error {
set str "ERR: $message(data)"
set str "${uniquestr}ERR: $message(data)"
}
warn {
set str "WARN: $message(data)"
set str "${uniquestr}WARN: $message(data)"
}
}
puts $channel $str
@@ -99,6 +101,10 @@ array set options [list]
array set variations [list]

set target install
# Set to something unique that can be grepped out of the output easily
set uniquestr "_BLDA_"
set env(UI_PREFIX) "${uniquestr}PHASE: "

if { $argc >= 1 } {
for {set i 0} {$i < $argc} {incr i} {
set arg [lindex $argv $i]

0 comments on commit 7b5d4ed

Please sign in to comment.
You can’t perform that action at this time.