basis/tools/deploy/unix/unix.factor

   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 webbrowser ;
   6 IN: tools.deploy.unix
   7
   8 : create-app-dir ( vocab bundle-name -- vm-path )
   9     copy-vm dup 0o755 set-file-permissions ;
  10
  11 M: unix deploy*
  12     deploy-name get
  13     {
  14         [ create-app-dir ]
  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 ]
  19     } 2cleave ;
  20
  21 M: unix deploy-path
  22     deploy-directory get [
  23         dup deploy-config [
  24             deploy-name get swap append-path normalize-path
  25         ] with-variables
  26     ] with-directory ;