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

builder: initiate build when new images are available

db4
Eduardo Cavazos 2008-02-18 08:13:35 -06:00
parent 3d0e1c0b70
commit 05154abe1d
2 changed files with 27 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
extra/builder/builder.factor
View File

@ -61,6 +61,13 @@ VAR: stamp
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: copy-image ( -- )
"../../factor/" my-arch boot-image-name append
my-arch boot-image-name
copy-file ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: factor-binary ( -- name ) : factor-binary ( -- name )
os os
{ { "macosx" [ "./Factor.app/Contents/MacOS/factor" ] } { { "macosx" [ "./Factor.app/Contents/MacOS/factor" ] }
@ -112,7 +119,9 @@ SYMBOL: build-status
make-vm [ "vm compile error" print "../compile-log" cat ] run-or-bail make-vm [ "vm compile error" print "../compile-log" cat ] run-or-bail
[ retrieve-image ] [ "Image download error" print throw ] recover ! [ retrieve-image ] [ "Image download error" print throw ] recover
copy-image
bootstrap [ "Bootstrap error" print "../boot-log" cat ] run-or-bail bootstrap [ "Bootstrap error" print "../boot-log" cat ] run-or-bail
@ -158,6 +167,8 @@ SYMBOL: builder-recipients
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
USE: bootstrap.image.download
: git-pull ( -- desc ) : git-pull ( -- desc )
{ {
"git" "git"
@ -173,11 +184,17 @@ SYMBOL: builder-recipients
git-id git-id
= not ; = not ;
: new-image-available? ( -- ? )
my-arch boot-image-name need-new-image?
[ download-my-image t ]
[ f ]
if ;
: build-loop ( -- ) : build-loop ( -- )
builds-check builds-check
[ [
builds "/factor" append cd builds "/factor" append cd
updates-available? updates-available? new-image-available? or
[ build ] [ build ]
when when
] ]

9
extra/builder/util/util.factor
View File

@ -83,4 +83,11 @@ TUPLE: process* arguments stdin stdout stderr timeout ;
USING: bootstrap.image bootstrap.image.download io.streams.null ; USING: bootstrap.image bootstrap.image.download io.streams.null ;
: retrieve-image ( -- ) [ my-arch download-image ] with-null-stream ; : retrieve-image ( -- ) [ my-arch download-image ] with-null-stream ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: copy-image ( -- )
"../../factor/" my-arch boot-image-name append
my-arch boot-image-name
copy-file ;