Clean up some uglyness in tools.deploy
parent
026c4186f1
commit
81226bfd36
extra/tools/deploy
|
@ -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" ,
|
||||
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue