steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/extra/mason/updates/updates.factor

38 lines
1.1 KiB
Factor
Raw Permalink Normal View History

bootstrap.image.download: refactor it a bit to make mason.updates more robust
2010-05-25 17:15:55 -04:00
! Copyright (C) 2008, 2010 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: 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
USING: bootstrap.image.download http.client init kernel
mason: cleanup usings and misc stuff.
2014-11-15 19:20:49 -05:00
mason.config mason.git mason.platform math.parser namespaces ;
Mason: another type of builder
2008-09-16 00:20:33 -04:00
IN: mason.updates
mason: add support for forcing a build across the farm by reading a counter value from the server
2010-09-04 21:00:33 -04:00
TUPLE: sources git-id boot-image counter ;
C: <sources> sources
SYMBOLS: latest-sources last-built-sources ;
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
[
mason: add support for forcing a build across the farm by reading a counter value from the server
2010-09-04 21:00:33 -04:00
f latest-sources set-global
f last-built-sources set-global
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
] "mason.updates" add-startup-hook
mason: add support for forcing a build across the farm by reading a counter value from the server
2010-09-04 21:00:33 -04:00
: latest-boot-image ( -- boot-image )
mason: cleanup usings and misc stuff.
2014-11-15 19:20:49 -05:00
target-boot-image-name
mason: add support for forcing a build across the farm by reading a counter value from the server
2010-09-04 21:00:33 -04:00
[ maybe-download-image drop ] [ file-checksum ] bi ;
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
mason: add support for forcing a build across the farm by reading a counter value from the server
2010-09-04 21:00:33 -04:00
: latest-counter ( -- counter )
http.client: remove http-get* and its friends, change http-request* and with-http-request* to not check response codes.
2014-03-12 22:29:35 -04:00
counter-url get-global http-get nip string>number ;
Mason: another type of builder
2008-09-16 00:20:33 -04:00
mason: add support for forcing a build across the farm by reading a counter value from the server
2010-09-04 21:00:33 -04:00
: update-sources ( -- )
Fix comments to be ! not #!.
2015-09-08 19:15:10 -04:00
! Must be run from builds-dir
mason.git: rename git-pull to git-clone-or-pull since that's what it does.
2015-06-10 21:52:53 -04:00
git-clone-or-pull latest-boot-image latest-counter <sources>
mason: add support for forcing a build across the farm by reading a counter value from the server
2010-09-04 21:00:33 -04:00
latest-sources set-global ;
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
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
: should-build? ( -- ? )
mason: add support for forcing a build across the farm by reading a counter value from the server
2010-09-04 21:00:33 -04:00
latest-sources get-global last-built-sources get-global = not ;
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
: finish-build ( -- )
Fix comments to be ! not #!.
2015-09-08 19:15:10 -04:00
! If the build completed (successfully or not) without
! mason crashing or being killed, don't build this git ID
! and boot image hash again.
mason: add support for forcing a build across the farm by reading a counter value from the server
2010-09-04 21:00:33 -04:00
latest-sources get-global last-built-sources set-global ;