extra/mason/cleanup/cleanup.factor

   1 ! Copyright (C) 2008 Eduardo Cavazos, Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: arrays continuations io.directories
   4 io.directories.hierarchy io.files io.launcher kernel
   5 mason.common mason.config mason.platform namespaces ;
   6 IN: mason.cleanup
   7
   8 : compress ( filename -- )
   9     dup exists? [ "bzip2" swap 2array short-running-process ] [ drop ] if ;
  10
  11 : compress-image ( -- )
  12     boot-image-name compress ;
  13
  14 : compress-test-log ( -- )
  15     "test-log" compress ;
  16
  17 : cleanup ( -- )
  18     builder-debug get [
  19         build-dir [
  20             compress-image
  21             compress-test-log
  22             "factor" really-delete-tree
  23         ] with-directory
  24     ] unless ;