steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

update unix, windows, and test deploy backends

db4
Joe Groff 2010-02-14 23:10:05 -08:00
parent 1b5ba15707
commit a6bbb6dca6
3 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/tools/deploy/test/test.factor
View File

@ -7,7 +7,7 @@ IN: tools.deploy.test
[ "test.image" temp-file delete-file ] ignore-errors [ "test.image" temp-file delete-file ] ignore-errors
"resource:" [ "resource:" [
[ vm "test.image" temp-file ] dip [ vm "test.image" temp-file ] dip
dup deploy-config make-deploy-image dup deploy-config make-deploy-image drop
] with-directory ; ] with-directory ;
ERROR: image-too-big actual-size max-size ; ERROR: image-too-big actual-size max-size ;

2
basis/tools/deploy/unix/unix.factor
View File

@ -7,7 +7,6 @@ tools.deploy.config.editor assocs hashtables prettyprint ;
IN: tools.deploy.unix IN: tools.deploy.unix
: create-app-dir ( vocab bundle-name -- vm ) : create-app-dir ( vocab bundle-name -- vm )
dup "" copy-theme
copy-vm copy-vm
dup OCT: 755 set-file-permissions ; dup OCT: 755 set-file-permissions ;
@ -20,6 +19,7 @@ M: unix deploy* ( vocab -- )
[ bundle-name create-app-dir ] keep [ bundle-name create-app-dir ] keep
[ bundle-name image-name ] keep [ bundle-name image-name ] keep
namespace make-deploy-image namespace make-deploy-image
bundle-name "" copy-resources
bundle-name normalize-path [ "Binary deployed to " % % "." % ] "" make print bundle-name normalize-path [ "Binary deployed to " % % "." % ] "" make print
] bind ] bind
] with-directory ; ] with-directory ;

14
basis/tools/deploy/windows/windows.factor
View File

@ -16,20 +16,18 @@ IN: tools.deploy.windows
: create-exe-dir ( vocab bundle-name -- vm ) : create-exe-dir ( vocab bundle-name -- vm )
dup copy-dll dup copy-dll
deploy-ui? get [ deploy-ui? get ".exe" ".com" ? copy-vm ;
[ "" copy-theme ] [ ".exe" copy-vm ] bi
] [ ".com" copy-vm ] if ;
M: winnt deploy* M: winnt deploy*
"resource:" [ "resource:" [
dup deploy-config [ dup deploy-config [
deploy-name get deploy-name get
[ {
[ create-exe-dir ] [ create-exe-dir ]
[ image-name ] [ image-name ]
[ drop ] [ drop namespace make-deploy-image ]
2tri namespace make-deploy-image [ nip "" copy-resources ]
] [ nip open-in-explorer ]
[ nip open-in-explorer ] 2bi } 2cleave
] bind ] bind
] with-directory ; ] with-directory ;