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.backend io.directories io.files.info.unix kernel
   4 namespaces sequences system tools.deploy.backend
   5 tools.deploy.config tools.deploy.config.editor ;
   6 QUALIFIED: webbrowser
   7 IN: tools.deploy.unix
   8
   9 : create-app-dir ( vocab bundle-name -- vm )
  10     copy-vm
  11     dup 0o755 set-file-permissions ;
  12
  13 : bundle-name ( -- str )
  14     deploy-name get ;
  15
  16 M: unix deploy* ( vocab -- )
  17     "resource:" [
  18         dup deploy-config [
  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
  25         ] with-variables
  26     ] with-directory ;