basis/tools/deploy/unix/unix.factor

   1 ! Copyright (C) 2008 James Cash
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: io io.files io.backend kernel namespaces make sequences
   4 system tools.deploy.backend tools.deploy.config
   5 tools.deploy.config.editor assocs hashtables prettyprint ;
   6 IN: tools.deploy.unix
   7
   8 : create-app-dir ( vocab bundle-name -- vm )
   9     dup "" copy-fonts
  10     "" copy-vm ;
  11
  12 : bundle-name ( -- str )
  13     deploy-name get ;
  14
  15 M: unix deploy* ( vocab -- )
  16     "." resource-path [
  17         dup deploy-config [
  18             [ bundle-name create-app-dir ] keep
  19             [ bundle-name image-name ] keep
  20             namespace make-deploy-image
  21             bundle-name normalize-path [ "Binary deployed to " % % "." % ] "" make print
  22         ] bind
  23     ] with-directory ;