steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
extra/tools/deploy/shaker/shaker.factor
View File

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

6
extra/tools/deploy/windows/windows.factor
View File

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