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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Slava Pestov 2008-02-10 17:27:04 -06:00
parent 3eda26ca0b e7bf56ad57
commit 27773588d3
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/builder/builder.factor
View File

@ -30,7 +30,9 @@ IN: builder
SYMBOL: builder-recipients SYMBOL: builder-recipients
: tag-subject ( str -- str ) `{ "builder@" ,[ host-name ] ": " , } concat ; : host-name* ( -- name ) host-name "." split first ;
: tag-subject ( str -- str ) `{ "builder@" ,[ host-name* ] ": " , } concat ;
: email-string ( subject -- ) : email-string ( subject -- )
`{ "mutt" "-s" ,[ tag-subject ] %[ builder-recipients get ] } `{ "mutt" "-s" ,[ tag-subject ] %[ builder-recipients get ] }
@ -54,7 +56,7 @@ SYMBOL: builder-recipients
: run-or-send-file ( desc message file -- ) : run-or-send-file ( desc message file -- )
>r >r [ try-process ] curry >r >r [ try-process ] curry
r> r> [ email-string throw ] 2curry r> r> [ email-file throw ] 2curry
recover ; recover ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@ -158,11 +160,11 @@ SYMBOL: build-status
builder-test "builder.test fatal error" run-or-notify builder-test "builder.test fatal error" run-or-notify
"../load-everything-log" exists? "../load-everything-log" exists?
[ "builder: load-everything" "../load-everything-log" email-file ] [ "load-everything" "../load-everything-log" email-file ]
when when
"../failing-tests" exists? "../failing-tests" exists?
[ "builder: failing tests" "../failing-tests" email-file ] [ "failing tests" "../failing-tests" email-file ]
when when
"ready" build-status set-global ; "ready" build-status set-global ;