Minor moving stuff around in files
parent
d7ddf9ad42
commit
dca8d463be
|
@ -9,6 +9,15 @@ 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
|
||||
[ print flush (copy-lines) ] [ 2drop ] if ;
|
||||
|
@ -106,13 +115,4 @@ DEFER: ?make-staging-image
|
|||
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