Changeset 4600 for trunk/base

Timestamp:

Jan 12, 2004, 11:25:46 AM (20 years ago)

Author:

jkh

Message:

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

File:

• trunk/base/src/port/buildall.tcl (modified) (5 diffs)

trunk/base/src/port/buildall.tcl

@@ -8 +8 @@
 package require Pextlib
 
-global target
+global target uniquestr
 
 # UI Instantiations - These custom versions go to a debugging log.
@@ -30 +30 @@
 
 proc ui_puts {messagelist} {
+    global uniquestr
+
     set channel [open "/tmp/portbuild.out" w+ 0644]
     array set message $messagelist
@@ -37 +39 @@
                 close $channel
                 set channel [open "/tmp/portdebug.out" a+ 0664]
-                set str "DEBUG: $message(data)"
+                set str "${uniquestr}DEBUG: $message(data)"
             } else {
                 close $channel
@@ -44 +46 @@
         }
         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)"
         }
     }
@@ -100 +102 @@
 
 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} {