Minor moving stuff around in files
parent
d7ddf9ad42
commit
dca8d463be
|
@ -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 -- )
|
||||
|
|
|
@ -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 )
|
||||
|
|
Loading…
Reference in New Issue