Add builder.load-everything

db4
Eduardo Cavazos 2008-02-05 23:09:33 -06:00
parent c5abf18b7d
commit e3e2cc7e0d
2 changed files with 58 additions and 22 deletions

View File

@ -33,19 +33,19 @@ SYMBOL: builder-recipients
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! : target ( -- target ) `{ ,[ os ] %[ cpu "." split ] } "-" join ; : target ( -- target ) `{ ,[ os ] %[ cpu "." split ] } "-" join ;
: target ( -- target ) ! : target ( -- target )
{ { [ os "windows" = ] [ "windows-nt-x86-32" ] } ! { { [ os "windows" = ] [ "windows-nt-x86-32" ] }
{ [ t ] [ `{ ,[ os ] %[ cpu "." split ] } "-" join ] } } ! { [ t ] [ `{ ,[ os ] %[ cpu "." split ] } "-" join ] } }
cond ; ! cond ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: factor-binary ( -- name ) : factor-binary ( -- name )
os os
{ { "macosx" [ "./Factor.app/Contents/MacOS/factor" ] } { { "macosx" [ "./Factor.app/Contents/MacOS/factor" ] }
{ "windows" [ "./factor-nt.exe" ] } { "winnt" [ "./factor-nt.exe" ] }
[ drop "./factor" ] } [ drop "./factor" ] }
case ; case ;
@ -61,7 +61,13 @@ VAR: stamp
"/builds/factor" cd "/builds/factor" cd
{ "git" "pull" "--no-summary" "git://factorcode.org/git/factor.git" } {
"git"
"pull"
"--no-summary"
"git://factorcode.org/git/factor.git"
"master"
}
run-process process-status run-process process-status
0 = 0 =
[ ] [ ]
@ -74,7 +80,7 @@ VAR: stamp
"/builds/" stamp> append make-directory "/builds/" stamp> append make-directory
"/builds/" stamp> append cd "/builds/" stamp> append cd
{ "git" "clone" "/builds/factor" } run-process drop { "git" "clone" "../factor" } run-process drop
"factor" cd "factor" cd
@ -121,20 +127,27 @@ VAR: stamp
"builder: bootstrap" throw "builder: bootstrap" throw
] if ] if
`{ ! `{
{ +arguments+ ! { +arguments+
{ ,[ factor-binary ] "-e=USE: tools.browser load-everything" } } ! { ,[ factor-binary ] "-e=USE: tools.browser load-everything" } }
{ +stdout+ "../load-everything-log" } ! { +stdout+ "../load-everything-log" }
{ +stderr+ +stdout+ } ! { +stderr+ +stdout+ }
} ! }
>hashtable [ run-process process-status ] benchmark nip ! >hashtable [ run-process process-status ] benchmark nip
"../load-everything-time" <file-writer> [ . ] with-stream ! "../load-everything-time" <file-writer> [ . ] with-stream
0 = ! 0 =
[ ] ! [ ]
[ ! [
"builder: load-everything" "../load-everything-log" email-file ! "builder: load-everything" "../load-everything-log" email-file
"builder: load-everything" throw ! "builder: load-everything" throw
] if ; ! ] if ;
`{ ,[ factor-binary ] "-run=builder.load-everything" } run-process drop
"../load-everything-log" exists?
[ "builder: load-everything" "../load-everything-log" email-file ]
when
;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

View File

@ -0,0 +1,23 @@
USING: kernel continuations io io.files prettyprint vocabs.loader
tools.time tools.browser ;
IN: builder.load-everything
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: runtime ( quot -- time ) benchmark nip ;
: log-runtime ( quot file -- )
>r runtime r> <file-writer> [ . ] with-stream ;
: log-object ( object file -- ) <file-writer> [ . ] with-stream ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: do-load-everything ( -- )
[ [ load-everything ] catch ] "../load-everything-time" log-runtime
[ require-all-error-vocabs "../load-everything-log" log-object ]
when ;
MAIN: do-load-everything