Clean up some uglyness in tools.deploy

release
Slava Pestov 2007-11-24 19:40:43 -05:00
parent 026c4186f1
commit 81226bfd36
2 changed files with 11 additions and 11 deletions

View File

@ -26,12 +26,8 @@ IN: tools.deploy
[ (copy-lines) ] [ stream-close ] [ ] cleanup ;
: stage2 ( vm flags -- )
[
"\"" % swap % "\" -i=" %
boot-image-name %
[ " " % % ] each
] "" make
dup print <process-stream>
>r "-i=" boot-image-name append 2array r> append dup .
<process-stream>
dup duplex-stream-out stream-close
copy-lines ;
@ -48,11 +44,11 @@ IN: tools.deploy
: deploy-command-line ( vm image vocab config -- vm flags )
[
"\"-include=" swap profile-string "\"" 3append ,
"-include=" swap profile-string append ,
"-deploy-vocab=" swap append ,
"\"-output-image=" swap "\"" 3append ,
"-output-image=" swap append ,
"-no-stack-traces" ,

View File

@ -2,8 +2,9 @@
! See http://factorcode.org/license.txt for BSD license.
USING: io io.files io.launcher kernel namespaces sequences
system tools.deploy tools.deploy.config assocs hashtables
prettyprint unix io.unix.backend cocoa cocoa.plists
cocoa.application cocoa.classes ;
prettyprint io.unix.backend cocoa cocoa.plists
cocoa.application cocoa.classes qualified ;
QUALIFIED: unix
IN: tools.deploy.macosx
: touch ( path -- )
@ -19,10 +20,13 @@ IN: tools.deploy.macosx
bundle-dir over path+ -rot
>r "Contents" path+ r> path+ copy-directory ;
: chmod ( path perms -- )
unix:chmod io-error ;
: copy-vm ( executable bundle-name -- vm )
"Contents/MacOS/" path+ swap path+ vm swap
[ copy-file ] keep
[ 755 chmod io-error ] keep ;
[ OCT: 755 chmod ] keep ;
: copy-fonts ( name -- )
"fonts/" resource-path