1 ! Copyright (C) 2008 James Cash
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: io io.backend io.directories io.files.info.unix kernel
4 namespaces sequences system tools.deploy.backend
5 tools.deploy.config tools.deploy.config.editor ;
9 : create-app-dir ( vocab bundle-name -- vm )
11 dup 0o755 set-file-permissions ;
13 : bundle-name ( -- str )
16 M: unix deploy* ( vocab -- )
19 [ bundle-name create-app-dir ] keep
20 [ deployed-image-name ] keep
21 namespace make-deploy-image-executable
22 bundle-name "" [ copy-resources ] [ copy-libraries ] 3bi
23 bundle-name normalize-path "Binary deployed to " "." surround print
24 bundle-name webbrowser:open-file
26 ] with-resource-directory ;