use radix literals

[factor.git] / basis / tools / deploy / unix / unix.factor

diff --git a/basis/tools/deploy/unix/unix.factor b/basis/tools/deploy/unix/unix.factor
index 6f5a0304a25e2d8a403b2d6378cee045852e1dff..629e607b625bdfc6b49adb9f032583b3c5365dd6 100644 (file)
--- a/basis/tools/deploy/unix/unix.factor
+++ b/basis/tools/deploy/unix/unix.factor
@@ -1,23 +1,24 @@
 ! Copyright (C) 2008 James Cash
 ! See http://factorcode.org/license.txt for BSD license.
-USING: io io.files io.backend kernel namespaces sequences
-system tools.deploy.backend tools.deploy.config assocs
-hashtables prettyprint ;
+USING: io io.backend io.directories io.files.info.unix kernel
+namespaces sequences system tools.deploy.backend
+tools.deploy.config tools.deploy.config.editor ;
 IN: tools.deploy.unix
 
 : create-app-dir ( vocab bundle-name -- vm )
-    dup "" copy-fonts
-    "" copy-vm ;
+    copy-vm
+    dup 0o755 set-file-permissions ;
 
 : bundle-name ( -- str )
     deploy-name get ;
 
 M: unix deploy* ( vocab -- )
-    "." resource-path [
+    "resource:" [
         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
+            bundle-name "" [ copy-resources ] [ copy-libraries ] 3bi
+            bundle-name normalize-path "Binary deployed to " "." surround print
         ] bind
-    ] with-directory ;
\ No newline at end of file
+    ] with-directory ;