tools.deploy.shaker: strip out a few more things

Slava Pestov 2009-05-08 02:35:46 -05:00
parent 3aab93e278
commit 3174e81f98
1 changed files with 17 additions and 8 deletions

View File

@ -23,7 +23,13 @@ IN: tools.deploy.shaker
: strip-init-hooks ( -- ) : strip-init-hooks ( -- )
"Stripping startup hooks" show "Stripping startup hooks" show
{ "cpu.x86" "command-line" "libc" "system" "environment" } {
"command-line"
"cpu.x86"
"environment"
"libc"
"alien.strings"
}
[ init-hooks get delete-at ] each [ init-hooks get delete-at ] each
deploy-threads? get [ deploy-threads? get [
"threads" init-hooks get delete-at "threads" init-hooks get delete-at
@ -36,8 +42,12 @@ IN: tools.deploy.shaker
"io.backend" init-hooks get delete-at "io.backend" init-hooks get delete-at
] when ] when
strip-dictionary? [ strip-dictionary? [
"compiler.units" init-hooks get delete-at {
"vocabs.cache" init-hooks get delete-at "compiler.units"
"vocabs"
"vocabs.cache"
"source-files.errors"
} [ init-hooks get delete-at ] each
] when ; ] when ;
: strip-debugger ( -- ) : strip-debugger ( -- )
@ -260,21 +270,20 @@ IN: tools.deploy.shaker
compiler.errors:compiler-errors compiler.errors:compiler-errors
definition-observers definition-observers
interactive-vocabs interactive-vocabs
layouts:num-tags
layouts:num-types
layouts:tag-mask
layouts:tag-numbers
layouts:type-numbers
lexer-factory lexer-factory
print-use-hook print-use-hook
root-cache root-cache
source-files.errors:error-types source-files.errors:error-types
source-files.errors:error-observers
vocabs:dictionary vocabs:dictionary
vocabs:load-vocab-hook vocabs:load-vocab-hook
vocabs:vocab-observers
word word
parser-notes parser-notes
} % } %
{ } { "layouts" } strip-vocab-globals %
{ } { "math.partial-dispatch" } strip-vocab-globals % { } { "math.partial-dispatch" } strip-vocab-globals %
{ } { "peg" } strip-vocab-globals % { } { "peg" } strip-vocab-globals %