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 quotations io.launcher words.private tools.deploy.config
bootstrap.image io.encodings.utf8 accessors ; bootstrap.image io.encodings.utf8 accessors ;
IN: tools.deploy.backend 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 -- ) : (copy-lines) ( stream -- )
dup stream-readln dup dup stream-readln dup
@ -105,14 +114,5 @@ DEFER: ?make-staging-image
: make-deploy-image ( vm image vocab config -- ) : make-deploy-image ( vm image vocab config -- )
make-boot-image make-boot-image
deploy-command-line run-factor ; 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 -- ) HOOK: deploy* os ( vocab -- )

View File

@ -1,7 +1,8 @@
! Copyright (C) 2008 James Cash ! Copyright (C) 2008 James Cash
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: io io.files io.backend kernel namespaces sequences system tools.deploy.backend USING: io io.files io.backend kernel namespaces sequences
tools.deploy.config assocs hashtables prettyprint ; system tools.deploy.backend tools.deploy.config assocs
hashtables prettyprint ;
IN: tools.deploy.linux IN: tools.deploy.linux
: create-app-dir ( vocab bundle-name -- vm ) : create-app-dir ( vocab bundle-name -- vm )