extra/mason/updates/updates.factor

   1 ! Copyright (C) 2008 Eduardo Cavazos, Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel io.launcher bootstrap.image.download
   4 mason.common mason.platform ;
   5 IN: mason.updates
   6
   7 : git-pull-cmd ( -- cmd )
   8     {
   9         "git"
  10         "pull"
  11         "--no-summary"
  12         "git://factorcode.org/git/factor.git"
  13         "master"
  14     } ;
  15
  16 : updates-available? ( -- ? )
  17     git-id
  18     git-pull-cmd short-running-process
  19     git-id
  20     = not ;
  21
  22 : new-image-available? ( -- ? )
  23     boot-image-name need-new-image?
  24     [ boot-image-arch download-image t ] [ f ] if ;
  25
  26 : new-code-available? ( -- ? )
  27     updates-available?
  28     new-image-available?
  29     or ;