Minor moving stuff around in files

db4
James Cash 2008-04-12 00:09:57 -04:00
parent d7ddf9ad42
commit dca8d463be
2 changed files with 12 additions and 11 deletions

View File

@ -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 -- )

View File

@ -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 )