factor/extra/mason/updates/updates.factor

29 lines
677 B
Factor
Raw Normal View History

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: kernel io.launcher bootstrap.image.download
mason.common mason.platform ;
IN: mason.updates
: git-pull-cmd ( -- cmd )
{
"git"
"pull"
"--no-summary"
"git://factorcode.org/git/factor.git"
"master"
} ;
: updates-available? ( -- ? )
git-id
git-pull-cmd short-running-process
git-id
= not ;
: new-image-available? ( -- ? )
boot-image-name need-new-image?
[ boot-image-arch download-image t ] [ f ] if ;
2008-09-16 00:20:33 -04:00
: new-code-available? ( -- ? )
updates-available?
new-image-available?
or ;