! Copyright (C) 2008 Eduardo Cavazos, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: arrays calendar io.directories io.encodings.utf8
io.files io.launcher mason.child mason.cleanup mason.common
mason.email mason.help mason.release mason.report namespaces
prettyprint ;
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
    upload-help
    release
    email-report
    cleanup ;

MAIN: build