25 lines
812 B
Factor
25 lines
812 B
Factor
! Copyright (C) 2008 James Cash
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: io io.backend io.directories io.files.info.unix kernel
|
|
namespaces sequences system tools.deploy.backend
|
|
tools.deploy.config tools.deploy.config.editor ;
|
|
IN: tools.deploy.unix
|
|
|
|
: create-app-dir ( vocab bundle-name -- vm )
|
|
copy-vm
|
|
dup OCT: 755 set-file-permissions ;
|
|
|
|
: bundle-name ( -- str )
|
|
deploy-name get ;
|
|
|
|
M: unix deploy* ( vocab -- )
|
|
"resource:" [
|
|
dup deploy-config [
|
|
[ bundle-name create-app-dir ] keep
|
|
[ bundle-name image-name ] keep
|
|
namespace make-deploy-image
|
|
bundle-name "" [ copy-resources ] [ copy-libraries ] 3bi
|
|
bundle-name normalize-path "Binary deployed to " "." surround print
|
|
] bind
|
|
] with-directory ;
|