mason.release.tidy: get list of files to delete from build-support/cleanup

db4
Slava Pestov 2009-02-26 01:38:01 -06:00
parent 1efbd686a1
commit 8f10b7d966
1 changed files with 3 additions and 13 deletions

View File

@ -1,24 +1,14 @@
! Copyright (C) 2008 Eduardo Cavazos, Slava Pestov. ! Copyright (C) 2008 Eduardo Cavazos, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: bootstrap.image continuations debugger fry USING: bootstrap.image continuations debugger fry io.directories
io.directories io.directories.hierarchy io.files io.launcher io.directories.hierarchy io.encodings.ascii io.files io.launcher
kernel mason.common namespaces sequences ; kernel mason.common namespaces sequences ;
FROM: mason.config => target-os ; FROM: mason.config => target-os ;
IN: mason.release.tidy IN: mason.release.tidy
: common-files ( -- seq ) : common-files ( -- seq )
"build-support/cleanup" ascii file-lines
images [ boot-image-name ] map images [ boot-image-name ] map
{
"vm"
"temp"
"logs"
".git"
".gitignore"
"Makefile"
"unmaintained"
"unfinished"
"build-support"
}
append ; append ;
: remove-common-files ( -- ) : remove-common-files ( -- )