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
basis/tools/deploy/windows

View File

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