factor/basis/tools/deploy/unix/unix.factor

23 lines
754 B
Factor
Raw Normal View History

! 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
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 ;