1 ! Copyright (C) 2008 James Cash
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: combinators io.backend io.directories io.files.info.unix
4 io.pathnames kernel namespaces system tools.deploy.backend
5 tools.deploy.config tools.deploy.config.editor ;
8 : create-app-dir ( vocab bundle-name -- vm-path )
9 copy-vm dup 0o755 set-file-permissions ;
15 [ drop deployed-image-name ]
16 [ drop namespace make-deploy-image-executable ]
17 [ nip "" [ copy-resources ] [ copy-libraries ] 3bi ]
18 [ nip maybe-open-deploy-directory ]
22 deploy-directory get [
24 deploy-name get swap append-path normalize-path