extra/mason/build/build.factor

   1 ! Copyright (C) 2008 Eduardo Cavazos, Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: arrays calendar io.directories io.encodings.utf8
   4 io.files io.launcher mason.child mason.cleanup mason.common
   5 mason.email mason.help mason.release mason.report namespaces
   6 prettyprint ;
   7 IN: mason.build
   8
   9 : create-build-dir ( -- )
  10     now datestamp stamp set
  11     build-dir make-directory ;
  12
  13 : enter-build-dir  ( -- ) build-dir set-current-directory ;
  14
  15 : clone-builds-factor ( -- )
  16     "git" "clone" builds/factor 3array try-process ;
  17
  18 : record-id ( -- )
  19     "factor" [ git-id ] with-directory "git-id" to-file ;
  20
  21 : build ( -- )
  22     create-build-dir
  23     enter-build-dir
  24     clone-builds-factor
  25     record-id
  26     build-child
  27     upload-help
  28     release
  29     email-report
  30     cleanup ;
  31
  32 MAIN: build