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

Fix Windows deployment

db4
U-SLAVA-DFB8FF805\Slava 2008-11-09 17:27:51 -06:00
parent 429fe85f46
commit 2bf9a55cea
1 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
basis/tools/deploy/windows/windows.factor
View File

@ -9,16 +9,14 @@ IN: tools.deploy.windows
"resource:factor.dll" swap copy-file-into ; "resource:factor.dll" swap copy-file-into ;
: copy-freetype ( bundle-name -- ) : copy-freetype ( bundle-name -- )
deploy-ui? get [ {
{ "resource:freetype6.dll"
"resource:freetype6.dll" "resource:zlib1.dll"
"resource:zlib1.dll" } swap copy-files-into ;
} swap copy-files-into
] [ drop ] if ;
: create-exe-dir ( vocab bundle-name -- vm ) : create-exe-dir ( vocab bundle-name -- vm )
dup copy-dll
deploy-ui? get [ deploy-ui? get [
dup copy-dll
dup copy-freetype dup copy-freetype
dup "" copy-fonts dup "" copy-fonts
] when ] when
@ -26,14 +24,14 @@ IN: tools.deploy.windows
M: winnt deploy* M: winnt deploy*
"resource:" [ "resource:" [
deploy-name over deploy-config at dup deploy-config [
[ deploy-name get
{ [
[ create-exe-dir ] [ create-exe-dir ]
[ image-name ] [ image-name ]
[ drop ] [ drop ]
[ drop deploy-config ] 2tri namespace make-deploy-image
} 2cleave make-deploy-image ]
] [ nip open-in-explorer ] 2bi
[ nip open-in-explorer ] 2bi ] bind
] with-directory ; ] with-directory ;