mason.release.tidy: get list of files to delete from build-support/cleanup
parent
1efbd686a1
commit
8f10b7d966
|
@ -1,24 +1,14 @@
|
|||
! 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.files io.launcher
|
||||
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
|
||||
{
|
||||
"vm"
|
||||
"temp"
|
||||
"logs"
|
||||
".git"
|
||||
".gitignore"
|
||||
"Makefile"
|
||||
"unmaintained"
|
||||
"unfinished"
|
||||
"build-support"
|
||||
}
|
||||
append ;
|
||||
|
||||
: remove-common-files ( -- )
|
||||
|
|
Loading…
Reference in New Issue