From 5570f367a631dddd2e0f42078baa15641ed12567 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Fri, 8 Feb 2008 20:09:59 -0600
Subject: [PATCH] builder: build-status variable

---
 extra/builder/builder.factor | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 mode change 100755 => 100644 extra/builder/builder.factor

diff --git a/extra/builder/builder.factor b/extra/builder/builder.factor
old mode 100755
new mode 100644
index 9af79efb29..1c5f5ff3fd
--- a/extra/builder/builder.factor
+++ b/extra/builder/builder.factor
@@ -59,8 +59,12 @@ VAR: stamp
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
+SYMBOL: build-status
+
 : build ( -- )
 
+  "running" build-status set-global
+
   datestamp >stamp
 
   "/builds/factor" cd
@@ -98,6 +102,8 @@ VAR: stamp
 
   { "make" "clean" } run-process drop
 
+  ! "vm" build-status set-global
+
   `{
      { +arguments+ { "make" ,[ target ] } }
      { +stdout+    "../compile-log" }
@@ -116,6 +122,8 @@ VAR: stamp
   [ "builder: image download" email-string ]
   cleanup
 
+  ! "bootstrap" build-status set-global
+
   `{
      { +arguments+ {
                      ,[ factor-binary ]
@@ -133,6 +141,8 @@ VAR: stamp
     "builder: bootstrap" throw
   ] if
 
+  ! "test" build-status set-global
+
   `{ ,[ factor-binary ] "-run=builder.test" } run-process drop
   
   "../load-everything-log" exists?
@@ -143,6 +153,8 @@ VAR: stamp
   [ "builder: failing tests" "../failing-tests" email-file ]
   when
 
+  ! "ready" build-status set-global
+
   ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!