Fixing deployment tool for Windows

db4
Slava Pestov 2008-01-07 17:14:21 -04:00
parent 928c68b506
commit 0142d96238
2 changed files with 13 additions and 16 deletions

View File

@ -48,8 +48,8 @@ IN: tools.deploy.shaker
[ f over set-word-name f swap set-word-vocabulary ] each ;
: strip-word-defs ( words -- )
"Stripping unoptimized definitions from optimized words" show
[ compiled? ] subset [ [ ] swap set-word-def ] each ;
"Stripping symbolic word definitions" show
[ [ ] swap set-word-def ] each ;
: strip-word-props ( retain-props words -- )
"Stripping word properties" show
@ -109,10 +109,6 @@ SYMBOL: deploy-vocab
builtins ,
strip-io? [ io-backend , ] unless
deploy-compiler? get [
"callbacks" "alien.compiler" lookup ,
] when
strip-dictionary? [
{
dictionary
@ -154,11 +150,14 @@ SYMBOL: deploy-vocab
] when
] { } make dup . ;
: strip ( hook -- )
>r strip-libc
: strip-recompile-hook ( -- )
[ [ f ] { } map>assoc ] recompile-hook set-global ;
: strip ( -- )
strip-libc
strip-cocoa
strip-debugger
r> [ call ] when*
strip-recompile-hook
strip-init-hooks
deploy-vocab get vocab-main set-boot-quot*
retained-props >r
@ -171,8 +170,6 @@ SYMBOL: deploy-vocab
[
[
deploy-vocab set
parse-hook get
parse-hook off
deploy-vocab get require
strip
finish-deploy

View File

@ -37,8 +37,8 @@ M: windows-deploy-implementation deploy*
stage1
"." resource-path cd
dup deploy-config [
[
[ deploy-name get create-exe-dir ] keep
[ deploy-name get image-name ] keep
] bind
] keep stage2 open-in-explorer ;
[ deploy-name get create-exe-dir ] keep
[ deploy-name get image-name ] keep
[ namespace stage2 ] keep
open-in-explorer
] bind ;