2008-04-11 14:38:47 -04:00
|
|
|
! Copyright (C) 2008 James Cash
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2008-09-11 04:58:20 -04:00
|
|
|
USING: io io.files io.backend kernel namespaces make sequences
|
2008-12-09 03:21:03 -05:00
|
|
|
system tools.deploy.backend tools.deploy.config
|
|
|
|
tools.deploy.config.editor assocs hashtables prettyprint ;
|
2008-04-20 01:49:42 -04:00
|
|
|
IN: tools.deploy.unix
|
2008-04-11 14:28:28 -04:00
|
|
|
|
2008-04-20 01:49:42 -04:00
|
|
|
: create-app-dir ( vocab bundle-name -- vm )
|
|
|
|
dup "" copy-fonts
|
|
|
|
"" copy-vm ;
|
|
|
|
|
|
|
|
: bundle-name ( -- str )
|
|
|
|
deploy-name get ;
|
|
|
|
|
|
|
|
M: unix deploy* ( vocab -- )
|
|
|
|
"." resource-path [
|
|
|
|
dup deploy-config [
|
|
|
|
[ bundle-name create-app-dir ] keep
|
|
|
|
[ bundle-name image-name ] keep
|
|
|
|
namespace make-deploy-image
|
|
|
|
bundle-name normalize-path [ "Binary deployed to " % % "." % ] "" make print
|
|
|
|
] bind
|
|
|
|
] with-directory ;
|