2008-09-16 00:20:33 -04:00
|
|
|
! Copyright (C) 2008 Eduardo Cavazos, Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
USING: kernel namespaces continuations debugger sequences fry
|
|
|
|
|
io.files io.launcher mason.common mason.platform
|
|
|
|
|
mason.config ;
|
|
|
|
|
IN: mason.release.tidy
|
|
|
|
|
|
|
|
|
|
: common-files ( -- seq )
|
|
|
|
|
{
|
|
|
|
|
"boot.x86.32.image"
|
|
|
|
|
"boot.x86.64.image"
|
|
|
|
|
"boot.macosx-ppc.image"
|
|
|
|
|
"boot.linux-ppc.image"
|
|
|
|
|
"vm"
|
|
|
|
|
"temp"
|
|
|
|
|
"logs"
|
|
|
|
|
".git"
|
|
|
|
|
".gitignore"
|
|
|
|
|
"Makefile"
|
|
|
|
|
"unmaintained"
|
|
|
|
|
"unfinished"
|
|
|
|
|
"build-support"
|
|
|
|
|
} ;
|
|
|
|
|
|
|
|
|
|
: remove-common-files ( -- )
|
|
|
|
|
common-files [ delete-tree ] each ;
|
|
|
|
|
|
|
|
|
|
: remove-factor-app ( -- )
|
|
|
|
|
target-os get "macosx" =
|
2008-09-16 11:34:51 -04:00
|
|
|
[ "Factor.app" delete-tree ] unless ;
|
2008-09-16 00:20:33 -04:00
|
|
|
|
|
|
|
|
: tidy ( -- )
|
|
|
|
|
"factor" [ remove-factor-app remove-common-files ] with-directory ;
|
