33 lines
901 B
Factor
33 lines
901 B
Factor
|
! Copyright (C) 2007, 2008 Slava Pestov.
|
||
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: io io.files kernel namespaces sequences system
|
||
|
|
tools.deploy.backend tools.deploy.config assocs hashtables
|
||
|
prettyprint combinators windows.shell32 windows.user32 ;
|
||
|
|
IN: tools.deploy.windows
|
||
|
|
|
||
|
|
: copy-dlls ( bundle-name -- )
|
||
|
|
{
|
||
|
|
"resource:freetype6.dll"
|
||
|
|
"resource:zlib1.dll"
|
||
|
|
"resource:factor.dll"
|
||
|
|
} swap copy-files-into ;
|
||
|
|
|
||
|
|
: create-exe-dir ( vocab bundle-name -- vm )
|
||
|
|
dup copy-dlls
|
||
|
dup "" copy-fonts
|
||
|
|
".exe" copy-vm ;
|
||
|
|
|
||
|
M: winnt deploy*
|
||
|
|
"resource:" [
|
||
|
|
deploy-name over deploy-config at
|
||
|
|
[
|
||
|
|
{
|
||
|
|
[ create-exe-dir ]
|
||
|
|
[ image-name ]
|
||
|
|
[ drop ]
|
||
|
|
[ drop deploy-config ]
|
||
|
|
} 2cleave make-deploy-image
|
||
|
|
]
|
||
|
|
[ nip open-in-explorer ] 2bi
|
||
|
|
] with-directory ;
|