factor/extra/mason/build/build.factor

! Copyright (C) 2008, 2011 Eduardo Cavazos, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: arrays calendar combinators continuations io.directories
io.pathnames kernel mason.child mason.cleanup mason.common
mason.config mason.docs mason.git mason.notify mason.platform
mason.release mason.updates namespaces sequences ;
IN: mason.build

: create-build-dir ( -- )
    now datestamp stamp set
    build-dir make-directory ;

: enter-build-dir  ( -- )
    "Building in directory " build-dir append print-timestamp
    build-dir set-current-directory ;

: clone-source ( -- )
    "Cloning GIT repository" print-timestamp
    "git" "clone" builds-dir get "factor" append-path 3array
    short-running-process ;

: copy-image ( -- )
    builds-dir get target-boot-image-name append-path
    [ "." copy-file-into ] [ "factor" copy-file-into ] bi ;

: save-git-id ( -- )
    "factor" [ git-id ] with-directory {
        [ "git-id" to-file ]
        [ "factor/git-id" to-file ]
        [ current-git-id set ]
        [ notify-begin-build ]
    } cleave ;

: begin-build ( -- )
    clone-source
    copy-image
    save-git-id ;

: do-build ( -- )
    create-build-dir
    enter-build-dir
    [
        begin-build
        build-child
        [ notify-report ] [
            status-clean eq?
            [ notify-upload upload-docs release ] when
        ] bi
        notify-finish
        finish-build
    ] [ cleanup-build ] [ ] cleanup
    notify-idle ;

MAIN: do-build
mason: more useful logging to console, with timestamps 2011-09-09 22:33:13 -04:00			`! Copyright (C) 2008, 2011 Eduardo Cavazos, Slava Pestov.`
Mason: another type of builder 2008-09-16 00:20:33 -04:00			`! See http://factorcode.org/license.txt for BSD license.`
mason: cleanup usings and misc stuff. 2014-11-15 19:20:49 -05:00			`USING: arrays calendar combinators continuations io.directories`
			`io.pathnames kernel mason.child mason.cleanup mason.common`
			`mason.config mason.docs mason.git mason.notify mason.platform`
			`mason.release mason.updates namespaces sequences ;`
webapps.mason: Now renders a download grid with links to build machine status and download pages 2009-05-21 20:15:04 -04:00			`IN: mason.build`
delete factor/ every time after a build is finished. you can easily check it out by knowing the git-id 2009-03-23 20:00:23 -04:00
Mason: another type of builder 2008-09-16 00:20:33 -04:00			`: create-build-dir ( -- )`
			`now datestamp stamp set`
			`build-dir make-directory ;`

mason: when checking if we need to build, compare source for last finished (clean/dirty/error) build with the latest source hashes, instead of the last downloaded source hashes. This ensures that if a build is terminated due to machine failure, we start building again next time 2010-09-04 19:58:10 -04:00			`: enter-build-dir ( -- )`
mason: more useful logging to console, with timestamps 2011-09-09 22:33:13 -04:00			`"Building in directory " build-dir append print-timestamp`
mason: when checking if we need to build, compare source for last finished (clean/dirty/error) build with the latest source hashes, instead of the last downloaded source hashes. This ensures that if a build is terminated due to machine failure, we start building again next time 2010-09-04 19:58:10 -04:00			`build-dir set-current-directory ;`
Mason: another type of builder 2008-09-16 00:20:33 -04:00
mason: when checking if we need to build, compare source for last finished (clean/dirty/error) build with the latest source hashes, instead of the last downloaded source hashes. This ensures that if a build is terminated due to machine failure, we start building again next time 2010-09-04 19:58:10 -04:00			`: clone-source ( -- )`
mason: more useful logging to console, with timestamps 2011-09-09 22:33:13 -04:00			`"Cloning GIT repository" print-timestamp`
mason: various assorted improvements - put disk usage in build report - bump minimum disk space required before starting a build from 300mb to 1gb - check repository consistency before pulling; if there are untracked files, or if the pull fails, blow away the repo and clone it again 2010-09-05 18:22:02 -04:00			`"git" "clone" builds-dir get "factor" append-path 3array`
			`short-running-process ;`
Mason: another type of builder 2008-09-16 00:20:33 -04:00
mason: when checking if we need to build, compare source for last finished (clean/dirty/error) build with the latest source hashes, instead of the last downloaded source hashes. This ensures that if a build is terminated due to machine failure, we start building again next time 2010-09-04 19:58:10 -04:00			`: copy-image ( -- )`
mason: cleanup usings and misc stuff. 2014-11-15 19:20:49 -05:00			`builds-dir get target-boot-image-name append-path`
mason: when checking if we need to build, compare source for last finished (clean/dirty/error) build with the latest source hashes, instead of the last downloaded source hashes. This ensures that if a build is terminated due to machine failure, we start building again next time 2010-09-04 19:58:10 -04:00			`[ "." copy-file-into ] [ "factor" copy-file-into ] bi ;`

			`: save-git-id ( -- )`
webapps.mason: Now renders a download grid with links to build machine status and download pages 2009-05-21 20:15:04 -04:00			`"factor" [ git-id ] with-directory {`
			`[ "git-id" to-file ]`
			`[ "factor/git-id" to-file ]`
			`[ current-git-id set ]`
			`[ notify-begin-build ]`
			`} cleave ;`
Mason: another type of builder 2008-09-16 00:20:33 -04:00
mason: when checking if we need to build, compare source for last finished (clean/dirty/error) build with the latest source hashes, instead of the last downloaded source hashes. This ensures that if a build is terminated due to machine failure, we start building again next time 2010-09-04 19:58:10 -04:00			`: begin-build ( -- )`
			`clone-source`
			`copy-image`
			`save-git-id ;`

mason: rename some vague words like build to do-build, build? to should-build? for clarity and because they're too generic and conflict with kernel:build. 2015-06-06 20:04:30 -04:00			`: do-build ( -- )`
Mason: another type of builder 2008-09-16 00:20:33 -04:00			`create-build-dir`
			`enter-build-dir`
delete factor/ every time after a build is finished. you can easily check it out by knowing the git-id 2009-03-23 20:00:23 -04:00			`[`
mason: working on a big overhaul of mason. Status updates sent to a web service, binary upload notification via Twitter 2009-04-17 21:59:59 -04:00			`begin-build`
delete factor/ every time after a build is finished. you can easily check it out by knowing the git-id 2009-03-23 20:00:23 -04:00			`build-child`
mason: add new idle, upload, finish states to make status display more helpful 2010-09-17 02:43:14 -04:00			`[ notify-report ] [`
			`status-clean eq?`
			`[ notify-upload upload-docs release ] when`
			`] bi`
			`notify-finish`
mason: when checking if we need to build, compare source for last finished (clean/dirty/error) build with the latest source hashes, instead of the last downloaded source hashes. This ensures that if a build is terminated due to machine failure, we start building again next time 2010-09-04 19:58:10 -04:00			`finish-build`
mason: cleanup usings and misc stuff. 2014-11-15 19:20:49 -05:00			`] [ cleanup-build ] [ ] cleanup`
mason: add new idle, upload, finish states to make status display more helpful 2010-09-17 02:43:14 -04:00			`notify-idle ;`
Mason: another type of builder 2008-09-16 00:20:33 -04:00
mason: rename some vague words like build to do-build, build? to should-build? for clarity and because they're too generic and conflict with kernel:build. 2015-06-06 20:04:30 -04:00			`MAIN: do-build`