Deployment fixes for Windows

release
Slava Pestov 2007-11-21 03:19:06 -05:00
parent cb198f907e
commit 32da4e364c
3 changed files with 9 additions and 9 deletions

View File

@ -54,7 +54,7 @@ IN: tools.deploy
"\"-output-image=" swap "\"" 3append , "\"-output-image=" swap "\"" 3append ,
"-no-stack-traces" , ! "-no-stack-traces" ,
"-no-user-init" , "-no-user-init" ,
] { } make ; ] { } make ;

16
extra/tools/deploy/shaker/shaker.factor Normal file → Executable file
View File

@ -24,7 +24,6 @@ IN: tools.deploy.shaker
"Stripping debugger" show "Stripping debugger" show
"resource:extra/tools/deploy/shaker/strip-debugger.factor" "resource:extra/tools/deploy/shaker/strip-debugger.factor"
run-file run-file
do-parse-hook
] when ; ] when ;
: strip-libc ( -- ) : strip-libc ( -- )
@ -32,7 +31,6 @@ IN: tools.deploy.shaker
"Stripping manual memory management debug code" show "Stripping manual memory management debug code" show
"resource:extra/tools/deploy/shaker/strip-libc.factor" "resource:extra/tools/deploy/shaker/strip-libc.factor"
run-file run-file
do-parse-hook
] when ; ] when ;
: strip-cocoa ( -- ) : strip-cocoa ( -- )
@ -40,7 +38,6 @@ IN: tools.deploy.shaker
"Stripping unused Cocoa methods" show "Stripping unused Cocoa methods" show
"resource:extra/tools/deploy/shaker/strip-cocoa.factor" "resource:extra/tools/deploy/shaker/strip-cocoa.factor"
run-file run-file
do-parse-hook
] when ; ] when ;
: strip-assoc ( retained-keys assoc -- newassoc ) : strip-assoc ( retained-keys assoc -- newassoc )
@ -116,7 +113,6 @@ SYMBOL: deploy-vocab
strip-dictionary? [ strip-dictionary? [
{ {
builtins
dictionary dictionary
inspector-hook inspector-hook
lexer-factory lexer-factory
@ -142,6 +138,10 @@ SYMBOL: deploy-vocab
"c-types" "alien.c-types" lookup , "c-types" "alien.c-types" lookup ,
] when ] when
native-io? [
"default-buffer-size" "io.nonblocking" lookup ,
] when
deploy-ui? get [ deploy-ui? get [
"ui" child-vocabs "ui" child-vocabs
"cocoa" child-vocabs "cocoa" child-vocabs
@ -152,10 +152,11 @@ SYMBOL: deploy-vocab
] when ] when
] { } make dup . ; ] { } make dup . ;
: strip ( -- ) : strip ( hook -- )
strip-libc >r strip-libc
strip-cocoa strip-cocoa
strip-debugger strip-debugger
r> [ call ] when*
strip-init-hooks strip-init-hooks
deploy-vocab get vocab-main set-boot-quot* deploy-vocab get vocab-main set-boot-quot*
retained-props >r retained-props >r
@ -168,10 +169,9 @@ SYMBOL: deploy-vocab
[ [
[ [
deploy-vocab set deploy-vocab set
parse-hook get >r parse-hook get
parse-hook off parse-hook off
deploy-vocab get require deploy-vocab get require
r> [ call ] when*
strip strip
finish-deploy finish-deploy
] [ ] [

0
extra/tools/deploy/shaker/strip-debugger.factor Normal file → Executable file
View File