1 ! Copyright (C) 2007, 2010 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: combinators command-line io.directories kernel namespaces
4 sequences system tools.deploy.backend tools.deploy.config
5 tools.deploy.config.editor vocabs vocabs.loader vocabs.platforms ;
8 ERROR: no-vocab-main vocab ;
10 : check-vocab-main ( vocab -- vocab )
11 [ require ] keep dup vocab-main [ no-vocab-main ] unless ;
14 dup find-vocab-root [ no-vocab ] unless
16 deploy-directory get [
22 : deploy-image-only ( vocab image -- )
24 swap dup deploy-config make-deploy-image drop ;
26 USE-MACOSX: tools.deploy.macosx
27 USE-UNIX: tools.deploy.unix
28 USE-WINDOWS: tools.deploy.windows
31 command-line get [ [ require ] [ deploy ] bi ] each ;