/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
- ! Copyright (C) 2008 Eduardo Cavazos, Slava Pestov.
- ! See http://factorcode.org/license.txt for BSD license.
- USING: arrays continuations io.directories
- io.directories.hierarchy io.files io.launcher kernel
- mason.common mason.config mason.platform namespaces ;
- IN: mason.cleanup
- : compress ( filename -- )
- dup exists? [ "bzip2" swap 2array short-running-process ] [ drop ] if ;
- : compress-image ( -- )
- boot-image-name compress ;
- : compress-test-log ( -- )
- "test-log" compress ;
- : cleanup ( -- )
- builder-debug get [
- build-dir [
- compress-image
- compress-test-log
- "factor" delete-tree
- ] with-directory
- ] unless ;