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.
|
! 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 ( -- )
|
||||||
|
|
Loading…
Reference in New Issue