/extra/mason/cleanup/cleanup.factor

http://github.com/abeaumont/factor · Factor · 24 lines · 18 code · 4 blank · 2 comment · 2 complexity · 410c82d0d1e64969a2511e4181779d2e MD5 · raw file

  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. : compress ( filename -- )
  8. dup exists? [ "bzip2" swap 2array short-running-process ] [ drop ] if ;
  9. : compress-image ( -- )
  10. boot-image-name compress ;
  11. : compress-test-log ( -- )
  12. "test-log" compress ;
  13. : cleanup ( -- )
  14. builder-debug get [
  15. build-dir [
  16. compress-image
  17. compress-test-log
  18. "factor" delete-tree
  19. ] with-directory
  20. ] unless ;