diff --git a/extra/tools/deploy/backend/backend.factor b/extra/tools/deploy/backend/backend.factor index e8ca00cc8d..d4fbf1de78 100755 --- a/extra/tools/deploy/backend/backend.factor +++ b/extra/tools/deploy/backend/backend.factor @@ -8,6 +8,15 @@ debugger io.streams.c io.streams.duplex io.files io.backend quotations io.launcher words.private tools.deploy.config bootstrap.image io.encodings.utf8 accessors ; IN: tools.deploy.backend + +: copy-vm ( executable bundle-name extension -- vm ) + [ prepend-path ] dip append vm over copy-file ; + +: copy-fonts ( name dir -- ) + append-path "fonts/" resource-path swap copy-tree-into ; + +: image-name ( vocab bundle-name -- str ) + prepend-path ".image" append ; : (copy-lines) ( stream -- ) dup stream-readln dup @@ -105,14 +114,5 @@ DEFER: ?make-staging-image : make-deploy-image ( vm image vocab config -- ) make-boot-image deploy-command-line run-factor ; - -: copy-vm ( executable bundle-name extension -- vm ) - [ prepend-path ] dip append vm over copy-file ; - -: copy-fonts ( name dir -- ) - append-path "fonts/" resource-path swap copy-tree-into ; - -: image-name ( vocab bundle-name -- str ) - prepend-path ".image" append ; HOOK: deploy* os ( vocab -- ) diff --git a/extra/tools/deploy/linux/linux.factor b/extra/tools/deploy/linux/linux.factor index 5f3d41c443..a995d66cd8 100644 --- a/extra/tools/deploy/linux/linux.factor +++ b/extra/tools/deploy/linux/linux.factor @@ -1,7 +1,8 @@ ! 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.files io.backend kernel namespaces sequences +system tools.deploy.backend tools.deploy.config assocs +hashtables prettyprint ; IN: tools.deploy.linux : create-app-dir ( vocab bundle-name -- vm )