2008-09-16 00:20:33 -04:00
|
|
|
! Copyright (C) 2008 Eduardo Cavazos, Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
USING: io.files io.launcher io.encodings.utf8 prettyprint arrays
|
|
|
|
|
calendar namespaces mason.common mason.child
|
2008-11-16 16:51:10 -05:00
|
|
|
mason.release mason.report mason.email mason.cleanup
|
|
|
|
|
mason.help ;
|
2008-09-16 00:20:33 -04:00
|
|
|
IN: mason.build
|
|
|
|
|
|
|
|
|
|
: create-build-dir ( -- )
|
|
|
|
|
now datestamp stamp set
|
|
|
|
|
build-dir make-directory ;
|
|
|
|
|
|
|
|
|
|
: enter-build-dir ( -- ) build-dir set-current-directory ;
|
|
|
|
|
|
|
|
|
|
: clone-builds-factor ( -- )
|
|
|
|
|
"git" "clone" builds/factor 3array try-process ;
|
|
|
|
|
|
|
|
|
|
: record-id ( -- )
|
|
|
|
|
"factor" [ git-id ] with-directory "git-id" to-file ;
|
|
|
|
|
|
|
|
|
|
: build ( -- )
|
|
|
|
|
create-build-dir
|
|
|
|
|
enter-build-dir
|
|
|
|
|
clone-builds-factor
|
|
|
|
|
record-id
|
|
|
|
|
build-child
|
2008-11-16 16:39:30 -05:00
|
|
|
upload-help
|
2008-09-16 00:20:33 -04:00
|
|
|
release
|
|
|
|
|
email-report
|
|
|
|
|
cleanup ;
|
|
|
|
|
|
|
|
|
|
MAIN: build
|
