steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

builder: build-status variable

db4
Eduardo Cavazos 2008-02-08 20:09:59 -06:00
parent 48211859d1
commit 5570f367a6
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/builder/builder.factor Executable file → Normal file
View File

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