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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
extra/builder/builder.factor
View File

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

23
extra/builder/load-everything/load-everything.factor Normal file
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