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

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

CONSTANT: cleanup-list {
    "vm"
    "temp"
    "logs"
    ".git"
    ".gitignore"
    "GNUmakefile"
    "Nmakefile"
    "unmaintained"
    "build.cmd"
    "build.sh"
    "build-support"
    "images"
    "factor.dll.exp"
    "factor.dll.lib"
    "factor.exp"
    "factor.lib"
    "libfactor-ffi-test.exp"
    "libfactor-ffi-test.lib"
}

: useless-files ( -- seq )
    cleanup-list image-names [ boot-image-name ] map append
    target-os get macosx? [ "Factor.app" suffix ] unless ;

: tidy ( -- )
    "factor" [
        useless-files
        [ exists? ] filter
        [ delete-tree ] each
    ] with-directory ;