builder: build-status variable

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
+
   ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!