factor/extra/mason/release/tidy/tidy.factor

! Copyright (C) 2008 Eduardo Cavazos, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: bootstrap.image continuations debugger fry io.directories
io.directories.hierarchy io.encodings.ascii io.files io.launcher
kernel mason.common namespaces sequences ;
FROM: mason.config => target-os ;
IN: mason.release.tidy

: common-files ( -- seq )
    "build-support/cleanup" ascii file-lines
    images [ boot-image-name ] map
    append ;

: remove-common-files ( -- )
    common-files [ really-delete-tree ] each ;

: remove-factor-app ( -- )
    target-os get "macosx" =
    [ "Factor.app" really-delete-tree ] unless ;

: tidy ( -- )
    "factor" [ remove-factor-app remove-common-files ] with-directory ;