37 lines
1.1 KiB
Factor
37 lines
1.1 KiB
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
|
|
io.pathnames kernel namespaces sequences system
|
|
tools.deploy.backend tools.deploy.config
|
|
tools.deploy.config.editor webbrowser ;
|
|
IN: tools.deploy.unix
|
|
|
|
: create-app-dir ( vocab bundle-name -- vm )
|
|
copy-vm
|
|
dup 0o755 set-file-permissions ;
|
|
|
|
: bundle-name ( -- str )
|
|
deploy-name get ;
|
|
|
|
: ?open-file ( path -- )
|
|
open-directory-after-deploy? get [ open-file ] [ drop ] if ;
|
|
|
|
M: unix deploy*
|
|
deploy-directory get [
|
|
dup deploy-config [
|
|
[ bundle-name create-app-dir ] keep
|
|
[ deployed-image-name ] keep
|
|
namespace make-deploy-image-executable
|
|
bundle-name "" [ copy-resources ] [ copy-libraries ] 3bi
|
|
bundle-name normalize-path "Binary deployed to " "." surround print
|
|
bundle-name ?open-file
|
|
] with-variables
|
|
] with-directory ;
|
|
|
|
M: unix deploy-path
|
|
deploy-directory get [
|
|
dup deploy-config [
|
|
bundle-name swap append-path normalize-path
|
|
] with-variables
|
|
] with-directory ;
|