Add builder.load-everything
parent
c5abf18b7d
commit
e3e2cc7e0d
|
@ -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
|
||||||
|
|
||||||
|
;
|
||||||
|
|
||||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
|
|
@ -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
|
Loading…
Reference in New Issue